CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)
Posted yzy0224
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)相关的知识，希望对你有一定的参考价值。
由一个自定义实体事件中的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语言)的主要内容，如果未能解决你的问题，请参考以下文章