一键炸开CAD图里的所有块

夜曲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)

可以自动点确认吗？

账号		自动登录	找回密码
密码			注册