有没有办法一键炸开特定图块？

theisland · 发表于 2014-6-6 13:01

拿到别人图中有很多图块，需要炸开处理，一个个编辑很不方便，这些图块有个特点就是块名中都有固定前缀“STR000”，有没有办法将它们一键炸开？炸开前最好能亮显一下，并提示将要炸开多少个这样的块，点确定时就把所有这类图块炸开，希望明经社区的老大们帮忙，谢谢！

清风明月名字 · 发表于 2014-6-6 13:02

本帖最后由清风明月名字于 2014-6-8 07:53 编辑

(defun c:炸开以STR000开头的块 ( / ss) ;只炸开以STR000开头的块
(setvar "qaflags" 1)
(if (setq ss (ssget "X" '((0 . "INSERT")(2 . "STR000*"))))
  (command ".explode" ss "" )
)
(setvar "qaflags" 0)
(IF (= SS NIL)
(PROGN
  (princ  "0个STR000块参照")
(princ  "0")
  );PROGN结束
(PROGN
  (princ  (vl-princ-to-string (sslength ss)))
(princ  "个STR000块参照")
(princ "被炸开")
  (princ )
  );PROGN结束
  );IF结束
)

theisland · 发表于 2014-6-7 10:37

，加班无聊，顺便顶一下帖子

theisland · 发表于 2014-6-7 14:03

清风明月名字发表于 2014-6-7 12:57
(defun c:炸开以STR000开头的块 ( / ss) ;只炸开以STR000开头的块
(setvar "qaflags" 1)
(if (setq ss (s ...

非常感谢，程序很好用！命令行提示能优化下吗？
以下显示的这个提示不是很直观

炸开以STR000开头的块 5个STR000块参照5"5"

theisland · 发表于 2014-6-7 22:27

清风明月名字发表于 2014-6-7 12:57
(defun c:炸开以STR000开头的块 ( / ss) ;只炸开以STR000开头的块
(setvar "qaflags" 1)
(if (setq ss (s ...

5"5" 能不能换成 “被炸开” 几个字呢？

清风明月名字 · 发表于 2014-6-8 07:53

好了，整理了一下

theisland · 发表于 2014-6-8 08:57

清风明月名字发表于 2014-6-7 12:57
(defun c:炸开以STR000开头的块 ( / ss) ;只炸开以STR000开头的块
(setvar "qaflags" 1)
(if (setq ss (s ...

非常满意，谢谢了！

chenbh2 · 发表于 2014-12-23 07:28

清风明月名字发表于 2014-6-6 13:02
(defun c:炸开以STR000开头的块 ( / ss) ;只炸开以STR000开头的块
(setvar "qaflags" 1)
(if (setq ss (s ...

谢谢了,正是需要的.

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

[已解答] 有没有办法一键炸开特定图块？

最佳答案

点评

点评

点评