社区 › AutoLISP/Visual LISP 编程技术 › 求一键炸块炸到底

pzweng 发表于 2012-4-9 16:02:47

【KAIXIN】 发表于 2012-4-9 12:29 static/image/common/back.gif


这个好象比G版的好，时间短

ynhh 发表于 2012-4-9 16:26:24

我也相看看啊

susanlingb 发表于 2012-4-9 17:02:01

一定要看！

黄玉宏 发表于 2012-4-9 18:21:25

正需要这样的软件谢谢版主了，非常收益！

vlisp2012 发表于 2012-4-9 19:07:00

G版的帖子，一定要顶！！！！

ORCHI 发表于 2012-4-9 19:14:56

G版的东西，绝对支持。

chpmould 发表于 2012-4-9 20:22:55

好象论坛以前有...

zsw23 发表于 2012-4-9 20:29:07

超级小炸弹

669423907 发表于 2012-4-9 20:35:41

看看G版的，顺便分享无痕的：

;炸开嵌套块（无痕.2004.4）
(defun c:xx()
(setvar "qaflags" 1)
(princ"\n炸块")
(setq ss (ssget '((0 . "INSERT" ))))
(while (setq ss (ssget "P" '((0 . "INSERT" ))))
(command ".explode" ss ""))
(setvar "qaflags" 0)
(princ))

菡萏 发表于 2012-4-9 20:49:32

669423907 发表于 2012-4-9 20:35 static/image/common/back.gif
看看G版的，顺便分享无痕的：

;炸开嵌套块（无痕.2004.4）


程序要加上错误处理才算是完整的程序

(defun c:xx(/ *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)
)

查看完整版本: 求一键炸块炸到底