请教遮蔽线问题 希望高手帮助!
<font color="#800080">请都高手<br/><br/>;可以多选择，但结果变遮蔽线只能实现单个，是否能实现多选择后都转换成遮蔽线。多谢！ </font><br/><br/><font color="#800080">;遮蔽线不保存原有线--------------------------------------------- </font><br/><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/defun.htm" target="_black"><font color="#0000ff">defun</font></a><font color="#0000ff"><b>c:CF</b></font><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/47.htm" target="_black"><font color="#0000ff">/</font></a> ent<font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/setvar.htm" target="_black"><font color="#0000ff">setvar</font></a>
<font color="#ff00ff">"cmdecho"</font>
<font color="#008000">0</font><font color="#ff0000">)</font><font color="#800080">;关闭回显</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font color="#0000ff">command</font></a>
<font color="#ff00ff">"_.-LAYER"</font>
<font color="#ff00ff">"m"</font>
<font color="#ff00ff">"COVER LINE"</font>
<font color="#ff00ff">"c"</font>
<font color="#ff00ff">"150"</font>
<font color="#ff00ff">"COVER LINE"</font>
<font color="#ff00ff">""</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font color="#0000ff">command</font></a>
<font color="#ff00ff">"_.-LAYER"</font>
<font color="#ff00ff">"s"</font>
<font color="#ff00ff">"COVER LINE"</font>
<font color="#ff00ff">""</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black"><font color="#0000ff">setq</font></a> ent <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/ssget.htm" target="_black"><font color="#0000ff">ssget</font></a><font color="#ff0000">)</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font color="#0000ff">command</font></a>
<font color="#ff00ff">"chprop"</font> ent <font color="#ff00ff">"" "</font>s<font color="#ff00ff">" "</font>100<font color="#ff00ff">" "</font><font color="#ff00ff">" "</font>"<font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font color="#0000ff">command</font></a>
<font color="#ff00ff">"WIPEOUT"</font>
<font color="#ff00ff">"P"</font> ent <font color="#ff00ff">"Y"</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/prompt.htm" target="_black"><font color="#0000ff">prompt</font></a>
<font color="#ff00ff">"原有的图层已删除.\n"</font><font color="#ff0000">)</font><br/> <font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/princ.htm" target="_black"><font color="#0000ff">princ</font></a><font color="#ff0000">)</font><font color="#ff0000">)</font>
<br/>
页:
[1]