AMTONNY 发表于 2009-1-10 19:38:00

[求助]如何过虑框选对象中的图块

<p>请高手出招，如何过虑框选对象中的图块并打散，但是所选取图形中的多段线不能被打散，我自已写的不成功，有人能帮忙吗？如附图所示的图形</p><p>(defun c:XXCC ()<br/>&nbsp; (setq pt0 (getpoint " \n ---&gt;&gt;&gt;框选区域"))<br/>&nbsp; (setq pt1 (getcorner pt0))<br/>&nbsp; (setq s1 (ssget "C" pt0 pt1 '((0. "INSERT"))))<br/>&nbsp; (command "_EXPLODE" S1 "")<br/>&nbsp; (princ)<br/>)<br/></p>

AMTONNY 发表于 2009-1-10 21:53:00

本贴已由网友叶风提供原码解决，在此谢谢过

ZZXXQQ 发表于 2009-1-11 10:24:00


(defun c:XXCC ()
(setq pt0 (getpoint " \n --->>>框选区域"))
(setq pt1 (getcorner pt0))
(setq s1 (ssget "C" pt0 pt1 '((0. "INSERT"))))
(setvar "QAFLAGS" 1)
(command "_EXPLODE" S1 "")
(setvar "QAFLAGS" 0)
(princ)
)

AMTONNY 发表于 2009-1-11 17:52:00

谢谢ZZXXQQ大侠的热心，此帖已经完美解决了，再次谢谢叶风大侠帮忙。
页: [1]
查看完整版本: [求助]如何过虑框选对象中的图块