如何执行一个带参数的命令？

• 回答：

  主要用到函数说明：

  
  

  MxDrawXCustomFunction::Mx_SendStringToExecute

  
  

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

  
  

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

  
  

  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