CAD中如何完成图块替换？

请教：CAD中如何完成图块替换，我知道可以通过重新定义相同的图块名来替换调图中某一同名的所有图块。
但是，比如图中共50个同名图块，某一区域的25需要替换成另一图块，重定义就不行，请教有没有快捷的办法？

发布于2004-12-23 22:42:23

我来答

全部回答（5 ）

cxdcxd6849

还有就是使用 blockreplace 命令但是最好是 cad 完全安装

2008-06-28 11:33:28 来自 PC 评论举报
cxdcxd6849

(defun C:RB (/ SE1 N A0 BN E0 E1)
(prompt "\n选择要替换的图块: ")
(setq SE1 (ssget '((0 . "INSERT")))
)
(if SE1
(progn
(setq BN (getstring "\n来源图块名称/: "))
(if (= BN "")
(progn
(while (= A0 NIL)
(prompt "\n选取来源图块: ")
(setq A0 (ssget ":S" '((0 . "INSERT"))))
)
(setq BN (cdr (assoc 2 (entget (ssname A0 0)))))
)
)
(command "_.insert" BN (command))
(setq N 0)
(repeat (sslength SE1)
(setq E0 (ssname SE1 N)
E1 (entget E0)
)
(setq E1 (subst (cons 2 BN) (assoc 2 E1) E1))
(entmod E1)
(entupd E0)
(setq N (1+ N))
)
)
)
(princ)
)

保存成lsp文件加载使用rb命令可以替换块

2008-06-28 11:28:28 来自 PC 评论举报

加载更多