The main use of Function:
_DMxDrawXEvents::ObjectGripEdit
After pinch object is edited, it will call the event, as detailed below:
| parameter | Explanation |
|---|---|
| LONGLONG lId |
id object |
| LONG iGridIndex |
Pinch index was edited |
VB code to achieve the following:
|
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
|