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

主要用到函数说明：_DMxDrawXEvents::ObjectGripEdit

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

VB代码实现如下：

'查看对象是否是ImageMark对象，并返回对象数据。​​
 
​​Dim data As MxDrawXLib.MxDrawResbuf​​
 
​​Set data = MxDrawX1.CallLongParam1("Mx_GetImageMarkData", lId)​​
​​If data.AtString(0) = "Ok" Then​​
 
​​'​​​ ​​得到Mark对象的文件名.​​
​​MsgBox (data.AtString(1))​​
​​'插入点x​​
​​MsgBox (data.AtDouble(2))​​
​​'​​​​插入点y​​
​​MsgBox (data.AtDouble(3))​​
​​'缩放比例​​
​​data.AtDouble (4)​​
​​'​​​​图片在绘图时，是否参于打印，出图​​
​​data.AtLong (5)​​
​​'否绘制它的在文档中的外框标记​​
​​data.AtLong (6)​​
​​'​​​​图片在数据库中的宽度​​
​​data.AtDouble (7)​​
​​'图片在数据库中的高度​​
​​data.AtDouble (8)​​
​​'​​​​闪烁时使用的ImageFile​​
​​data.AtString (9)​​
​​'标注文本​​
​​data.AtString (10)​​
​​'​​​​标注文本高度​​
​​data.AtDouble (11)​​
​​'颜色索引​​
​​data.AtLong (12)​​
 
​​'​​​​修改Mark的文本数据。​​
​​Dim setParam As MxDrawXLib.MxDrawResbuf​​
​​Set setParam = New MxDrawXLib.MxDrawResbuf​​
​​'输入对象id​​
​​setParam.AddLong lId​​
 
​​'​​​​输入对象新的文字内容​​
​​setParam.AddString ​​​​"Text"​​
​​setParam.AddString ​​​​"对象被修改"​​
 
​​'输入对象新文字高度,TextHeight是设置标记​​
​​setParam.AddString "TextHieght"​​
 
​​'​​​​文字高度值​​
​​setParam.AddDouble 50​​
​​MxDrawX1.CallEx ​​​​"Mx_SetImageMarkData"​​​​, setParam​​