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

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

如题，谢谢！

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

(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

非常感谢！

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

非常感谢！

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

;;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

非常感谢！

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

就是知道正方形的2个对角点的坐标求另外2个对角点的坐标

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

[已解答] 求以pt1、pt2的中点旋转90度后对应的点坐标p1、p2

浏览过的版块