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
页:
[1]