pzweng 发表于 2012-4-9 10:11:53

求一键炸块炸到底

经常画三维图，好多块中块中块，转二维图的时候必须得炸开，求一程序一次性炸开选中的所有块(包括块中块中块……)

Gu_xl 发表于 2012-4-9 10:49:54

超级炸弹小工具，可以炸开任意嵌套图块，包括不等比嵌套图块！



xiaxiang 发表于 2012-4-9 11:16:30

超级炸弹，好名字！

you_zy 发表于 2018-5-25 14:13:05

(defun C:TT (/ ss i obj)
        (vl-load-com)
(setvar "cmdecho" 1)
(while (setq ss (ssget "X" '((0 . "Insert"))))
                (repeat (setq i (sslength ss))
                        (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))                       
                        (mapcar '(lambda (x) (vlax-invoke obj x)) '(Explode Delete))
                )
        )       
(setvar "cmdecho" 0)
(princ)
)

nt8011 发表于 2012-4-9 10:52:45

G版的程序一定要看！

pzweng 发表于 2012-4-9 11:05:26

Gu_xl 发表于 2012-4-9 10:49 static/image/common/back.gif
超级炸弹小工具，可以炸开任意嵌套图块，包括不等比嵌套图块！
**** 本内容被作者隐藏 ****

能否给我lsp的

cable2004 发表于 2012-4-9 11:45:41

G版的程序一定要看！

tm20038175 发表于 2012-4-9 12:00:09

超级炸弹，看看~~~~~

lingduwx 发表于 2012-4-9 12:13:18

这个一定要顶一下

【KAIXIN】 发表于 2012-4-9 12:24:16

看看，循环砸开应该就可以！

zhuquanmao 发表于 2012-4-9 12:27:04

需要顶 顾版的贴值得看
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 求一键炸块炸到底