[其他]：晓东，角度格式化以修正，支持任意角度。

eachy

增加对任意角度支持，包括负角度。
更新文件已发xdsoft@xdcad.com

2. 
   
3. (defun $xdlsp_angle_format (ang /)
   
4. [color=blue] (setq ang (rem ang _2pi))
   
5.   (if (minusp ang)
   
6.     (setq ang (+ ang _2pi))
   
7.   )[/color]
   
8.   (cond                                       ; 2 3象限
   
9.     ((and
   
10.        (> ang (/ pi 2))
    
11.        (<= ang (* 1.5 pi))
    
12.      )
    
13.       (setq ang (- ang pi))
    
14.     )                                       ; 大于270度
    
15.     ((and
    
16.        (> ang (* 1.5 pi))
    
17.        (< ang (* 2 pi))
    
18.      )
    
19.       (setq ang (- ang (* 2 pi)))
    
20.     )
    
21.     (T
    
22.       ang
    
23.     )
    
24.   )
    
25.   ang
    
26. )

<br /> (defun $xdlsp_angle_format (ang /)<br /> [color=blue] (setq ang (rem ang _2pi))<br />   (if (minusp ang)<br />     (setq ang (+ ang _2pi))<br />   )[/color]<br />   (cond                                       ; 2 3象限<br />     ((and<br />        (> ang (/ pi 2))<br />        (<= ang (* 1.5 pi))<br />      )<br />       (setq ang (- ang pi)) <br />     )                                       ; 大于270度<br />     ((and<br />        (> ang (* 1.5 pi))<br />        (< ang (* 2 pi))<br />      )<br />       (setq ang (- ang (* 2 pi)))<br />     )<br />     (T<br />       ang<br />     )<br />   )<br />   ang<br /> )

XDSoft

昨晚我已经改了，所见略同。判断大于2PI，似乎不必要，不会有大于2PI的角度出现的。