编写一个函数让数字保留指定整数和小数位数，【不足补零】！

123523058

；；花季20110212
http://hi.baidu.com/123523058/home

1. (defun C:XS ()
   
2.   (XS)
   
3. )
   
4. (defun xs ()
   
5.   (setq a (ssget '((0 . "TEXT"))))
   
6.   (setq m (getint "输入小数位数: "))
   
7.   (if a
   
8.     (progn
   
9.       (setq i 0)
   
10.       (setq n (sslength a))
    
11.       (while (< i n)
    
12.         (setq e (ssname a i))
    
13.         (setq eb (entget e))
    
14.         (setq eb0 (cdr (assoc 1 eb)))
    
15.         (setq eb0 (atof eb0))
    
16.         (setq eb0 (rtos eb0 2 m))
    
17.         (setq eb2 (str_xsws eb0 m))
    
18.         (setq eb (subst (cons 1 eb2) (assoc 1 eb) eb))
    
19.         (entmod eb)
    
20.         (setq i (1+ i))
    
21.       )
    
22.     )
    
23.   )
    
24. )
    
25. 
    
26. (defun str_xsws        (str xsws / lst xs n bw)
    
27.   (if (/= (vl-string-position (ascii ".") str) nil)
    
28.     (progn (setq lst (HJ-read->biao str "."))
    
29.            (setq xs (cadr lst))
    
30.            (setq n (strlen xs))
    
31.            (if (< n xsws)
    
32.              (progn
    
33.                (setq bw (- xsws n))
    
34.                (repeat bw
    
35.                  (setq xs (strcat xs "0"))
    
36.                )
    
37.              )
    
38.            )
    
39.            (setq str (strcat (car lst) "." xs))
    
40.     )
    
41.     (if        (/= xsws 0)
    
42.       (progn
    
43.         (setq str (strcat str "."))
    
44.         (repeat        xsws
    
45.           (setq str (strcat str "0"))
    
46.         )
    
47.       )
    
48.     )
    
49.   )
    
50.   str
    
51. )
    
52. (defun HJ-READ->BIAO (str fgf / biao s1 i)
    
53.   (setq biao nil)
    
54.   (setq i (vl-string-search fgf str))
    
55.   (while i
    
56.     (setq s1 (substr str 1 i))
    
57.     (setq str (substr str (+ 2 i)))
    
58.     (setq biao (append biao (list s1)))
    
59.     (setq i (vl-string-search fgf str))
    
60.   )
    
61.   (append biao (list str))
    
62. )
    

(defun C:XS ()<br />   (XS)<br /> )<br /> (defun xs ()<br />   (setq a (ssget '((0 . "TEXT"))))<br />   (setq m (getint "输入小数位数: "))<br />   (if a<br />     (progn<br />       (setq i 0)<br />       (setq n (sslength a))<br />       (while (< i n)<br />         (setq e (ssname a i))<br />         (setq eb (entget e))<br />         (setq eb0 (cdr (assoc 1 eb)))<br />         (setq eb0 (atof eb0))<br />         (setq eb0 (rtos eb0 2 m))<br />         (setq eb2 (str_xsws eb0 m))<br />         (setq eb (subst (cons 1 eb2) (assoc 1 eb) eb))<br />         (entmod eb)<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br /> )<br /> <br /> (defun str_xsws        (str xsws / lst xs n bw)<br />   (if (/= (vl-string-position (ascii ".") str) nil)<br />     (progn (setq lst (HJ-read->biao str "."))<br />            (setq xs (cadr lst))<br />            (setq n (strlen xs))<br />            (if (< n xsws)<br />              (progn<br />                (setq bw (- xsws n))<br />                (repeat bw<br />                  (setq xs (strcat xs "0"))<br />                )<br />              )<br />            )<br />            (setq str (strcat (car lst) "." xs))<br />     )<br />     (if        (/= xsws 0)<br />       (progn<br />         (setq str (strcat str "."))<br />         (repeat        xsws<br />           (setq str (strcat str "0"))<br />         )<br />       )<br />     )<br />   )<br />   str<br /> )<br /> (defun HJ-READ->BIAO (str fgf / biao s1 i)<br />   (setq biao nil)<br />   (setq i (vl-string-search fgf str))<br />   (while i<br />     (setq s1 (substr str 1 i))<br />     (setq str (substr str (+ 2 i)))<br />     (setq biao (append biao (list s1)))<br />     (setq i (vl-string-search fgf str))<br />   )<br />   (append biao (list str))<br /> )<br />

Michael527

dimzin的值是8的情况下，下面的代码写出的0.3的后面怎么有一堆0？
(setq pt (getpoint "\n写入点:"))
(setq w 0.3)
(setq w (atof (rtos w 2 2)))
(command ".text" "m" pt "" 0 w )

ZZXXQQ

帮助里不是说了只对rtos有效。你用atof就无效了。

Michael527

ZZXXQQ 发表于 2011-2-12 20:33
帮助里不是说了只对rtos有效。你用atof就无效了。

谢谢，一直没往这方面想啊

461045462

谢谢123523058 与Gu_xl ，11楼的程序收藏了，学到了新的定小数位方式。

prcstone

学习了，呵呵

dafeilang

好东西 收藏了

yan19851204

(defun C:XS ()
  (XS)
)
(defun xs ()
  (setq a (ssget '((0 . "TEXT"))))
  (setq m (getint "输入小数位数: "))
  (if a
    (progn
      (setq i 0)
      (setq n (sslength a))
      (while (< i n)
        (setq e (ssname a i))
        (setq eb (entget e))
        (setq eb0 (cdr (assoc 1 eb)))
        (setq eb0 (atof eb0))
        (setq eb0 (rtos eb0 2 m))
        (setq eb2 (str_xsws eb0 m))
        (setq eb (subst (cons 1 eb2) (assoc 1 eb) eb))
        (entmod eb)
        (setq i (1+ i))
      )
    )
  )
)

(defun str_xsws        (str xsws / lst xs n bw)
  (if (/= (vl-string-position (ascii ".") str) nil)
    (progn (setq lst (HJ-read->biao str "."))
           (setq xs (cadr lst))
           (setq n (strlen xs))
           (if (< n xsws)
             (progn
               (setq bw (- xsws n))
               (repeat bw
                 (setq xs (strcat xs "0"))
               )
             )
           )
           (setq str (strcat (car lst) "." xs))
    )
    (if        (/= xsws 0)
      (progn
        (setq str (strcat str "."))
        (repeat        xsws
          (setq str (strcat str "0"))
        )
      )
    )
  )
  str
)
(defun HJ-READ->BIAO (str fgf / biao s1 i)
  (setq biao nil)
  (setq i (vl-string-search fgf str))
  (while i
    (setq s1 (substr str 1 i))
    (setq str (substr str (+ 2 i)))
    (setq biao (append biao (list s1)))
    (setq i (vl-string-search fgf str))
  )
  (append biao (list str))
)

coco25825

有没有批量把2400改为2.4的命令

fire9527

Gu_xl 发表于 2011-2-11 12:25
回复 461045462 的帖子

G版，程序怎么不提示选择，而把所有数字小数位数都变了呢？