tender138 发表于 2013-12-20 23:36:20

求以pt1、pt2的中点旋转90度后对应的点坐标p1、p2

如题，谢谢！

llsheng_73 发表于 2013-12-20 23:51:49

(setq pt1(getpoint)pt2(getpoint))
(setq d(*(distance pt1 pt2)0.5)
      ang(angle pt1 pt2)
      p2(polar pt1 ang d)
      p1(polar p2(- ang(* pi 0.5))d)
      p2(polar p2(+ ang(* pi 0.5))d))
;;(command"line" pt1 pt2"")
;;(command"line" p1 p2"")
      

tender138 发表于 2013-12-20 23:55:01

非常感谢！

tender138 发表于 2013-12-20 23:56:00

非常感谢！

自贡黄明儒 发表于 2013-12-21 08:11:43

;;133.1 [功能] 旋转一个点(见113)
;;Rotate 'pnt'点 from a base point of 'p1' and through an angle
;;of 'ang' (in radians)
(defun MJ:rotate_pnt (pnt p1 ang /)
(polar p1 (+ (angle p1 pnt) ang) (distance p1 pnt))
)

tender138 发表于 2013-12-21 08:52:23

非常感谢！

蓝图测绘 发表于 2013-12-21 11:09:17

就是知道正方形的2个对角点的坐标求另外2个对角点的坐标
页: [1]
查看完整版本: 求以pt1、pt2的中点旋转90度后对应的点坐标p1、p2