gqh123456 发表于 2010-5-14 11:30:00

[求助]用lisp如何将LWPOLYLINE转换为line

[求助]用lisp如何将LWPOLYLINE转换为line用explode命令只能用循环一个个单独炸开，且有“分解此多段线时丢失宽度信息。可用 UNDO 命令恢复。”的提示。
请教有没有其它lisp办法？

Andyhon 发表于 2010-5-14 12:16:00

请上传该(*.dwg)作为调试之用

gqh123456 发表于 2010-5-14 14:18:00

比如附件图中的LWPOLYLINE，用一下程序只能做到一次炸开一根，不能批量炸开。且有“分解此多段线时丢失宽度信息。可用 UNDO 命令恢复。”的提示。(defun c:ttt()
(setq ss (ssget "X" (list (CONS 8 "砼墙")(cons 0 "LWPOLYLINE"))))
(command "EXPLODE" ss "")
)
而人工输入explode命令，输入!ss 选择集却能一次炸开。

gqh123456 发表于 2010-5-14 14:54:00

<p></p><p>这是dwg文件</p>

Andyhon 发表于 2010-5-14 15:06:00

<p>现成的参考:</p><p><a href="http://www.google.com/search?as_q=&amp;hl=zh-cn&amp;num=10&amp;btnG=Google+%E6%90%9C%E5%B0%8B&amp;as_epq=%28command+%22EXPLODE%22+ss&amp;as_oq=&amp;as_eq=&amp;lr=&amp;cr=&amp;as_ft=i&amp;as_filetype=&amp;as_qdr=all&amp;as_occt=any&amp;as_dt=i&amp;as_sitesearch=http%3A%2F%2Fwww.mjtd.com%2Fbbs%2F&amp;as_rights=&amp;safe=images">http://www.google.com/search?as_q=&amp;hl=zh-cn&amp;num=10&amp;btnG=Google+%E6%90%9C%E5%B0%8B&amp;as_epq=%28command+%22EXPLODE%22+ss&amp;as_oq=&amp;as_eq=&amp;lr=&amp;cr=&amp;as_ft=i&amp;as_filetype=&amp;as_qdr=all&amp;as_occt=any&amp;as_dt=i&amp;as_sitesearch=http%3A%2F%2Fwww.mjtd.com%2Fbbs%2F&amp;as_rights=&amp;safe=images</a></p><p></p>

gqh123456 发表于 2010-5-14 18:15:00

<strong><font face="Verdana" color="#61b713">谢谢Andyhon</font></strong>
页: [1]
查看完整版本: [求助]用lisp如何将LWPOLYLINE转换为line