读取线宽和颜色值
大家好，运行宏时，我希望“读取”颜色和lwt设置的当前值，以便在宏完成后可以将其更改回。
对于线型、文本样式和当前图层，我使用了以下内容，但这不适用于颜色和lwt。
有人有主意吗？
提前感谢，
罗宾
L=本图纸。ActiveLayer。名称
LT=此图纸。ActiveLinetype。名称
S=此图纸。ActiveTextStyle。名称
此图纸。ActiveLayer=此图形。层。项目（“Tekst_zwart”）
此图纸。ActiveTextStyle=ThisDrawing。文本样式。项目（“Iso”）
此图纸。ActiveLinetype=ThisDrawing。线型。项目（“Bylayer”）
此图纸。ActiveLayer=此图形。层。项目（L）
此图纸。ActiveTextStyle=ThisDrawing。文本样式。项目
此图纸。ActiveLinetype=ThisDrawing。线型。项目（LT）
看看系统变量“CECOLOR”和“CELWEIGHT”
您可以在代码的开头存储变量，如下所示
dim ccl
尺寸cwt
ccl=本图纸。Getsystemvariable（“CECOLOR”）
cwt=此图纸。GetSystemVariable（“CELWEIGHT”）
最后恢复所有：
此图纸。设置系统变量（“CECOLOR”、ccl）等
HTH公司
~'J'~
页:
[1]