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

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/u013725001/article/details/91489332

主要用到函数说明：

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