[讨论]旋转问题

mmh1

(defun c:nn2()
(setq sel1 (ssget))
(setq sel (entsel "\n选择想要垂直的线:"))
(SETQ dxf (ENTGET (car sel)))
(setq P1 (cdr (assoc 10 DXF)))
(setq P2 (cdr (assoc 11 DXF)))
(command "rotate" sel1 "" p2 "r" p2 p1 90 "")
(princ)
)

为什么有时旋转过头了？

 

上大下小的梯形，可以沿着左边线垂直摆正，如果是上小下大的梯形就会转动很大了

ZZXXQQ

因为p1和p2点可能颠倒。