CAD得到自定义实体拖放夹点（com接口VB语言）

主要用到函数说明：

MxDrawXCustomEvent::MxDrawXCustomEntity::getGripPoints

自定义实体事件，得到拖放夹点，详细说明如下：

参数	说明
LONGLONG lEntity	自定义实体id
OUT AcGePoint3dArray& gripPoints	返回要拖放的夹点

VB代码实现如下：

If sEventName = "MxDrawXCustomEntity::getGripPoints" Then

Dim param77 As MxDrawResbuf

Set param77 = MxDrawX1.CustomEventParam()

Set customEntity = MxDrawX1.CallEx("Mx_GetCustomEntity", param77)

Set sPt = customEntity.GetPoint("startpoint")

Set ePt = customEntity.GetPoint("endpoint")

param77.RemoveAll

param77.AddPoint sPt

param77.AddPoint ePt

MxDrawX1.CallEx "Mx_SetEventRetEx", param77

End If

巴特西