关于角度处理的问题

小不

首先  谢谢各位了！
    我的问题是：
首先我先用反正切函数求得一个y/x的值a，我要把这个值用角度输出来，
然后我就用angtos函数输出；
但是在此之前我要先判断y与x的大小，
因为我们专业的坐标系和正常的坐标系是相反的
也就是说我们的x坐标是竖轴，y轴是横轴，
我们的角度是要以竖轴开始顺时针旋转到观测边的角度
这里的a就是我们专业的角度，b就是CAD的角度，所以如果我想当a是45度是可以直接输出，但是a=135度是，cad就是-45度，所以我要把这个-45度加上180度然后输出来，就是这个问题解决不了。就是这个加减180度，然后输出这处理后的角度处理不了了。

xyh

;直接用angle函数得到角度，或用反正切(atan num1 num2)来求得角度。
(defun c:tt()
(setq pt0 (getpoint))
(repeat 8
(setq pt1 (getpoint pt0))
(command "line" pt0 pt1 "")
(setq ang (angle pt0 pt1))
(setq ang2 (rem (+ (- (* 0.5 pi) ang) (* pi 2))(* pi 2)))
(if (> ang2 pi)(setq ang2 (- ang2 (* 2 pi)))) ;返回-pi~pi范围值
;(princ (angtos ang2 0 2))
(princ ang)(princ "\t")
(princ (* (/ ang2 pi) 180))(princ "\n")
)
(princ)
)
;angtos返回角度是0~360度范围，如需-180~180的需用弧度转换。

小不

xyh 发表于 2012-5-16 10:54
;直接用angle函数得到角度，或用反正切(atan num1 num2)来求得角度。
(defun c:tt()
(setq pt0 (getpoint ...

哦 好的 谢了