start4444 发表于 2020-5-22 11:47
先把你的问题说清楚吧，两个块是怎样的块？形状什么样？换了后位置怎么定的？基点对齐？还是中点对齐？换 ...
不好意思大侠，表达不清了哈，基点对齐就可以的，能批量的话就更好的，类似这样的图块的
magicheno 发表于 2020-5-22 10:53
是的，大侠，该怎么样操作呢
LISP不会，VBA的老早做过了。当初开发的目的也是换阀门图例，阀门编号作为属性不变。
严格老说，不是两个互换，是根据excel列表更换，跟别的块无关。
mikewolf2k 发表于 2020-5-22 12:15
严格老说，不是两个互换，是根据excel列表更换，跟别的块无关。
大侠VBA的方便分享个么
在MS平台上做的， ACAD没做
magicheno 发表于 2020-5-22 11:56
不好意思大侠，表达不清了哈，基点对齐就可以的，能批量的话就更好的，类似这样的图块的
(defun c:tt5 ()
(setq en1 (car (entsel "\n选择块1:")) p1 (cdr (assoc 10 (entget en1))))
(setq en2 (car (entsel "\n选择块2:")) p2 (cdr (assoc 10 (entget en2))))
(command "move" en1 "" "non" p1"non" p2 "move" en2 "" "non" p2"non" p1)
)
本帖最后由 magicheno 于 2020-5-22 14:42 编辑
start4444 发表于 2020-5-22 14:13
(defun c:tt5 ()
(setq en1 (car (entsel "\n选择块1:")) p1 (cdr (assoc 10 (entget en1))))
(setq e ...
试过了可以的，大侠实在感激不尽哈，经常帮忙解决我的一些个人小问题，感谢感谢
mikewolf2k 发表于 2020-5-22 13:44
在MS平台上做的， ACAD没做
好吧，还是感谢大侠指点
学习中
原地踏步 发表于 2020-5-22 08:55
就用entmod，把两个块的插入点换一下吧。
直接！简单！