㈠ CAD中如何将一个已存在的块替换成另外一个已存在块
最有效的办法：
例如：想把块1的样子换成块2的样子。
1、拷贝一个块2出来，并炸开。
2、把炸开的图形制作成一个块，但是块的名字起成块1的名字。
3、一直点确定。
4、成功了！
这种方法适合于，想把图形中有多处相同的块同时改变的情况。
试试看吧！
㈡ 如何在CAD中用新块替换原有的块
复制到记事本，另存为123.LSP，再cad中加载即可！代码如下
;;**********************************;选定块替换
(defun c:cbt ()
(if (and (setq a (entsel "\nSelect a Block :"))
(setq ent (entget(car a)))
(= (cdr (assoc 0 ent)) "INSERT"))
(if (and (setq b (entsel "\nSelect a Block for change :"))
(setq ent1 (entget(car b)))
(= (cdr (assoc 0 ent)) "INSERT"))
(entmod (subst (assoc 2 ent) (assoc 2 ent1) ent1))
)
)
(princ)
)