交换程序

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

大哥没有问题呀！

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

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

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

我的代码没试吗

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

(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

xiang19751218 先生棋高一着。无论是图层还是角度都能做到，高

账号		自动登录	找回密码
密码			注册

[基础] 交换程序

本帖子中包含更多资源

本帖子中包含更多资源