主要用到函数说明： _DMxDrawXEvents::ObjectGripEdit 对象的夹点被编辑完成后,会调用该事件，详细说明如下： 参数 说明 LONGLONG lId 对象的id LONG iGridIndex 被编辑的夹点索引 VB代码实现如下：
主要用到函数说明：
_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