[分享]：角度的格式化---转换至-90度-90度

eachy

[php]
;|

在制图标准中对字体的方向是有一定要求的，以象限来分的话，文字的角度
;;应该在 0度 =< a <= 90度
          270 < a < 360
          或者说  -90 < a <= 90

下面的函数用于角度的格式化，在程序中如果有文字生成下面几个函数很可
能你会用到

;;; 角度的标准化  转换至-90度-90度
|;
(setq _2pi (* pi 2.))
(defun ea:angle_format (ang /)
  (setq ang (rem ang _2pi))                ;求大于2π的余数，小于的返回原值
  (if (minusp ang)                        ;ang 为负值时，修正为顺时针角度
    (setq ang (+ ang _2pi))
  )
  (cond                                        ; 2 3象限，包括270度
    ((and
       (> ang (/ pi 2))
       (<= ang (* 1.5 pi))
     )
     (setq ang (- ang pi))
    )
    ((and                                ; 大于270度即第四象限
       (> ang (* 1.5 pi))
       (< ang (* 2 pi))
     )
     (setq ang (- ang (* 2 pi)))
    )
    (T
     ang
    )
  )
  ang
)

;;;度转换为弧度
(defun ea:DTR (j$)
  (* Pi (/ j$ 180.0))
)
;;; 弧度转换为度
(defun ea:RTD (j$)
  (/ (* j$ 180.0) Pi)
)
[/php]

陌生人

0.5PI < a < PI  ,a + PI
PI <= a < 1.5PI  ,a - PI