主要用到函数说明：
MxDrawXCustomFunction::Mx_SendStringToExecuteFun
把一个命令当着一个函数调用，不执行，详细说明如下：
| 参数 | 说明 |
|---|---|
| CString sCmaName |
命令名 |
| Param |
命令参数 |
例如: VB，在命令中，调用绘矩形命令函数，并得到绘制的矩形id.,该代码在命令事件中执行。
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Dim param As MxDrawResbuf
Set param = New MxDrawResbuf
param.AddString
"Mx_Rectang"
'是绘制矩形的线宽.这是命令参数。
param.AddDouble 10
MxDrawX1.CallEx "Mx_SendStringToExecuteFun", param
'
得到绘制的矩形id.
Dim retparam As MxDrawResbuf
Set retparam = MxDrawX1.Call(
"Mx_GetEntitysLastCmd"
,
""
)
Dim i As Integer
i = 1
Do While i < retparam.Count
MsgBox retparam.AtLong(i)
i = i + 1
Loop
|