[讨论]：怎样通过两点求其与x轴的角度?

tsml

已知两点,怎么求两点之间形成的直线(实际无此线)与x轴的角度?有什么函数吗?

fengjianwei

(defun c:test(  / p1 p2 p3 x1 y1 x2 a)
(setq p1 (getpoint "\n线起点"))
(setq p2 (getpoint "\n线终点"))
(setq x1 (car p1))
(setq y1 (cadr p1))
(setq x2 (car p2))
(setq p3 (list (+ x1 100) y1))
(if (= x1 x2)
   (setq a (ang3 p2 p1 p3))
   (setq a 0.0)
  )   
(princ (strcat "\n该线与X轴夹角= " (rtos a 2 2) "度"))
(princ)
)

(defun ang3( p1 p2 p3 / a1 a2 a3 ang )
(setq a1 (angle p2 p1) a2 (angle p2 p3) a3 (- a2 a1))
(setq ang (/ (* a3 180) pi))
(if (< ang 0) (setq ang (+ ang 360)))
(if (> ang 180) (setq ang (- 360 ang)))
)

zml84

[PHP]
;;;两点构成直线 与 X轴正方向夹角
(defun c:test1 (/ p1 p2)
    (if        (setq pt1 (getpoint "\n起点:"))
        (if (setq pt2 (getpoint pt1 "\n终点:"))
            (princ (strcat "\n该线与X轴正方向夹角= "
                           (angtos (angle pt1 pt2) 0 4)
                           "度"
                   )
            )
        )
    )
    (princ)
)

;;;两点构成直线 与 X轴相夹锐角
(defun c:test2 (/ p1 p2 ang)
    (if        (setq pt1 (getpoint "\n起点:"))
        (if (setq pt2 (getpoint pt1 "\n终点:"))
            (progn
                (setq ang (* (/(angle pt1 pt2) pi) 180))
                (princ "\n该线与X轴相夹锐角= ")
                (princ (min ang
                            (abs (- 180. ang))
                            (- 360. ang)
                       )
                )
                (princ "度")
            )
        )
    )
    (princ)
)
[/PHP]