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

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

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

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

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

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


(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:36

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


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

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

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

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

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

看看效果


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

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:23

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

页: [1]
查看完整版本: 求LISP程序：嵌套块,一键炸到各内嵌块的最内层的块