指定图层，将该图层对象的颜色改为随层

vladimirputin

都是好资料，受教了！

yangchao2005090

香田里浪人 发表于 2014-10-6 13:18
;;;颜色随层
(DEFUN C:CBY ()
  (setq s (ssget))

2. (defun c:GPSC ()
   
3. (or *qd (setq *qd 256))
   
4.   (setq *qd (cond((getint (strcat "\n输入颜色号 <"(itoa *qd) ">: ")))(*qd)))
   
5.   (vlax-for obj (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
   
6.     (if (member (Vlax-Get obj 'Layer ) (list "SwBzPWJgBz" "SwBzYYJgBz" "SwBzPWXJgBz" "SwBzYYXJgBz" "SwBzJJJgBz"))
   
7.       (Vlax-Put-Property obj 'Color *qd)
   
8.     )
   
9.   )
   
10. )

(defun c:GPSC ()<br /> (or *qd (setq *qd 256))<br />   (setq *qd (cond((getint (strcat "\n输入颜色号 <"(itoa *qd) ">: ")))(*qd)))<br />   (vlax-for obj (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))<br />     (if (member (Vlax-Get obj 'Layer ) (list "SwBzPWJgBz" "SwBzYYJgBz" "SwBzPWXJgBz" "SwBzYYXJgBz" "SwBzJJJgBz"))<br />       (Vlax-Put-Property obj 'Color *qd)<br />     )<br />   ) <br /> )

请问一下大神，这个代码为什么不能实现啊，附cad