CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)

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