vladimirputin 发表于 2016-10-19 15:16:47

都是好资料，受教了！

yangchao2005090 发表于 2019-8-15 08:35:15

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


(defun c:GPSC ()
(or *qd (setq *qd 256))
(setq *qd (cond((getint (strcat "\n输入颜色号 <"(itoa *qd) ">: ")))(*qd)))
(vlax-for obj (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
    (if (member (Vlax-Get obj 'Layer ) (list "SwBzPWJgBz" "SwBzYYJgBz" "SwBzPWXJgBz" "SwBzYYXJgBz" "SwBzJJJgBz"))
      (Vlax-Put-Property obj 'Color *qd)
    )
)
)请问一下大神，这个代码为什么不能实现啊，附cad
页: 1 [2]
查看完整版本: 指定图层，将该图层对象的颜色改为随层