[编程申请]：怎么批量将3位小数变为2位啊

hao3ren

我得图中有很多数字，都是带3位小数得，请问怎么才能一次将其改为两位小数呢

eachy

最初由 hao3ren 发布
[B]我得图中有很多数字，都是带3位小数得，请问怎么才能一次将其改为两位小数呢 [/B]

2. 
   
3. (defun c:tt (/ ss ssl i el str)
   
4.   (if (setq ss (ssget '((0 . "Text"))));_ Only number text
   
5.     (progn
   
6.       (setq ssl        (sslength ss)
   
7.             i        -1
   
8.       )
   
9.       (repeat ssl
   
10.         (setq el  (entget (ssname ss (setq i (1+ i))))
    
11.               str (cdr (assoc 1 el))
    
12.         )
    
13.         (entmod        (subst (cons 1 (rtos (atof str) 2 2))
    
14.                        (assoc 1 el)
    
15.                        el
    
16.                 )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21.   (princ)
    
22. )
    

<br /> (defun c:tt (/ ss ssl i el str)<br />   (if (setq ss (ssget '((0 . "Text"))));_ Only number text<br />     (progn<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq el  (entget (ssname ss (setq i (1+ i))))<br />               str (cdr (assoc 1 el))<br />         )<br />         (entmod        (subst (cons 1 (rtos (atof str) 2 2))<br />                        (assoc 1 el)<br />                        el<br />                 )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

hao3ren

多谢eachy 斑竹，程序很好用

kohi

试试这个:

2. 
   
3. (defun c:test ()
   
4.   (setq n 0)
   
5.   (if (setq ss (ssget "x" '((0 . "Text"))))
   
6.     (while (< n (sslength ss))      
   
7.       (setq obj (vlax-ename->vla-object (ssname ss n)))
   
8.       (vla-put-textstring obj (rtos (atof (vla-get-textstring obj)) 2 2))
   
9.       (setq n (1+ n))
   
10.     )
    
11.   )
    
12. )

<br /> (defun c:test ()<br />   (setq n 0)<br />   (if (setq ss (ssget "x" '((0 . "Text"))))<br />     (while (< n (sslength ss))      <br />       (setq obj (vlax-ename->vla-object (ssname ss n)))<br />       (vla-put-textstring obj (rtos (atof (vla-get-textstring obj)) 2 2))<br />       (setq n (1+ n))<br />     )<br />   )<br /> )

hao3ren

呵呵，好的，同样也多谢楼上的帮忙