CAD执行一个带参数的命令（com接口VB语言）

主要用到函数说明：

MxDrawXCustomFunction::Mx_SendStringToExecute

执行一个带参数的命令。详细说明如下：

参数	说明
CString sCmaName	命令名
Param	命令参数

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

Dim param As MxDrawResbuf Set param = New MxDrawResbuf param.AddString "CECOLOR" '5是autocad颜色索引，5003是dxf组码，这里约定传5003才有效。 param.AddLong 5, 5003 '设置颜色系统变量 MxDrawX1.CallEx "Mx_SetSysVar", param '设置线型。 MxDrawX1.AddLinetype "MyLineType3", "30,-10" param.RemoveAll 'CELTYPE当前线型的系统变量名 param.AddString "CELTYPE" '是设置的值，线型取MyLineType3,5005是dxf组码，这里约定传5005才有效。 param.AddString "MyLineType3", 5005 MxDrawX1.CallEx "Mx_SetSysVar", param '调用绘制矩形命令 param.RemoveAll param.AddString "Mx_Rectang" '是绘制矩形的线宽.这是命令参数。 param.AddDouble 10 MxDrawX1.CallEx "Mx_SendStringToExecute", param