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

dj0737 · 发表于 2013-8-18 00:13:15

指定图层，将该图层对象的颜色改为随层，哪位高手能用lsp做到？？？？？

llsheng_73 · 发表于 2014-1-9 15:01:46

xiaobaixiaobu 发表于 2013-8-26 13:23
(defun c:cb (/ ss i elist)
(setq i -1)
(repeat (sslength (setq ss (ssget)))

(defun c:cb (/ ss i elist)
  (setq i -1)
  (repeat (sslength (setq ss (ssget)))
(entmod(setq i(1+ i)
   elist(entget(ssname ss i))
   elist(subst'(62 . 256)(if(assoc 62 elist)(assoc 62 elist)(assoc 420 elist))elist))))
  (princ))

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

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

都是好资料，受教了！

dj0737 · 发表于 2013-8-18 04:11:01

指定图层，将该图层的对象改为随层，颜色为黑色，字体为黑体，哪位高手能用lsp做到？？？？？

xiaobaixiaobu · 发表于 2013-8-26 13:23:36

(defun c:cb (/ ss i elist)
  (setq i -1)
  (repeat (sslength (setq ss (ssget)))
(entmod (subst
   '(62 . 256)
   (assoc 62 (setq elist (entget (ssname ss (setq i (1+ i))))))
   elist
   )
)
  )
  (princ)
)

清风明月名字 · 发表于 2013-8-26 20:29:26

谢谢楼主分享，辛苦了！

xiaobaixiaobu · 发表于 2014-1-9 16:22:33

llsheng_73 发表于 2014-1-9 15:01
(defun c:cb (/ ss i elist)
(setq i -1)
(repeat (sslength (setq ss (ssget)))

受教了！

yoyoho · 发表于 2014-2-6 15:55:36

感谢 llsheng_73 分享程序!

香田里浪人 · 发表于 2014-10-6 13:18:09

;;;颜色随层
(DEFUN C:CBY ()
  (setq s (ssget))
  (setvar "cmdecho" 0)
  (COMMAND "CHANGE" "P" "" "P" "COLOR" "ByLayer" "")
  (PRIN1)
)

lengyan · 发表于 2015-1-17 22:30:44

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

太给力了

chenbh2 · 发表于 2015-2-27 10:01:23

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

谢谢!受教育!

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评