求一键炸块炸到底

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

【KAIXIN】发表于 2012-4-9 12:29

这个好象比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
看看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)
)

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

求一键炸块炸到底

评分

点评