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