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

fengyu6913 · 发表于 2024-3-22 17:16

xj6019 · 发表于 2024-3-22 17:16

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

kwok · 发表于 2024-3-22 17:25

(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 · 发表于 2024-3-23 14:25

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

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

kwok · 发表于 2024-3-23 20:09

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

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

ssyfeng · 发表于 2024-3-24 17:19

看看效果

自贡黄明儒 · 发表于 2024-3-25 12:01

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

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

fengyu6913 · 发表于 2024-3-26 18:55

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

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

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

最佳答案

本帖子中包含更多资源