[CP原创]VLISP函数: 弧度转换为全角或汉字格式字符串

CamPtt

[CP]VLISP函数: 弧度转换为全角或汉字格式字符串

2. 
   
3. ;;;======================================================================;
   
4. ;;;弧度转换为28°5′20″(全角)或28度5分20秒(汉字)格式字符串              ;
   
5. ;;;======================================================================;
   
6. (defun myvl_RadToStr (Rad Fmt / str)
   
7.   (setq str (angtos Rad 1 6))
   
8.   (if (= Fmt T)
   
9.     (setq str (vl-string-subst "°" "d" str);28°5′20″(全角)
   
10.           str (vl-string-subst "′" "'" str)
    
11.           str (vl-string-subst "″" """ str)
    
12.     )
    
13.     (setq str (vl-string-subst "度" "d" str);28度5分20秒(汉字)
    
14.           str (vl-string-subst "分" "'" str)
    
15.           str (vl-string-subst "秒" """ str)
    
16.     )
    
17.   )
    
18. )
    
19. 
    

<br /> ;;;======================================================================;<br /> ;;;弧度转换为28°5′20″(全角)或28度5分20秒(汉字)格式字符串              ;<br /> ;;;======================================================================;<br /> (defun myvl_RadToStr (Rad Fmt / str)<br />   (setq str (angtos Rad 1 6))<br />   (if (= Fmt T)<br />     (setq str (vl-string-subst "°" "d" str);28°5′20″(全角)<br />           str (vl-string-subst "′" "'" str)<br />           str (vl-string-subst "″" """ str)<br />     )<br />     (setq str (vl-string-subst "度" "d" str);28度5分20秒(汉字)<br />           str (vl-string-subst "分" "'" str)<br />           str (vl-string-subst "秒" """ str)<br />     )<br />   )<br /> )<br /> <br />

li809

好，正是我需要的，收了