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

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​​

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