jiajun_16888 发表于 2010-5-20 00:02:00

[求助将下面程序 改为 将白色虚线改为4号线虚线

<p>将下面程序 改为&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 将白色虚线改为4号线虚线</p><p>(defun c:wb (/ sel i sna tb)&nbsp;&nbsp;;change color :White--&gt;Bylayer<br/>&nbsp; (SETVAR "CMDECHO" 0)<br/>&nbsp; (setq&nbsp;sel (ssget '((62 . 7)))<br/>&nbsp;i&nbsp;&nbsp; 0<br/>&nbsp; ) ;_ end of setq<br/>&nbsp; (if sel<br/>&nbsp;&nbsp;&nbsp; (repeat (sslength sel)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq sna&nbsp;(ssname sel i)<br/>&nbsp;&nbsp;&nbsp;&nbsp; tb&nbsp;(entget sna)<br/>&nbsp;&nbsp;&nbsp;&nbsp; tb&nbsp;(subst (cons 62 256) (assoc 62 tb) tb)<br/>&nbsp;&nbsp;&nbsp;&nbsp; i&nbsp;(+ i 1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;end setq<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod tb)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entupd sna)<br/>&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;end repeat<br/>&nbsp;&nbsp;&nbsp; (alert "\nNo Selection!")<br/>&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;;end if<br/>&nbsp; (SETVAR "CMDECHO" 1)<br/>&nbsp; (princ)<br/>) ;_ end of defun</p>

Andyhon 发表于 2010-5-20 10:03:00

&nbsp;(subst (cons 62 256) (assoc 62 tb) tb)<br/>==&gt;<br/>&nbsp;(subst (cons 62 4) (assoc 62 tb) tb)

jiajun_16888 发表于 2010-5-20 21:44:00

谢谢不过没有达到我的意思   

这样子把白色的实线也变颜色了，我想只变白色虚线的颜色

另外我想把BYLAYER的白色虚线也变成4号色虚线
页: [1]
查看完整版本: [求助将下面程序 改为 将白色虚线改为4号线虚线