主要用到函数说明：
MxDrawXCustomFunction::Mx_SetSysVar
设置系统变量。详细说明如下：
| 参数 | 说明 |
|---|---|
|
CString sVarName |
系统变量名 |
|
Value |
需要设置的值 |
设置系统变量DYNINPUT值为0：
|
1
2
3
4
5
|
Dim param As MxDrawResbufSet param = New MxDrawResbufparam.AddString "DYNINPUT"param.AddLong 0, 5010 ‘5010 = RTLONGMxDrawX1.CallEx "Mx_SetSysVar", param |
设置图层 ：
|
1
2
3
4
5
|
Dim param As MxDrawResbufSet param = New MxDrawResbufparam.AddString "CLAYER"param.AddString "图层1", 5005 ‘ 5005 = RTSTR,代码是一个字符串类型的值MxDrawX1.CallEx "Mx_SetSysVar", param |
设置线型：
|
1
2
3
4
5
|
Dim param As MxDrawResbufSet param = New MxDrawResbufparam.AddString "CELTYPE"param.AddString "DOT", 5005 ‘ 5005 = RTSTR,代码是一个字符串类型的值MxDrawX1.CallEx "Mx_SetSysVar", param |
设置线型设置颜色：
|
1
2
3
4
5
|
Dim param As MxDrawResbufSet param = New MxDrawResbufparam.AddString "CECOLOR"param.AddLong 255, 5010 ‘ 5010 = RTLONG,代码是长整型变量的值,255是RGB组合值。MxDrawX1.CallEx "Mx_SetSysVar", param |
原文：https://www.cnblogs.com/yzy0224/p/11007915.html