CAD把自定义实体，变成普通实体（com接口VB语言）

主要用到函数说明：

MxDrawXCustomEvent::MxDrawXCustomEntity::explode

把自定义实体，变成普通实体，详细说明如下：

参数	说明
LONGLONG lEntity	自定义实体id
LONGLONG lBlkRecId	用来临时普通实体的块表记录id

代码实现如下：

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

巴特西