坐标方位角计算

lishucheng96

1. ;;计算坐标方位角函数
   
2. ;;(azimuth (getpoint) (getpoint))
   
3. ;;返回从pt1到pt2的方位角弧度值
   
4. ;;by 半边书生 2016/04/29
   
5. (defun azimuth (pt1 pt2 / dxy fwj)
   
6.   (setq dxy (mapcar '- pt2 pt1))
   
7.   (setq fwj (atan (car dxy) (cadr dxy)))
   
8.   (if (< fwj 0) (setq fwj (+ fwj (* 2 pi))))
   
9.   fwj
   
10. )
    

;;计算坐标方位角函数<br /> ;;(azimuth (getpoint) (getpoint))<br /> ;;返回从pt1到pt2的方位角弧度值<br /> ;;by 半边书生 2016/04/29<br /> (defun azimuth (pt1 pt2 / dxy fwj)<br />   (setq dxy (mapcar '- pt2 pt1))<br />   (setq fwj (atan (car dxy) (cadr dxy)))<br />   (if (< fwj 0) (setq fwj (+ fwj (* 2 pi))))<br />   fwj<br /> )<br />

lishucheng96

应该是最简的计算坐标方位角的代码了，根本不需要用象限法