求让多个数字统一增加或减少数值的程序

longer1000

论坛上有很多

半听可乐

叮咚 发表于 2012-7-18 18:17
(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
...

你好，我再次试了一下，如图所示，变整数了

半听可乐

hao3ren 发表于 2012-7-19 12:15
(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
...

谢谢你，可以用了

叮咚

半听可乐 发表于 2012-7-19 12:02
你好，我再次试了一下，如图所示，变整数了

2. (defun c:rea(/ n times en data dt)
   
3. (setq old_pre (getvar "luprec"));;;加了这句，主要是单位的问题
   
4. (setvar "luprec" 8);;;还有这句
   
5. (princ "\n选择数字:")
   
6. (setq ss (ssget (list (cons 0 "text"))))
   
7. (initget 1)
   
8. (setq dt (getreal "\n输入要加的值:"))
   
9. (if ss
   
10. (progn
    
11. (setq n 0 times (sslength ss))
    
12. (repeat times
    
13. (setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))
    
14. (if (member (type number) '(INT REAL))
    
15. (progn
    
16. 
    
17. (setq data (subst (cons 1 (rtos (+ number dt)))(assoc 1 data) data))
    
18. (entmod data)
    
19. )
    
20. )
    
21. (setq n (1+ n))
    
22. )
    
23. )
    
24. )
    
25. (setvar "luprec" old_pre)
    
26. (princ)
    
27. )

(defun c:rea(/ n times en data dt)<br /> (setq old_pre (getvar "luprec"));;;加了这句，主要是单位的问题<br /> (setvar "luprec" 8);;;还有这句<br /> (princ "\n选择数字:")<br /> (setq ss (ssget (list (cons 0 "text"))))<br /> (initget 1)<br /> (setq dt (getreal "\n输入要加的值:"))<br /> (if ss<br /> (progn<br /> (setq n 0 times (sslength ss))<br /> (repeat times<br /> (setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))<br /> (if (member (type number) '(INT REAL))<br /> (progn<br /> <br /> (setq data (subst (cons 1 (rtos (+ number dt)))(assoc 1 data) data))<br /> (entmod data)<br /> )<br /> )<br /> (setq n (1+ n))<br /> )<br /> )<br /> )<br /> (setvar "luprec" old_pre)<br /> (princ)<br /> )