求LISP程序：嵌套块,一键炸到各内嵌块的最内层的块

fengyu6913

求LISP程序：嵌套块,一键炸到各内嵌块的最内层的块

xj6019

http://bbs.mjtd.com/thread-183752-1-1.html
试试大佬的作品

kwok

(defun c:tt (/  ss qq)
  (setq qq (getvar "qaflags"))
  (setvar "qaflags" 1)
  (setq ss (ssget '((0 . "INSERT")(66 . 0))))
  (while (setq ss (ssget "P" '((0 . "INSERT")(66 . 0))))
    (command ".explode" ss "")
  )
  (setvar "qaflags" qq)
  (princ)
)

fengyu6913

kwok 发表于 2024-3-22 17:25
(defun c:tt (/  ss qq)
  (setq qq (getvar "qaflags"))
  (setvar "qaflags" 1)

貌似没用到库文件啦，提示: 参数太少
大佬，烦请看下是不是个人系统的原因

kwok

fengyu6913 发表于 2024-3-23 14:25
貌似没用到库文件啦，提示: 参数太少
大佬，烦请看下是不是个人系统的原因

上面那个是一键块全炸开。不适合留最后一层块.
看错了以为全炸开.

ssyfeng

看看效果

自贡黄明儒

kwok 发表于 2024-3-22 17:25
(defun c:tt (/  ss qq)
  (setq qq (getvar "qaflags"))
  (setvar "qaflags" 1)

还是老迈前几天在QQ群中的写法好，在(command ".explode" ss "")之后加一句，如果命令没有结束，就增加回车，这样就不用关心qaflags和是否属性块的问题了

fengyu6913

xj6019 发表于 2024-3-25 14:09
http://bbs.mjtd.com/thread-183752-1-1.html
试试大佬的作品