主要用到函数说明: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 |