如何两个块互相替换

magicheno

start4444 发表于 2020-5-22 11:47
先把你的问题说清楚吧，两个块是怎样的块？形状什么样？换了后位置怎么定的？基点对齐？还是中点对齐？换 ...

不好意思大侠，表达不清了哈，基点对齐就可以的，能批量的话就更好的，类似这样的图块的

mikewolf2k

magicheno 发表于 2020-5-22 10:53
是的，大侠，该怎么样操作呢

LISP不会，VBA的老早做过了。当初开发的目的也是换阀门图例，阀门编号作为属性不变。

mikewolf2k

严格老说，不是两个互换，是根据excel列表更换，跟别的块无关。

magicheno

mikewolf2k 发表于 2020-5-22 12:15
严格老说，不是两个互换，是根据excel列表更换，跟别的块无关。

大侠VBA的方便分享个么

mikewolf2k

在MS平台上做的， ACAD没做

start4444

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

start4444 发表于 2020-5-22 14:13
(defun c:tt5 ()
(setq en1 (car (entsel "\n选择块1:")) p1 (cdr (assoc 10 (entget en1))))
(setq e ...

试过了可以的，大侠实在感激不尽哈，经常帮忙解决我的一些个人小问题，感谢感谢

magicheno

mikewolf2k 发表于 2020-5-22 13:44
在MS平台上做的， ACAD没做

好吧，还是感谢大侠指点

快乐贝贝

学习中

kuangben8

原地踏步 发表于 2020-5-22 08:55
就用entmod，把两个块的插入点换一下吧。

直接！简单！