如何选择单行文本、多行文本中的数字？

hpy

用(setq ss (ssget '((0 . "TEXT,MTEXT")) ))可以选择单行文本、多行文本。如果只想选择单行文本、多行文本中的数字而把字母、汉字过滤掉，请问应该如何做？

alin

2.    ; By Bill Kramer
3. (defun String_To_Numbers (
4.          inStr   ;;Input string
5.          /
6.          Res       ;;Result list
7.          Buf       ;;String buffer
8.          Inx           ;;Character location
9.          CH         ;;Character
10.          )
11.    (setq Inx 1 ;start at the beginning of the string
12.   Buf "" ;init buffer to empty
13.   )
14.    ;
15.    ; Loop until the end of the string.
16.    ; (I indicates where we are in the string)
17.    ;
18.    (while (<= Inx (strlen inStr))
19.        ;
20.        ; Get the character at position Inx, increment position indicator
21.        (setq CH (substr inStr Inx 1)
22.      Inx (1+ Inx)
23.      )
24.        ;
25.        (cond
26.            ; Test to see if character is a digit.
27.            ((wcmatch CH "[0-9.]")
28.                (if (= CH ".") ;is it decimal?
29.      (if (not (wcmatch Buf "*`.*")) ;not already in there
30.          (setq Buf (strcat Buf CH))
31.          (Flush_Buf))
32.      ;
33.                    (setq Buf (strcat Buf CH)))
34.            )
35.            ((= Buf "") ;is the buffer empty?
36.                ;Is CH minus
37.   (if (= CH "-")
38.      (setq Buf CH) ;Yes, save in Buf
39.   )
40.            )
41.            ('T ;else buffer is not empty
42.                (Flush_Buf)
43.                (if (= CH "-")
44.      (setq Buf CH))
45.            )
46.        ); End of COND
47.    ); End of WHILE
48.    ;
49.    (if (and (/= Buf "")
50.        (not (wcmatch Buf "[+-.]"))
51.        )
52.        (Flush_Buf))
53.    (reverse Res)
54. )
55. ;
56. ; ------------------------------------------------------ Listing 4.5
57. ;
58. (defun Flush_Buf ()
59.    (if (not (wcmatch Buf "[+-.]")) ;is it not just +-.?
60.        (progn
61.            ;Clean it up first
62.            (if (= (substr Buf 1 1) ".")
63.   (setq Buf (strcat "0" Buf))) ;;add zero to front if .#
64.            (if (= (substr Buf (strlen Buf)) ".")
65.   (setq Buf (substr Buf 1 (1- (strlen Buf))))) ;;remove decimal if #.
66.            ;Add to RES list
67.            (setq RES (cons Buf RES))))
68.    (setq Buf "") ;;reset Buf
69. )

   ; By Bill Kramer (defun String_To_Numbers (          inStr   ;;Input string          /          Res       ;;Result list          Buf       ;;String buffer          Inx           ;;Character location          CH         ;;Character          )    (setq Inx 1 ;start at the beginning of the string   Buf "" ;init buffer to empty   )    ;    ; Loop until the end of the string.    ; (I indicates where we are in the string)    ;    (while (<= Inx (strlen inStr))        ;        ; Get the character at position Inx, increment position indicator        (setq CH (substr inStr Inx 1)      Inx (1+ Inx)      )        ;        (cond            ; Test to see if character is a digit.            ((wcmatch CH "[0-9.]")                (if (= CH ".") ;is it decimal?      (if (not (wcmatch Buf "*`.*")) ;not already in there          (setq Buf (strcat Buf CH))          (Flush_Buf))      ;                    (setq Buf (strcat Buf CH)))            )            ((= Buf "") ;is the buffer empty?                ;Is CH minus   (if (= CH "-")      (setq Buf CH) ;Yes, save in Buf   )            )            ('T ;else buffer is not empty                (Flush_Buf)                (if (= CH "-")      (setq Buf CH))            )        ); End of COND    ); End of WHILE    ;    (if (and (/= Buf "")        (not (wcmatch Buf "[+-.]"))        )        (Flush_Buf))    (reverse Res) ) ; ; ------------------------------------------------------ Listing 4.5 ; (defun Flush_Buf ()    (if (not (wcmatch Buf "[+-.]")) ;is it not just +-.?        (progn            ;Clean it up first            (if (= (substr Buf 1 1) ".")   (setq Buf (strcat "0" Buf))) ;;add zero to front if .#            (if (= (substr Buf (strlen Buf)) ".")   (setq Buf (substr Buf 1 (1- (strlen Buf))))) ;;remove decimal if #.            ;Add to RES list            (setq RES (cons Buf RES))))    (setq Buf "") ;;reset Buf )