[求助]：求助！急！急！

冰城血

还是不明白，楼主说清楚些。

f5612140

LISP程序滿足樓主要求

2. 
   
3. (defun c:test()
   
4.     (setvar "cmdecho" 0)
   
5.     (setvar "dimzin" 0)
   
6.     (setq ss (ssget))
   
7.     (setq ss (ssget "P" '((0 . "TEXT"))))
   
8.     (setq num nil)
   
9.     (initget 4)
   
10.     (setq num (getint "\n小數位數 <3> :"))
    
11.     (if (= num nil)(setq num 3))   
    
12.       
    
13.     (setq j 0)
    
14.     (repeat (sslength ss)
    
15.        (setq mark 0)
    
16.        (setq sname (ssname ss j))
    
17.        (setq endata (entget sname))
    
18.        (setq ent (assoc 1 endata))
    
19.        (setq oldtxt (cdr ent))
    
20.        (setq txtlen (strlen oldtxt))
    
21.        (setq k 1)
    
22.        (repeat txtlen
    
23.           (setq lenk (substr oldtxt k 1))
    
24.           (setq ascnum (ascii lenk))
    
25.           (if (or (and (>= ascnum 65)(<= ascnum 90))
    
26.                        (and (>= ascnum 97)(<= ascnum 122)))
    
27.               (setq mark 1)
    
28.           )
    
29.           (setq k (+ k 1))
    
30.        )
    
31.         (if (/= mark 1)
    
32.             (progn
    
33.                (setq oldtxt1 (atof oldtxt))
    
34.                (setq newtxt (rtos oldtxt1 2 num))
    
35.                (setq newtxt (cons 1 newtxt))
    
36.                (setq endata (subst newtxt ent endata))     
    
37.                (entmod endata)
    
38.             )
    
39.         )
    
40.         (setq j (+ j 1))
    
41.     )
    
42. 
    
43. (prin1)
    
44. )
    
45. (prin1)
    

<br /> (defun c:test()<br />     (setvar "cmdecho" 0)<br />     (setvar "dimzin" 0)<br />     (setq ss (ssget))<br />     (setq ss (ssget "P" '((0 . "TEXT")))) <br />     (setq num nil)<br />     (initget 4) <br />     (setq num (getint "\n小數位數 <3> :"))<br />     (if (= num nil)(setq num 3))    <br />       <br />     (setq j 0)<br />     (repeat (sslength ss)<br />        (setq mark 0) <br />        (setq sname (ssname ss j))<br />        (setq endata (entget sname))<br />        (setq ent (assoc 1 endata))<br />        (setq oldtxt (cdr ent))<br />        (setq txtlen (strlen oldtxt))<br />        (setq k 1)<br />        (repeat txtlen <br />           (setq lenk (substr oldtxt k 1))<br />           (setq ascnum (ascii lenk))<br />           (if (or (and (>= ascnum 65)(<= ascnum 90))<br />                        (and (>= ascnum 97)(<= ascnum 122)))<br />               (setq mark 1)<br />           ) <br />           (setq k (+ k 1))<br />        )<br />         (if (/= mark 1)<br />             (progn <br />                (setq oldtxt1 (atof oldtxt))<br />                (setq newtxt (rtos oldtxt1 2 num))<br />                (setq newtxt (cons 1 newtxt))<br />                (setq endata (subst newtxt ent endata))     <br />                (entmod endata)<br />             )<br />         ) <br />         (setq j (+ j 1))<br />     )<br /> <br /> (prin1)<br /> )<br /> (prin1)<br />