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

lihao2014

主要用到函数说明：

MxDrawXCustomEvent::MxDrawXCustomEntity::getGripPoints

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

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

VB代码实现如下：

1.             If sEventName = "MxDrawXCustomEntity::getGripPoints" Then
   
2. 
   
3.             Dim param77 As MxDrawResbuf
   
4.             Set param77 = MxDrawX1.CustomEventParam()
   
5. 
   
6. 
   
7.             Set customEntity = MxDrawX1.CallEx("Mx_GetCustomEntity", param77)
   
8. 
   
9. 
   
10.             Set sPt = customEntity.GetPoint("startpoint")
    
11.             Set ePt = customEntity.GetPoint("endpoint")
    
12. 
    
13. 
    
14. 
    
15.             param77.RemoveAll
    
16. 
    
17. 
    
18.             param77.AddPoint sPt
    
19.             param77.AddPoint ePt
    
20.             MxDrawX1.CallEx "Mx_SetEventRetEx", param77
    
21. 
    
22. 
    
23.             End If

复制代码