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

半听可乐

比如  让25.32、24.32、23.32统一加上0.1，变为25.42、24.42、23.42，当然统一加减多少要通过输入数值确定，需要改变的数字可以单选也可以框选

hao3ren

(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
(initget 1)
(setq dt (getreal "\n输入要加的值:"))
(if ss
(progn
(setq n 0 times (sslength ss))
(repeat times
(setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))
(if (member (type number) '(INT REAL))
(progn
(setq data (subst (cons 1 (rtos (+ number dt) 2 2))(assoc 1 data) data))
(entmod data)
)
)
(setq n (1+ n))
)
)
)
(princ)
)

试试这个，还会变整数吗

自贡黄明儒

看这个帖子http://bbs.mjtd.com/thread-95160-1-1.html
这个帖子问题解决了，你的问题就是小case

叮咚

(defun c:rea(/ n times en data dt)
(princ "\n选择数字:")
(setq ss (ssget (list (cons 0 "text"))))
(initget 1)
(setq dt (getreal "\n输入要加的值:"))
(if ss
(progn
(setq n 0 times (sslength ss))
(repeat times
(setq en (ssname ss n) data (entget en) number (read (cdr (assoc 1 data))))
(if (member (type number) '(INT REAL))
(progn
(setq data (subst (cons 1 (rtos (+ number dt)))(assoc 1 data) data))
(entmod data)
)
)
(setq n (1+ n))
)
)
)
(princ)
)

半听可乐

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

你这个数据变化后就成了整数，而且输入小数不管用

半听可乐

自贡黄明儒 发表于 2012-7-18 17:43
看这个帖子http://bbs.mjtd.com/thread-95160-1-1.html
这个帖子问题解决了，你的问题就是小case

链接看了，但还是一头雾水~~~

ZZXXQQ

1. (defun add ()
   
2. (if (and (setq ad (getreal "\n输入加数 :"))
   
3.    (setq ss (ssget '((0 . "TEXT") (1 . "#*#"))))) (progn
   
4.   (setq i -1)
   
5.   (repeat (sslength ss)
   
6.    (setq ent (entget(ssname ss (setq i (1+ i)))))
   
7.    (entmod (subst (cons 1 (rtos (+ (read(cdr(assoc 1 ent))) ad) 2)) (assoc 1 ent) ent))
   
8.   )
   
9. ))
   
10. (princ)
    
11. )
    

(defun add ()<br /> (if (and (setq ad (getreal "\n输入加数 :"))<br />    (setq ss (ssget '((0 . "TEXT") (1 . "#*#"))))) (progn<br />   (setq i -1)<br />   (repeat (sslength ss)<br />    (setq ent (entget(ssname ss (setq i (1+ i)))))<br />    (entmod (subst (cons 1 (rtos (+ (read(cdr(assoc 1 ent))) ad) 2)) (assoc 1 ent) ent))<br />   )<br /> ))<br /> (princ)<br /> )<br />

hao3ren

计算器 by：langjs
;输入样例+5、-6、×7、/8
(defun c:qq ( / ent fu i nu num ss str)
(if (setq ss (ssget '((0 . "*TEXT") (1 . "~*[~.0-9]*"))))
  (progn
  (setq str (getstring " 输入运算符号和数值:") fu (substr str 1 1) nu (atof (substr str 2))
    fu (cond
     ((member fu '("*" "X" "x" "×" )) *)
     ((member fu '("/" "÷")) /)
     ((member fu '("+" "＋")) +)
     ((member fu '("-" "－")) -)
     (tnil)
     )
  )
  (if (and fu nu)
  (repeat (setq i (sslength ss))
    (setq ent (entget (ssname ss (setq i (1- i)))) num (rtos (fu (atof (cdr (assoc 1 ent))) nu) 2 2) )
    (entmod (subst (cons 1 num)(assoc 1 ent)ent))
  )
  (princ "\n 输入错误!")
  )
  )
)
(princ)
)

hao3ren

呵呵，手机回复不方便，二楼的改改就行

xyp1964

工具箱之批量增减