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

Posted yzy0224

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了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

以上是关于CAD执行一个带参数的命令（com接口VB语言）的主要内容，如果未能解决你的问题，请参考以下文章

CAD把一个dwg文件，或者图像文件当着一个背景导入（com接口VB语言）

CAD实现自定义实体夹点移动（com接口VB语言）

CAD与用户互在图面上得到一个矩形框（com接口VB语言）

CAD隐藏或显示工具条上的按钮（com接口VB语言）

CAD直接打印，不出现打印对话框（com接口VB语言）

CAD绘制一个图象标记对象（com接口VB语言）