（XD::ToString）任意值转字符串

marting

1. (defun XD::ToString (x / typex)
   
2.   (cond ;;  it's a string, return it double quoted
   
3.         ((eq 'str (setq typex (type x))) (strcat "\"" x "\""))
   
4.         ;; it's a real, with decimal
   
5.         ((and (eq 'real typex) (= (- x (fix x)) 0.0)) ; reali con parte decimale nulla
   
6.          (setq oldsys# (getvar 'dimzin))
   
7.          (setvar 'dimzin 1)             ; variabile sistema dimzin a 1 consente di non sopprimere gli zeri finali nelle quote decimali
   
8.          (setq res$ (rtos x 2 1)) ;_  numeri reali coincidenti con interi trasformati in stringhe con un solo decimale
   
9.          (setvar 'dimzin oldsys#)
   
10.          res$
    
11.         )
    
12.         ;;  it's a real, covert to the highest possible
    
13.         ;;  resolution string equivalent
    
14.         ((eq 'real typex)
    
15.          (rtos x
    
16.                2
    
17.                (if (zerop (- x (fix x)))
    
18.                  1
    
19.                  15
    
20.                )
    
21.          )
    
22.         )
    
23.         ;;  it's a list
    
24.         ((eq 'list typex)
    
25.          (if (vl-list-length x)
    
26.            ;;  it's a normal list
    
27.            (strcat (chr 40)
    
28.                    (XD::ToString (car x))
    
29.                    (apply 'strcat
    
30.                           (mapcar '(lambda (x) (strcat " " (XD::ToString x))) (cdr x))
    
31.                    )
    
32.                    (chr 41)
    
33.            )
    
34.            ;;  it's a dotted pair
    
35.            (strcat (chr 40)
    
36.                    (XD::ToString (car x))
    
37.                    " . "
    
38.                    (XD::ToString (cdr x))
    
39.                    (chr 41)
    
40.            )
    
41.          )
    
42.         )
    
43.         ;;  hammer down on everything else
    
44.         ((vl-princ-to-string x))
    
45.   )
    
46. )
    

(defun XD::ToString (x / typex)<br />   (cond ;;  it's a string, return it double quoted<br />         ((eq 'str (setq typex (type x))) (strcat "\"" x "\""))<br />         ;; it's a real, with decimal <br />         ((and (eq 'real typex) (= (- x (fix x)) 0.0)) ; reali con parte decimale nulla<br />          (setq oldsys# (getvar 'dimzin))<br />          (setvar 'dimzin 1)             ; variabile sistema dimzin a 1 consente di non sopprimere gli zeri finali nelle quote decimali<br />          (setq res$ (rtos x 2 1)) ;_  numeri reali coincidenti con interi trasformati in stringhe con un solo decimale<br />          (setvar 'dimzin oldsys#)<br />          res$<br />         )<br />         ;;  it's a real, covert to the highest possible<br />         ;;  resolution string equivalent<br />         ((eq 'real typex)<br />          (rtos x<br />                2<br />                (if (zerop (- x (fix x)))<br />                  1<br />                  15<br />                )<br />          )<br />         )<br />         ;;  it's a list<br />         ((eq 'list typex)<br />          (if (vl-list-length x)<br />            ;;  it's a normal list<br />            (strcat (chr 40)<br />                    (XD::ToString (car x))<br />                    (apply 'strcat<br />                           (mapcar '(lambda (x) (strcat " " (XD::ToString x))) (cdr x))<br />                    )<br />                    (chr 41)<br />            )<br />            ;;  it's a dotted pair<br />            (strcat (chr 40)<br />                    (XD::ToString (car x))<br />                    " . "<br />                    (XD::ToString (cdr x))<br />                    (chr 41)<br />            )<br />          )<br />         )<br />         ;;  hammer down on everything else<br />         ((vl-princ-to-string x))<br />   )<br /> )<br />

qyming2000

不错，收藏     
来自: 微社区

dyjwyqz5221

(ToString (car x))中的ToString函数在哪里？

newer

dyjwyqz5221 发表于 2021-2-3 16:20
(ToString (car x))中的ToString函数在哪里？

修改了，重拷贝下吧

434939575

字母转换变成大写了，请问有没有不变成大写的办法

229096767

很好用,谢谢分享

wozhengjia

字母转换变成大写了，