[求助]颜色随层

fting · 发表于 2006-12-23 17:47

即,希望将各个层内的对象的颜色都改成层默认的颜色(而不是bylayer).
不知道有没有快捷的命令或者程序,
求教了,谢谢!

Aries · 发表于 2018-6-13 15:03

谢谢楼主的分享！很有意思的代码，收藏备用。

sailorcwx · 发表于 2006-12-26 18:55

(defun c:setcolor ( / YH_ENTDATA YH_ENTLAYER YH_INDEX YH_SELECTION YH_TIMES)
(princ "选择你要修改的图元\n")
(while (setq YH_selection (ssget))
    (setq YH_times (sslength YH_selection)
   YH_index 0
   )
    (repeat YH_times
      (setq YH_entdata (entget (ssname YH_selection YH_index))
     YH_entlayer (cdr (assoc 8 YH_entdata))
     )
      (if (= (assoc 62 YH_entdata) nil)
(setq YH_entdata (cons (assoc 62 (tblsearch "LAYER" YH_entlayer)) YH_entdata))
(setq YH_entdata (subst (assoc 62 (tblsearch "LAYER" YH_entlayer)) (assoc 62 YH_entdata) YH_entdata))
)
      (entmod YH_entdata)
      (setq YH_index (1+ YH_index))
      )
    )
)

flfcegu168 · 发表于 2008-2-23 19:48

好贴有用感谢了

flfcegu168 · 发表于 2008-2-23 19:48

很好好mhk

liminnet · 发表于 2008-5-15 11:46

提示: 作者被禁止或删除内容自动屏蔽

liminnet · 发表于 2008-5-28 17:08

提示: 作者被禁止或删除内容自动屏蔽

samshs · 发表于 2008-12-19 18:51

CAD2008有個setbylayer就可改

lzg8877 · 发表于 2012-5-8 21:12

好贴有用感谢了

石井鱼 · 发表于 2013-8-2 10:31

可以用的，谢谢了

清风明月名字 · 发表于 2013-8-2 19:13

谢谢楼主的分享！很有意思的代码，收藏备用。

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

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-5-15 11:46 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2008-5-28 17:08 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡