|
www.mxdraw.com
|
执行一个带参数的命令
static BOOL Mx_SendStringToExecute(CString sCmaName, Param);
|
参数 |
说明 |
|
CString sCmaName |
命令名 |
|
Param |
命令参数。 |
成功返回TRUE.
例如: VB
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