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

[求助]颜色随层

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

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

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

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

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

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

<p>好贴&nbsp;&nbsp; 有用&nbsp;&nbsp; 感谢了&nbsp; </p>

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

很好好mhk

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

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

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

<p>CAD2008有個setbylayer就可改</p>

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

好贴   有用   感谢了

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

可以用的，谢谢了

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

谢谢楼主的分享！很有意思的代码，收藏备用。
页: [1] 2
查看完整版本: [求助]颜色随层