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

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

# 移动开发 2024-05-05 12:18 0 16 来源：云博客

主要用到函数说明：

MxDrawXCustomEvent::MxDrawXCustomEntity::moveGripPointsAt

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

参数	说明
LONGLONG lEntity	自定义实体id
IN LONG lGridIndex	夹点索引号
IN McGePoint3d vec	夹点移动的向量

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