CAD设置系统变量（com接口VB语言）

主要用到函数说明：

MxDrawXCustomFunction::Mx_SetSysVar

设置系统变量。详细说明如下：

参数	说明
CString sVarName	系统变量名
Value	需要设置的值

设置系统变量DYNINPUT值为0：

1 2 3 4 5

Dim param As MxDrawResbuf Set param = New MxDrawResbuf param.AddString "DYNINPUT" param.AddLong 0, 5010 '5010 = RTLONG MxDrawX1.CallEx "Mx_SetSysVar", param

设置图层 ：

1 2 3 4 5

Dim param As MxDrawResbuf Set param = New MxDrawResbuf param.AddString "CLAYER" param.AddString "图层1", 5005 ' 5005 = RTSTR,代码是一个字符串类型的值 MxDrawX1.CallEx "Mx_SetSysVar", param

设置线型：

1 2 3 4 5

Dim param As MxDrawResbuf Set param = New MxDrawResbuf param.AddString "CELTYPE" param.AddString "DOT", 5005 ' 5005 = RTSTR,代码是一个字符串类型的值 MxDrawX1.CallEx "Mx_SetSysVar", param

设置线型设置颜色：

1 2 3 4 5

Dim param As MxDrawResbuf Set param = New MxDrawResbuf param.AddString "CECOLOR" param.AddLong 255, 5010 ' 5010 = RTLONG,代码是长整型变量的值,255是RGB组合值。 MxDrawX1.CallEx "Mx_SetSysVar", param