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

2020-12-13 01:44

阅读：484

标签：颜色 res call rect ddl rem func 详细 set

主要用到函数说明：

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

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

标签：颜色 res call rect ddl rem func 详细 set

原文地址：https://www.cnblogs.com/yzy0224/p/11007944.html

文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：CAD执行一个带参数的命令（com接口VB语言）
文章链接：http://soscw.com/essay/24120.html

亲，登录后才可以留言！