怎么空选情况先把颜色线型线宽都恢复bylayer

xj6019

加载了代码后，有些代码会改变图层的颜色，线型，线宽，什么办法可以直接回复这三项
大家给提供个代码呗，一键把这三项直接回复全随层


注明：不是需要选择对象后设置全随层，而是空选的时候，把随层恢复设置
我在网上搜了很多，都是选择对象改为随层的，自己加工了一下都不能用
只能再次来寻求帮助了，谢谢！！！

start4444

这些不都是系统变量可以搞定的东西....
(defun c:tt5 ()       
(setvar "CELTYPE" "bylayer")
(setvar "Cecolor" "bylayer")
(setvar "CELWEIGHT" -1)
)

xj6019

老大们，给个代码呗，谢谢了

taoyi0727

怎么恢复  没有看懂你这个
你是要恢复图层里的 颜色 线型 线宽，还是当前使用中的图层 颜色 线型 线宽
如果是恢复图层而不是当前使用中的，那个搞不定，无法确定你原来图层使用的是什么颜色 线型 线宽，这三项在图层里是没有随层的

xj6019

taoyi0727 发表于 2019-12-27 23:11
怎么恢复  没有看懂你这个
你是要恢复图层里的 颜色 线型 线宽，还是当前使用中的图层 颜色 线型 线宽
如 ...

应该是属于恢复当前图层吧，因为如果颜色等 变的不随层了，即使切换了图层，颜色等 也不会变

taoyi0727

(defun c:tt (/ doc linetypes)
        (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
        (setq Linetypes (vla-get-Linetypes doc))
        (vla-put-ActiveLinetype doc (vla-Item Linetypes "ByLayer"))
)
只把线型搞定了
颜色 和 线宽研究了好久,不知道怎么弄

zhangcan0515

谢谢老师指导学习到了