夜曲11110 发表于 2022-2-6 15:07:24

感谢楼主，下载下来试试

至野异族 发表于 2022-3-12 22:14:48

很好用支持。

design0515 发表于 2022-3-27 14:11:36

感谢分享，试试效果

yz_bs_jj 发表于 2022-3-31 07:54:55

命令是啥呢？好楼主？

huxu823 发表于 2022-6-16 22:57:58

感谢分享！！！！

229096767 发表于 2022-6-18 17:26:09

谢谢分享      

Grgogo 发表于 2022-6-28 05:57:17

(defun c:bb(/ *error* ss qf)
(defun *error* (msg)
    (setvar "qaflags" qf)
    (princ msg)
    (princ)
    )
(setq qf (getvar "qaflags"))
(setvar "qaflags" 1)
(princ"\n炸块")
(setq ss (ssget '((0 . "INSERT" ))))
(while (setq ss (ssget "P" '((0 . "INSERT" ))))
(command ".explode" ss ""))
(setvar "qaflags" qf)
(princ)
)


这个怎么样，和你的比起来，哪个更好

ZJKUSO 发表于 2022-6-30 16:20:48

1254888410 发表于 2021-7-21 22:51
还有一种简便点的循环
(defun c:tt1()
(setvar "qaflags" 1)


可以自动点确认吗？
页: 1 2 3 4 5 6 [7]
查看完整版本: 一键炸开CAD图里的所有块