求一个lisp程序，帮帮忙！关于数值增加的！

又错了

各位哥哥姐姐，我需要一个这样的程序：


可选一系列的数据，在上面随意的加上一个数，或者是减去一个数，得到的那个数替换原来的数据。


请帮忙，谢谢！

又错了

请哪位哥哥姐姐，帮帮忙，小弟这里多谢了！

yjrun

什么意思?我没有读懂

无痕

（mapcar '(lambda(x)(+ x a)) lst）


a是你要加的数，ｌｓｔ是原来的系列数据．


减去的话，把上面的+　改为　－

nono

(defun c:add ()
(setvar "cmdecho" 0)
(princ "\nSelect Text:")
(setq ss (ssget '((0 . "TEXT"))))
(setq add (getint "\Add number"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssn_data (entget ssn))
(setq num (atoi (cdr (assoc 1 ssn_data))))
(setq New_num (itoa (+ num add)))
(entmod (subst (cons 1 new_num) (assoc 1 ssn_data) ssn_data)
)
(setq i (1+ i))
)
(prin1)
)

changch

这里好象有关于数字的： [求助]数字递增 [ 1 2 ]

又错了

首先，谢谢各位对小弟的帮助，我的这个程序是这样的，举例子说一下：比如有 1.2 1.3 1.5 2.1 1.8 3.6
都减去0.2后，
我想得到 ：1.0 1.1 1.3 1.9 1.6 3.4
就是这样的一个小程序，请大家帮忙，要对实数型操作的，小数保留1位。

xyp1964

参见：把图上的高程加或减一个常数 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=23793

青青20

请看无痕的解答!!!

逻辑非

nono 发表于 2004-10-21 21:36
(defun c:add ()         (setvar "cmdecho" 0)         (princ "\nSelect Text:")         (setq ss (ssget '((0 . "TEXT"))))          ...

都变成整数了  例如原来高程是152.30  用了这个程序后，选+5，数字就改成了155了，