[求助]：改变对象图层而不改变其颜色的方法

ufosearcher

我在3维模式下用CAD画了一张图，如下彩色图，画的时候是在不同层画的。
现在要求我把所有的图都放在一个层equipment下面，可是我把图选中放到equipment层的时候，几乎所有颜色都消失了，变成白色的了。
有什么办法能不改变颜色只改变图层吗？

ufosearcher

改完图层后的图

小不点儿

选择想要改变颜色的图形，在颜色控制下拉菜单里选择需要的颜色即可。和图层颜色设置一样

ufosearcher

先谢谢了，不过可能我表达的不够清楚
举个例子
我想把  A   图层里的  直线L  放到  B  图层里面，
A图层我设置的是绿色
B图层我设置的是红色
正常情况下L的颜色会随着图层的改变而变成红色，而我不想改变它的颜色，还要他是绿色的。

呵呵 ，有什么办法呢？

aichong

A 图层里的 直线L的颜色不随层，在颜色控制下拉菜单里选择需要的颜色即可。

ufosearcher

呵呵，我那里有1000多个部件，几十种颜色，一个一个选，有的是虽层的颜色，有的是自定义的颜色，我什么时候才能改完啊！
是不是有什么设置，可以在对象转移层的时候，其本身的各种特性都不变！

xshrimp

试试这个.今天中午刚编的.加载后执行命令test
[php]
;;;;图层合并到0层,物体颜色不变
;;xshrimp 2005.11.04
(defun c:test4 ( / el i no objcor_list objlay objlay_list objname ss)
(setvar "CMDECHO" 0)
(setq ss (ssget))
(setq no (sslength ss))
(setq i 0)
(while (< i no)
        (setq objname (ssname ss i));单个元素的名称
        (setq el (entget objname))
      (setq objlay (cdr (assoc 8 el)))
      (setq objlay_list (tblsearch "layer" objlay))
      (setq objcor_list    (assoc 62 objlay_list))
      (setq el (if  (not (assoc 62 el))              
                   (append el (cons objcor_list '()))
                   );end if
                );end setq
      (setq el (subst '(8 . "0") (assoc 8 el) el))         
      (entmod el)  
      (setq i (+ 1 i))
    )
(setvar "clayer" "0")
(princ)
)[/php]

huanyunzui

你可以直接使用"COL"命令呀,又不复杂!

hihsj

老大这个程序对我很有用～特别是有原代码～
学到不少东西～感谢～～

lovebaby

谢谢，test程序非常有用。再次谢谢

歌乐飞扬

不错，很好用，但如果图形有块就要先炸开，再输入命令test才行。

oygn

选项中有随层和随块，不知道在那里面选择有不有用？

花清扬

　　最佳答案：使用特性匹配命令MATCHPROP，不需要其它任何LSP工具，它就是一个超级格式刷子！


　　具体方法：在命令行输入MATCHPROP命令，并使用“S”选项进行设置，勾选你所需要的特性项，它就只匹配这些特性项！比如，你只想改变目标对象的所属图层而不改变其它特性，那就只勾选“图层”好了！

knightlx

ExpressTools 里好像有个工具，可以去看看