请教这个代码为什么无法选中数字？

lxdz443

(defun c:ee ( / apple_txt nl apple_nl apple_kkj apple_getstr apple_hb1 apple_hb0 apple_oldjd x y z apple_wz apple apple_wz1 zkh zkh1 apple_newjd obj qq nb nb1)
  (vl-load-com)
  (setq apple_txt nil nl nil apple_nl nil apple_kkj nil apple_getstr nil)
  (if (ssget '((0 . "* text")))
    (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
      (setq apple_txt (cons(strcat(vla-get-textstring obj) "*")apple_txt))
      )
    )  
  (setq apple_hb (vl-catch-all-apply 'strcat apple_txt))
  (while (vl-string-search "\\p" apple_hb)
    (setq apple_hb (vl-string-subst "*" "\\p" apple_hb))
    )
  (setq apple_hb0 apple_hb)
  (while
    (setq nb (vl-string-search "{" apple_hb)
          nb1 (vl-string-search "}" apple_hb))
          (setq nl (cons (substr apple_hb (+ nb 1)(- nb1 (- nb 1))) nl))
           (setq apple_hb (substr apple_hb (+ nb1 2)))
          )
    (setq apple_hb1 (vl-catch-all-apply 'strcat nl))
    (mapcar
      '(lambda (x)
         (setq apple_hb0 (vl-string-subst " " x apple_hb0))
         ) nl
      )
    (while
      (setq apple_wz (vl-string-search ";" apple_hb1))
      (setq apple_hb1 (substr apple_hb1 (+ apple_wz 2)))
      (setq zkh (vl-string-search "}" apple_hb1))
      (setq zkh1 (vl-string-search "\\" apple_hb1)
            )
      (cond
        ((null zkh1)(setq qq zkh))
        (t (setq qq (min zkh zkh1)))
        )
      (setq apple_nl (cons (substr apple_hb1 1 (+ qq 1)) apple_nl))
      (setq apple_hb1 (substr apple_hb1 (+ qq 2)))
      )
    (setq apple_nl (cons apple_hb0 apple_nl))
    (setq apple_nl (vl-catch-all-apply 'strcat apple_nl))
    (mapcar '(lambda (y)
               (if (not(or(and(<= y 57)(>= y 48)) (= y 46) (= y 45)))
                    (setq y 32))
                (setq apple_kkj (cons y apple_kkj)))
               (vl-string->list apple_nl)
               )
        (setq apple_kkj (vl-string-trim " " (vl-list->string (reverse apple_kkj))))
        (while
              (setq apple_wz1 (vl-string-search " " apple_kkj))
              (setq apple_getstr (cons (substr apple_kkj 1 apple_wz1) apple_getstr))
              (setq apple_kkj (vl-string-trim " " (substr apple_kkj (+ apple_wz1 2))))
              )
     (setq apple_getstr
        (mapcar '(lambda (z)
        (atof z)
                   )
                (vl-remove "." (vl-remove "-"(cons apple_kkj apple_getstr))))
           )
    (setq apple_jsjg (vl-catch-all-apply '+ apple_getstr))
    (princ "\n&所选文字中数字的和为&:")
    (princ apple_jsjg)
    (cond ((null apple_oldjd) (setq apple_oldjd 2)))
    (initget 4)
    (setq apple_newjd (getint(strcat "\n&输入计算精度&<" (rtos apple_oldjd) ">")))
    (if (not apple_newjd)
      (setq apple_newjd apple_oldjd) (setq apple_oldjd apple_newjd)
      )
    (vl-cmdf ".text" (getpoint "\n&计算结果插入点&:")(getdist "\n&输入字高&:") " " (rtos apple_jsjg 2 apple_newjd))
    (princ)
    )

lxw320

((0 . "*text")) *与text间不能有空格

2. (defun c:ee ( / apple_txt nl apple_nl apple_kkj apple_getstr apple_hb1 apple_hb0 apple_oldjd x y z apple_wz apple apple_wz1 zkh zkh1 apple_newjd obj qq nb nb1)
   
3.         (vl-load-com)
   
4.         (setq apple_txt nil nl nil apple_nl nil apple_kkj nil apple_getstr nil)
   
5.         (if (ssget '((0 . "*text")))
   
6.                 (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   
7.                         (setq apple_txt (cons(strcat(vla-get-textstring obj) "*")apple_txt))
   
8.                 )
   
9.         )  
   
10.         (setq apple_hb (vl-catch-all-apply 'strcat apple_txt))
    
11.         (while (vl-string-search "\\p" apple_hb)
    
12.                 (setq apple_hb (vl-string-subst "*" "\\p" apple_hb))
    
13.         )
    
14.   (setq apple_hb0 apple_hb)
    
15.         (while
    
16.                 (setq nb (vl-string-search "{" apple_hb)
    
17.                         nb1 (vl-string-search "}" apple_hb))
    
18.                 (setq nl (cons (substr apple_hb (+ nb 1)(- nb1 (- nb 1))) nl))
    
19.                 (setq apple_hb (substr apple_hb (+ nb1 2)))
    
20.         )
    
21.         (setq apple_hb1 (vl-catch-all-apply 'strcat nl))
    
22.         (mapcar
    
23.                 '(lambda (x)
    
24.                          (setq apple_hb0 (vl-string-subst " " x apple_hb0))
    
25.                  ) nl
    
26.         )
    
27.         (while
    
28.                 (setq apple_wz (vl-string-search ";" apple_hb1))
    
29.                 (setq apple_hb1 (substr apple_hb1 (+ apple_wz 2)))
    
30.                 (setq zkh (vl-string-search "}" apple_hb1))
    
31.                 (setq zkh1 (vl-string-search "\" apple_hb1)
    
32.                 )
    
33.                 (cond
    
34.                         ((null zkh1)(setq qq zkh))
    
35.                         (t (setq qq (min zkh zkh1)))
    
36.                 )
    
37.                 (setq apple_nl (cons (substr apple_hb1 1 (+ qq 1)) apple_nl))
    
38.                 (setq apple_hb1 (substr apple_hb1 (+ qq 2)))
    
39.         )
    
40.         (setq apple_nl (cons apple_hb0 apple_nl))
    
41.         (setq apple_nl (vl-catch-all-apply 'strcat apple_nl))
    
42.         (mapcar '(lambda (y)
    
43.                                                  (if (not(or(and(<= y 57)(>= y 48)) (= y 46) (= y 45)))
    
44.                                                          (setq y 32))
    
45.                                                  (setq apple_kkj (cons y apple_kkj)))
    
46.                 (vl-string->list apple_nl)
    
47.         )
    
48.         (setq apple_kkj (vl-string-trim " " (vl-list->string (reverse apple_kkj))))
    
49.         (while
    
50.                 (setq apple_wz1 (vl-string-search " " apple_kkj))
    
51.                 (setq apple_getstr (cons (substr apple_kkj 1 apple_wz1) apple_getstr))
    
52.                 (setq apple_kkj (vl-string-trim " " (substr apple_kkj (+ apple_wz1 2))))
    
53.         )
    
54.         (setq apple_getstr
    
55.                 (mapcar '(lambda (z)
    
56.                                                          (atof z)
    
57.                                                  )
    
58.                         (vl-remove "." (vl-remove "-"(cons apple_kkj apple_getstr))))
    
59.         )
    
60.         (setq apple_jsjg (vl-catch-all-apply '+ apple_getstr))
    
61.         (princ "\n所选文字中数字的和为:")
    
62.         (princ apple_jsjg)
    
63.         (cond ((null apple_oldjd) (setq apple_oldjd 2)))
    
64.         (initget 4)
    
65.         (setq apple_newjd (getint(strcat "\n输入计算精度<" (rtos apple_oldjd) ">")))
    
66.         (if (not apple_newjd)
    
67.                 (setq apple_newjd apple_oldjd) (setq apple_oldjd apple_newjd)
    
68.         )
    
69.         (vl-cmdf "text" (getpoint "\n计算结果插入点:")(getdist "\n输入字高:") 0 (rtos apple_jsjg 2 apple_newjd))
    
70.         (princ)
    
71. )

(defun c:ee ( / apple_txt nl apple_nl apple_kkj apple_getstr apple_hb1 apple_hb0 apple_oldjd x y z apple_wz apple apple_wz1 zkh zkh1 apple_newjd obj qq nb nb1)<br />         (vl-load-com)<br />         (setq apple_txt nil nl nil apple_nl nil apple_kkj nil apple_getstr nil)<br />         (if (ssget '((0 . "*text")))<br />                 (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />                         (setq apple_txt (cons(strcat(vla-get-textstring obj) "*")apple_txt))<br />                 )<br />         )  <br />         (setq apple_hb (vl-catch-all-apply 'strcat apple_txt))<br />         (while (vl-string-search "\\p" apple_hb)<br />                 (setq apple_hb (vl-string-subst "*" "\\p" apple_hb))<br />         ) <br />   (setq apple_hb0 apple_hb)<br />         (while<br />                 (setq nb (vl-string-search "{" apple_hb)<br />                         nb1 (vl-string-search "}" apple_hb))<br />                 (setq nl (cons (substr apple_hb (+ nb 1)(- nb1 (- nb 1))) nl))<br />                 (setq apple_hb (substr apple_hb (+ nb1 2)))<br />         )<br />         (setq apple_hb1 (vl-catch-all-apply 'strcat nl))<br />         (mapcar<br />                 '(lambda (x)<br />                          (setq apple_hb0 (vl-string-subst " " x apple_hb0))<br />                  ) nl<br />         )<br />         (while<br />                 (setq apple_wz (vl-string-search ";" apple_hb1))<br />                 (setq apple_hb1 (substr apple_hb1 (+ apple_wz 2)))<br />                 (setq zkh (vl-string-search "}" apple_hb1))<br />                 (setq zkh1 (vl-string-search "\" apple_hb1)<br />                 )<br />                 (cond<br />                         ((null zkh1)(setq qq zkh))<br />                         (t (setq qq (min zkh zkh1)))<br />                 )<br />                 (setq apple_nl (cons (substr apple_hb1 1 (+ qq 1)) apple_nl))<br />                 (setq apple_hb1 (substr apple_hb1 (+ qq 2)))<br />         )<br />         (setq apple_nl (cons apple_hb0 apple_nl))<br />         (setq apple_nl (vl-catch-all-apply 'strcat apple_nl))<br />         (mapcar '(lambda (y)<br />                                                  (if (not(or(and(<= y 57)(>= y 48)) (= y 46) (= y 45)))<br />                                                          (setq y 32))<br />                                                  (setq apple_kkj (cons y apple_kkj)))<br />                 (vl-string->list apple_nl)<br />         )<br />         (setq apple_kkj (vl-string-trim " " (vl-list->string (reverse apple_kkj))))<br />         (while<br />                 (setq apple_wz1 (vl-string-search " " apple_kkj))<br />                 (setq apple_getstr (cons (substr apple_kkj 1 apple_wz1) apple_getstr))<br />                 (setq apple_kkj (vl-string-trim " " (substr apple_kkj (+ apple_wz1 2))))<br />         )<br />         (setq apple_getstr<br />                 (mapcar '(lambda (z)<br />                                                          (atof z)<br />                                                  )<br />                         (vl-remove "." (vl-remove "-"(cons apple_kkj apple_getstr))))<br />         )<br />         (setq apple_jsjg (vl-catch-all-apply '+ apple_getstr))<br />         (princ "\n所选文字中数字的和为:")<br />         (princ apple_jsjg)<br />         (cond ((null apple_oldjd) (setq apple_oldjd 2)))<br />         (initget 4)<br />         (setq apple_newjd (getint(strcat "\n输入计算精度<" (rtos apple_oldjd) ">")))<br />         (if (not apple_newjd)<br />                 (setq apple_newjd apple_oldjd) (setq apple_oldjd apple_newjd)<br />         )<br />         (vl-cmdf "text" (getpoint "\n计算结果插入点:")(getdist "\n输入字高:") 0 (rtos apple_jsjg 2 apple_newjd))<br />         (princ)<br /> )

lxdz443

多谢lxw320，我习惯性的在写完一个单词或者字符后敲一下空格，然后就悲剧了，这个代码我都检查好几遍了，还是有些没检查出来。