如何由一个自定义实体事件中的id得到自定义实体对象？

• 回答：

  由一个自定义实体事件中的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