CAD实现自定义实体夹点移动（com接口VB语言）

CAD实现自定义实体夹点移动（com接口VB语言）

主要用到函数说明：MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt

自定义实体事件，自定义实体夹点被移动，详细说明如下：

VB代码实现如下：

If sEventName = "MxDrawXCustomEntity::moveGripPointsAt" Then Dim param88 As MxDrawResbuf Set param88 = MxDrawX1.CustomEventParam() Set customEntity = MxDrawX1.CallEx("Mx_GetCustomEntity", param88) Set sPt = customEntity.GetPoint("startpoint") Set ePt = customEntity.GetPoint("endpoint") Dim lIndex As Long lIndex = param88.AtLong(1) Dim offsetPt As MxDrawPoint Set offsetPt = param88.AtPoint(2) If lIndex = 0 Then sPt.x = sPt.x + offsetPt.x sPt.y = sPt.y + offsetPt.y customEntity.SetPoint "startpoint", sPt Else ePt.x = ePt.x + offsetPt.x ePt.y = ePt.y + offsetPt.y customEntity.SetPoint "endpoint", ePt End If End If

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。