请meflying答复(ssget "_p")问题

LIHUISHUAN

飞哥好： 如附图所示，选中所有图元，explode三次，图元个数分别为15，292，496 而我用lisp代码如下：请指正 (command "undo" "be")
(setq ss1 (ssget))
(SETQ N1 (SSLENGTH SS1))
(command "explode" ss1 "")
(setq ss1 (ssget "_p"))
(SETQ N1 (SSLENGTH SS1))
(command "explode" ss1 "")
(setq ss1 (ssget "_p"))
(SETQ N1 (SSLENGTH SS1))
(command "explode" ss1 "")
(setq ss1 (ssget "_p"))
(SETQ N1 (SSLENGTH SS1))
(command "undo" "e")

LIHUISHUAN

执行后显示错误，而且explode后图元个数也不对，请高手指点，谢谢！

LIHUISHUAN

问题解决了，但循环次数太多，有没有更高效的办法？在图形界面explode 3次就能解决问题，走程序要300次，问题到底处在哪? 请指教！谢谢！ (command "undo" "be")
(setq ss1 (ssget))
(setq ptl(ssnamex ss1 0))
(setq pt1 (cadr(car(cdr(assoc -1 ptl )))))
(setq pt2 (cadr(caddr(cdr(assoc -1 ptl )))))
(SETQ N1 (SSLENGTH SS1))
(repeat 300
(command "_explode" ss1 "")
(setq ss1 (ssget "_c" pt1 pt2))
(SETQ N1 (SSLENGTH SS1))
)
(command "undo" "e")

无痕

用程序炸开多个不是已经解决了么？


怎么久不久又来搞一个？

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=13604&replyID=61702&skin=1

LIHUISHUAN

请飞哥试一下我上传的dwg图，用您的程序执行一次后图元个数为77个，在图形界面explode一次后图元个数为77个，问题还是没解决，是否存在他问题，请指教！

meflying

你的要求并不是炸开所有的块。。。而是能炸的东西都炸开（如：MTEXT可以炸为TEXT，PLINE可以炸为LINE）。。。


(setvar "qaflags" 1)


(repeat 3 (command "_.explode" "all" ""))


即可

LIHUISHUAN

谢谢您！问题解决了。 这次学到了不少东西，感谢您的无私帮助！ (setvar "qaflags" 1)
(setq ss1 (ssget))
(setq ptl (ssnamex ss1 0))
(setq pt1 (cadr (car (cdr (assoc -1 ptl)))))
(setq pt2 (cadr (caddr (cdr (assoc -1 ptl)))))
(setq n1 (sslength ss1))
(repeat 3
(command "_.explode" ss1 "")
(setq ss1 (ssget "_c" pt1 pt2))
(setq n1 (sslength ss1))
) 您帮看一下有没有更简洁的办法？

LIHUISHUAN

(setvar "qaflags" 1)
(setq ss(ssget))
(repeat 3
(command "_.explode" ss "")
(setq ss (ssget "p"))
) 更简单，谢谢!

Ea

2. (defun c:test (/ ss)
3.    (while (setq ss (ssget "x" '((0 . "Mtext,Dimension,insert,*polyline,3d*,region"))))
4.        (command ".explode" ss "")
5.    )
6. )

(defun c:test (/ ss)    (while (setq ss (ssget "x" '((0 . "Mtext,Dimension,insert,*polyline,3d*,region"))))        (command ".explode" ss "")    ) )