标签：bsp tar ber cin ring text x11 order The
由一个自定义实体事件中的id得到自定义实体对象。该函数只能在自定义实体事件中调用。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
If sEventName = "MxDrawXCustomEntity::explode" Then Dim param66 As MxDrawResbuf Set param66 = MxDrawX1.CustomEventParam() Dim lBlockRecId As Long lBlockRecId = param66.AtLong(1) Dim customEntity As MxDrawCustomEntity Set customEntity = MxDrawX1.CallEx("Mx_GetCustomEntity", param66) If customEntity.IsHave("startpoint") Then Else Exit Sub End If If customEntity.IsHave("endpoint") Then Else Exit Sub End If Set database = MxDrawX1.GetDatabase Dim blkRec As MxDrawBlockTableRecord Set blkRec = database.ObjectIdToObject(lBlockRecId) Dim sPt As MxDrawPoint Dim ePt As MxDrawPoint Set sPt = customEntity.GetPoint("startpoint") Set ePt = customEntity.GetPoint("endpoint") blkRec.AddLine sPt, ePt End If |
CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)
标签：bsp tar ber cin ring text x11 order The
原文地址：https://www.cnblogs.com/yzy0224/p/11007979.html
