CAD对象的夹点被编辑完成后调用事件（com接口VB语言）

lihao2014

主要用到函数说明：

_DMxDrawXEvents::ObjectGripEdit

对象的夹点被编辑完成后,会调用该事件，详细说明如下：

参数	说明
LONGLONG lId	对象的id
LONG iGridIndex	被编辑的夹点索引

VB代码实现如下：

1.     '查看对象是否是ImageMark对象，并返回对象数据。
   
2. 
   
3.     Dim data As MxDrawXLib.MxDrawResbuf
   
4. 
   
5.     Set data = MxDrawX1.CallLongParam1("Mx_GetImageMarkData", lId)
   
6.     If data.AtString(0) = "Ok" Then
   
7. 
   
8. ' 得到Mark对象的文件名.
   
9.     MsgBox (data.AtString(1))
   
10. '插入点x
    
11.     MsgBox (data.AtDouble(2))
    
12. '插入点y
    
13.     MsgBox (data.AtDouble(3))
    
14. '缩放比例
    
15.     data.AtDouble (4)
    
16. '图片在绘图时，是否参于打印，出图
    
17.     data.AtLong (5)
    
18. '否绘制它的在文档中的外框标记
    
19.     data.AtLong (6)
    
20. '图片在数据库中的宽度
    
21.     data.AtDouble (7)
    
22. '图片在数据库中的高度
    
23.     data.AtDouble (8)
    
24. '闪烁时使用的ImageFile
    
25.     data.AtString (9)
    
26. '标注文本
    
27.     data.AtString (10)
    
28. '标注文本高度
    
29.     data.AtDouble (11)
    
30. '颜色索引
    
31.     data.AtLong (12)
    
32. 
    
33.     '修改Mark的文本数据。
    
34.      Dim setParam As MxDrawXLib.MxDrawResbuf
    
35.      Set setParam = New MxDrawXLib.MxDrawResbuf
    
36.      '输入对象id
    
37.      setParam.AddLong lId
    
38. 
    
39.      '输入对象新的文字内容
    
40.      setParam.AddString "Text"
    
41.      setParam.AddString "对象被修改"
    
42. 
    
43.      '输入对象新文字高度,TextHeight是设置标记
    
44.      setParam.AddString "TextHieght"
    
45. 
    
46.      '文字高度值
    
47.      setParam.AddDouble 50
    
48.      MxDrawX1.CallEx "Mx_SetImageMarkData", setParam

复制代码