CAD把一个命令当着一个函数调用，不执行（VB语言）-CFANZ编程社区

主要用到函数说明：MxDrawXCustomFunction::Mx_SendStringToExecuteFun

把一个命令当着一个函数调用，不执行，详细说明如下：

例如: 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`