如何在增量的同时，为生成的结果都加上一个单位呢

qq284417238

诚求帮助，谢谢
下面的源码的用途是：为选中内容批量增加一量值（但修改之后的数值都是没有单位的）
如何修改这个程序，使得生成的每个结果能包含后缀ｍ
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
;本程序将指定数字增加一量值
(defun c:nnnn( / sset ct num ed ent temp temp1 value)
(princ "\nDecrease the value of selected text, Version 1.0, (c) 1999 by Z.L.Wang")
(prompt "\nSelect text to change: ")
(setq sset (ssget '((0 . "TEXT"))))
(if (null sset)
(progn
(princ "\nNothing selected.")
(exit)
)
)
(setq value (getreal "请输入增量: "))
(setq ct 0)
(setq num (sslength sset))
(repeat num
(setq ent (ssname sset ct))
(setq ed(entget ent))
(setq temp (assoc 1 ed))
(setq temp1 (atof (cdr temp)))
(setq temp1 (+ temp1 value))
(setq temp (rtos temp1 2 3))
(setq ed (subst (cons 1 temp) (assoc 1 ed) ed))
(entmod ed)
(setq ct (+ 1 ct))
)
)

ZZXXQQ

2. (defun c:nnnn ( / sset ct ed temp value)
   
3. (princ "\nDecrease the value of selected text, Version 1.0, (c) 1999 by Z.L.Wang")
   
4. (prompt "\nSelect text to change: ")
   
5. (if (and (setq sset (ssget '((0 . "TEXT"))))
   
6.          (setq value (getreal "请输入增量: "))) (progn
   
7.   (setq ct 0)
   
8.   (repeat (sslength sset)
   
9.     (setq ed (entget (ssname sset ct)))
   
10.     (setq temp (atof (cdr (assoc 1 ed))))
    
11.     (setq temp (strcat (rtos (+ temp value) 2 3) "m"))
    
12.     (entmod (subst (cons 1 temp) (assoc 1 ed) ed))
    
13.     (setq ct (1+ ct))
    
14.   )
    
15. )
    
16.   (princ "\nNothing selected.")
    
17. )
    
18. )

(defun c:nnnn ( / sset ct ed temp value)<br /> (princ "\nDecrease the value of selected text, Version 1.0, (c) 1999 by Z.L.Wang")<br /> (prompt "\nSelect text to change: ")<br /> (if (and (setq sset (ssget '((0 . "TEXT"))))<br />          (setq value (getreal "请输入增量: "))) (progn<br />   (setq ct 0)<br />   (repeat (sslength sset)<br />     (setq ed (entget (ssname sset ct)))<br />     (setq temp (atof (cdr (assoc 1 ed))))<br />     (setq temp (strcat (rtos (+ temp value) 2 3) "m"))<br />     (entmod (subst (cons 1 temp) (assoc 1 ed) ed))<br />     (setq ct (1+ ct))<br />   )<br /> )<br />   (princ "\nNothing selected.")<br /> )<br /> )

qq284417238

ZZXXQQ 发表于 2015-7-17 10:23

谢谢帮忙，已经完美解决我的问题了。非常感谢