taoyi0727 发表于 2018-7-10 23:46:52

大哥没有问题呀！

357785513 发表于 2018-7-12 07:37:22

你都看到了，交换一下后角度变了，就是交换后角度不能变，因为这两个插座都是转好后靠墙的，交换后旋转了，还是转回原来的角度

pzweng 发表于 2018-7-12 15:59:20

我的代码没试吗

xiang19751218 发表于 2018-7-12 18:36:04

(defun c:tt (/ ent1 ent11 ent2 ent22)
(setq ent1 (entget (car (entsel "\n选取块1:"))))
(setq ent2 (entget (car (entsel "\n选取块2:"))))
(setq ent11 (entmod (subst (cons 2 (cdr (assoc 2 ent2))) (assoc 2 ent1) ent1)) )
(entmod (subst (cons 8 (cdr (assoc 8 ent2))) (assoc 8 ent11) ent11))
(setq ent22 (entmod (subst (cons 2 (cdr (assoc 2 ent1))) (assoc 2 ent2) ent2)) )
(entmod (subst (cons 8 (cdr (assoc 8 ent1))) (assoc 8 ent22) ent22))
(princ)
)

357785513 发表于 2018-7-12 22:16:55

xiang19751218先生棋高一着。无论是图层还是角度都能做到，高
页: 1 [2]
查看完整版本: 交换程序