如何通过颜色控制图层呢

pop159

请问，如何根据当前颜色自动切换图层，就是说当前颜色如果是红色时，在绘制的时候就自动将绘制好的图样归到某个预设好的图层里，不知道可不可以实现，请教各位啦，谢谢  

yxp

一般不这么做，因为对象自动归到某图层需要使用对象编辑反应器，监视对象的颜色改变，再修改对象的图层。图层的修改将会引起编辑反射，又会产生一个回调，所以编辑反应器有点不好搞。

1. (defun c:changec()(if (null (tblsearch "layer" "redLayer"))(command "-layer" "n" "redLayer" ""))
   
2. (setq obj (vlax-ename->vla-object (car (entsel))))
   
3. (setq objReactor (vlr-object-reactor (list obj) "colorReact" '((:vlr-objectClosed . modeifObj))))
   
4. (princ)
   
5. )
   
6. (defun modeifObj(a b c)
   
7. (if (= (vla-get-Color a) 1)(alert "修改颜色为红色"))
   
8. )

(defun c:changec()(if (null (tblsearch "layer" "redLayer"))(command "-layer" "n" "redLayer" ""))<br /> (setq obj (vlax-ename->vla-object (car (entsel))))<br /> (setq objReactor (vlr-object-reactor (list obj) "colorReact" '((:vlr-objectClosed . modeifObj))))<br /> (princ)<br /> )<br /> (defun modeifObj(a b c)<br /> (if (= (vla-get-Color a) 1)(alert "修改颜色为红色"))<br /> )

可以简化一下，编写一个简单的lisp，运行这个lisp将默认选择所有对象，再逐一分析对象的颜色，归到某个图层。

pop159

谢谢解答，原来是我想多啦，哈