读取线宽和颜色值

crashingduke · 发表于 2022-7-6 12:08:59

大家好，

运行宏时，我希望“读取”颜色和lwt设置的当前值，以便在宏完成后可以将其更改回。
对于线型、文本样式和当前图层，我使用了以下内容，但这不适用于颜色和lwt。

有人有主意吗？

提前感谢，

罗宾

L=本图纸。ActiveLayer。名称
LT=此图纸。ActiveLinetype。名称
S=此图纸。ActiveTextStyle。名称

此图纸。ActiveLayer=此图形。层。项目（“Tekst_zwart”）
此图纸。ActiveTextStyle=ThisDrawing。文本样式。项目（“Iso”）
此图纸。ActiveLinetype=ThisDrawing。线型。项目（“Bylayer”）

此图纸。ActiveLayer=此图形。层。项目（L）
此图纸。ActiveTextStyle=ThisDrawing。文本样式。项目
此图纸。ActiveLinetype=ThisDrawing。线型。项目（LT）

fixo · 发表于 2022-7-6 13:27:55

看看系统变量“CECOLOR”和“CELWEIGHT”

您可以在代码的开头存储变量，如下所示

dim ccl
尺寸cwt

ccl=本图纸。Getsystemvariable（“CECOLOR”）

cwt=此图纸。GetSystemVariable（“CELWEIGHT”）

最后恢复所有：

此图纸。设置系统变量（“CECOLOR”、ccl）等

HTH公司

~'J'~

[编程交流] 读取线宽和颜色值

发表回复

精选推荐