设置了多个图层。如何做到把对象置入图层的时候颜色不变化？

chenry676

设置了多个图层。如何做到选图元改到当前层（把对象置入图层的时候颜色不变化。

tigcat

先用程序把图元颜色改为对应的颜色，再移动到目标图层

zilong136

改图元前，先把图元的颜色改好（只要不是随层就行了）

bonny

2. (defun c:tt (/ doc la)
   
3.         (if (and (ssget)
   
4.                                 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.                                 (setq la (vla-get-Name(vla-get-ActiveLayer doc)))
   
6.                         )
   
7.                 (progn
   
8.                         (vlax-for e (vla-get-activeselectionset doc)
   
9.                                 (if (= 256 (vla-get-Color e))
   
10.                                         (vla-put-Color e (vla-get-Color (vla-Item (vla-get-Layers doc)(vla-get-Layer e))))
    
11.                                 )
    
12.                                 (vla-put-Layer e la)
    
13.                         )
    
14.                 )
    
15.         )
    
16. )

(defun c:tt (/ doc la)<br />         (if (and (ssget)<br />                                 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />                                 (setq la (vla-get-Name(vla-get-ActiveLayer doc)))<br />                         )<br />                 (progn <br />                         (vlax-for e (vla-get-activeselectionset doc)<br />                                 (if (= 256 (vla-get-Color e))<br />                                         (vla-put-Color e (vla-get-Color (vla-Item (vla-get-Layers doc)(vla-get-Layer e))))<br />                                 )<br />                                 (vla-put-Layer e la)<br />                         )<br />                 )<br />         )<br /> )

chenry676

bonny 发表于 2023-11-25 22:59

好象可以了，十分感谢！

zilong136

bonny 发表于 2023-11-25 22:59

这个就是把对象改为当前图层【不变色】，CAD默认这个命令会改变随层的颜色。
但我在刚才的测试过遇到你这个插件无效的情况，刚开始好好的，可以直接改，后来用着用着命令就无效了，重启CAD重新加载又好了，不知道什么情况。

yefei812678

6楼说的对 支持