主要用到函数说明:
_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对象,并返回对象数据。 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 |