求修改文字小数点位数

hn10183051

求修改文字小数点位数~

要求能支持输入保留位数！  谢谢大师~

x_s_s_1

试试

2. (defun c:test (/ ss i n en ent str)
   
3.   (setq ss (ssget '((0 . "text") (1 . "*`.*"))))
   
4.   (setq i (getint "\n保留位数:"))
   
5.   (repeat (setq n (sslength ss))
   
6.     (setq en  (ssname ss (setq n (1- n)))
   
7.     ent (entget en)
   
8.     str (cdr (assoc 1 ent))
   
9.     str (atof str)
   
10.     str (rtos str 2 i)
    
11.     ent (subst (cons 1 str) (assoc 1 ent) ent)
    
12.     )
    
13.     (entmod ent)
    
14.     (entupd en)
    
15.   )
    
16. )

(defun c:test (/ ss i n en ent str)<br />   (setq ss (ssget '((0 . "text") (1 . "*`.*"))))<br />   (setq i (getint "\n保留位数:"))<br />   (repeat (setq n (sslength ss))<br />     (setq en  (ssname ss (setq n (1- n)))<br />     ent (entget en)<br />     str (cdr (assoc 1 ent))<br />     str (atof str)<br />     str (rtos str 2 i)<br />     ent (subst (cons 1 str) (assoc 1 ent) ent)<br />     )<br />     (entmod ent)<br />     (entupd en)<br />   )<br /> )

革天明

要发个dwg才好测试

Vhzeyu

测试为4舍5入的功能，并且末尾不能按小数位数以零保留