如何通过VB语言com接口实现CAD对象夹点编辑完成后的调用事件？

本文共计851个文字，预计阅读时间需要4分钟。

主要用途：函数说明：_DMxDrawXEvents::ObjectGripEdit对象：编辑完成后，会调用该事件。

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

VB代码实现：vbPublic Sub _DMxDrawXEvents_ObjectGripEdit(ByVal lId As Long, ByVal iGridIndex As Long) ' 事件处理代码End Sub

主要用到函数说明：

_DMxDrawXEvents::ObjectGripEdit

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

参数 说明

LONGLONG lId

对象的id

LONG iGridIndex

被编辑的夹点索引

VB代码实现如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 ‘查看对象是否是ImageMark对象，并返回对象数据。 DimdataAsMxDrawXLib.MxDrawResbuf Setdata=MxDrawX1.CallLongParam1("Mx_GetImageMarkData",lId) Ifdata.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的文本数据。 DimsetParamAsMxDrawXLib.MxDrawResbuf SetsetParam=NewMxDrawXLib.MxDrawResbuf ‘输入对象id setParam.AddLonglId ‘ 输入对象新的文字内容 setParam.AddString "Text" setParam.AddString "对象被修改" ‘输入对象新文字高度,TextHeight是设置标记 setParam.AddString"TextHieght" ‘ 文字高度值 setParam.AddDouble50 MxDrawX1.CallEx "Mx_SetImageMarkData" ,setParam