[求助]炸开块中块，到块

my_autocad · 发表于 2007-10-4 09:42:00

炸开块中块，到块

块中块，就是A块再被定义成B块，甚至B块再被定义成C块，有没有一个程序，可以把文件内所有块中块（B，C），炸开成A块

dasha321 · 发表于 2020-9-9 23:17:52

还是不能用吗？求帮助

jh3030912 · 发表于 2024-8-3 20:50:36

现在解决了吗

无痕 · 发表于 2007-10-5 01:14:00

本帖最后由作者于 2007-10-5 10:36:22 编辑

;;　这是炸开块选集的代码，给你参考一下。自己完善

(DEFUN c:xx (/ fil ss)
(setq fil '((0 . "INSERT")))
(setvar "qaflags" 1);;参数如要恢复，自己加代码
(command ".explode" (ssget fil) "")
(while (setq ss (ssget "p" fil))
(command ".explode" SS "")
)(PRINC)
)

ivde · 发表于 2007-10-5 06:55:00

最后再将炸开的做成块替换初始块

hbshyjch · 发表于 2007-10-6 18:20:00

试验一下

感谢

my_autocad · 发表于 2007-10-8 09:13:00

无痕的程序试用了，程序是炸开块中块到图元，不是炸开块中块到块，可不可以把文件内所有块中块（B，C），炸开成A块啊？

无痕 · 发表于 2007-10-8 13:31:00

;;编程可以实现，要多几行代码，偷懒了，sorry。
;;也可在原来基础上加(command ".u").只是效率没有那么高就是了：）

(DEFUN c:xx (/ fil ss)
(setq fil '((0 . "INSERT")))
(setvar "qaflags" 1);;参数如要恢复，自己加代码
(command ".explode" (ssget fil) "")
(while (setq ss (ssget "p" fil))
(command ".explode" SS "")
)
(command ".u");; 这里，倒回去一步
(PRINC)
)

my_autocad · 发表于 2007-10-8 13:52:00

程序试用了，呵呵，(command ".u");; 是个好办法

但是新的问题又出现了，如果一个块，和一个块中块，一起选中使用命令的话，块就要被炸开！老大，解决一下

alin · 发表于 2007-10-8 15:06:00

要避免炸开A块可以这样改

;;; (xx "A")

(DEFUN xx (blkname / fil ss)
(setq fil (list (cons 0 "INSERT") (cons -4 "<NOT") (cons 2 blkname)(cons -4 "NOT>")))
(setvar "qaflags" 1)
(command ".explode" (ssget fil) "")
(while (setq ss (ssget "p" fil))
(command ".explode" SS "")
)
(setvar "qaflags" 0)
(PRINC)
)

my_autocad · 发表于 2007-10-8 16:24:00

程序试用了，仍然不能避免炸开A，我的CAD是2002

alin · 发表于 2007-10-8 20:05:00

可以把图传上来吗？

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