（完成）[求助]：一串数字，怎样一起增减

krjcxc321

我是菜鸟，能否更详细地告诉我如何加载到晓东工具箱中！谢谢！！！！！

梦断江南

贴两个以前写的.

2. 
   
3. ;;---tval数字text/标高text改值工具————————lxx.2001.2m
   
4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
5. (DEFUN C:tval (/ aa s i ll entt e v nv nvs)
   
6. (princ "\n数字text/标高text改值工具————————lxx.2001.2m")
   
7. (setq aa (getdist "\n差值-可为负值:") s (ssget) i 0 )
   
8. (if (null (setq d (getdist "\n小数点后-精度<3>:")))(setq d 3))
   
9. (REPEAT (SSLENGTH S)
   
10.   (setq ll (ssname s i) entt (entget ll))
    
11.   (if (= "TEXT" (cdr (assoc 0 entt)))
    
12.       (progn
    
13.         (setq e (assoc 1 entt)
    
14.               v (atof (cdr e))
    
15.               nv (+ v aa)
    
16.               nvs(rtos nv 2 3)
    
17.         )
    
18.         (if (= 0.0 nv)(setq nvs (strcat "%%128" nvs)))
    
19.         (setq entt (subst (cons 1 nvs) e entt))
    
20.         (entmod entt)
    
21.       )
    
22.   )
    
23.   (SETQ I (+ 1 I))
    
24. )
    
25. (princ)
    
26. )
    
27. (princ "\n 数字text/标高text改值工具————tval——————lxx.2001.2m")(princ)
    

<br /> ;;---tval数字text/标高text改值工具————————lxx.2001.2m<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br /> (DEFUN C:tval (/ aa s i ll entt e v nv nvs)<br /> (princ "\n数字text/标高text改值工具————————lxx.2001.2m")<br /> (setq aa (getdist "\n差值-可为负值:") s (ssget) i 0 )<br /> (if (null (setq d (getdist "\n小数点后-精度<3>:")))(setq d 3))<br /> (REPEAT (SSLENGTH S)<br />   (setq ll (ssname s i) entt (entget ll))<br />   (if (= "TEXT" (cdr (assoc 0 entt)))<br />       (progn<br />         (setq e (assoc 1 entt) <br />               v (atof (cdr e)) <br />               nv (+ v aa)<br />               nvs(rtos nv 2 3)<br />         )<br />         (if (= 0.0 nv)(setq nvs (strcat "%%128" nvs)))<br />         (setq entt (subst (cons 1 nvs) e entt))<br />         (entmod entt)<br />       )<br />   )<br />   (SETQ I (+ 1 I))<br /> )<br /> (princ)<br /> )<br /> (princ "\n 数字text/标高text改值工具————tval——————lxx.2001.2m")(princ)<br />

2. 
   
3. (princ "\ntxta ====txt add 文字增值 -----------lxx.2002.4")
   
4. (defun c:txta ()
   
5.   (princ "\ntxta====txt add 文字增值-----------lxx.2002.4")
   
6.   (setq ss (ssget '((0 . "TEXT")))
   
7.         nadd (getdist "\n增加值<1>:")
   
8.         dec (getint "\n精度<0>:")
   
9.         i 0)
   
10.   (if (not nadd)(setq nadd 1))
    
11.   (if (not dec)(setq dec 0))
    
12.   (repeat (sslength ss)
    
13.     (setq ent (ssname ss i)
    
14.           entl (entget ent)
    
15.           i (1+ i)
    
16.     )
    
17.     (txtadd entl nadd dec)
    
18.   )
    
19.   (princ)
    
20. )
    
21. ;;;;;txtadd
    
22. (defun txtadd (entl nadd dec /)
    
23.   (setq        bnam0 (cdr(assoc 1 entl)));;;old txt
    
24.   (princ "\n原字串:")(princ bnam0)
    
25.   ;;使得序号不重复
    
26.   (setq nlen (strlen bnam0)
    
27.         n1 1
    
28.         lastn nil)
    
29.   (while (and (/= 0 nlen)(member (substr bnam0 nlen 1) '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" ".")))
    
30.         (setq lastn (atof (substr bnam0 nlen n1));;字串尾序号
    
31.               nlen (1- nlen)
    
32.               n1 (1+ n1)
    
33.         )
    
34.   );;end while
    
35.   (if lastn;;;;;;;;确定新字串---尾序号累加nadd,无序号加nadd
    
36.    (progn (setq lastn (+ lastn nadd))
    
37.           (if (or (= 'INT (type (read bnam0))) (= 'REAL (type (read bnam0))));;当字串如"3"                       
    
38.               (setq bnam (rtos lastn 2 dec))
    
39.               (setq bnam (strcat (substr bnam0 1 nlen) (rtos lastn 2 dec)))
    
40.           )
    
41.    )
    
42.    (progn (setq lastn nadd)         ;;else
    
43.           (if (or (= 'INT (type (read bnam0)))(= 'REAL (type (read bnam0))))
    
44.               (setq bnam (rtos lastn 2 dec))
    
45.               (setq bnam (strcat bnam0 (rtos lastn 2 dec)))
    
46.           )
    
47.    )
    
48.   );;end if
    
49.   (princ " 改为:")(princ bnam)
    
50.   (setq entl (subst (cons 1 bnam) (assoc 1 entl) entl))
    
51.   (entmod entl)(entupd ent)
    
52. )
    
53.                  
    

<br /> (princ "\ntxta ====txt add 文字增值 -----------lxx.2002.4")<br /> (defun c:txta ()<br />   (princ "\ntxta====txt add 文字增值-----------lxx.2002.4")<br />   (setq ss (ssget '((0 . "TEXT")))<br />         nadd (getdist "\n增加值<1>:")<br />         dec (getint "\n精度<0>:")<br />         i 0)<br />   (if (not nadd)(setq nadd 1))<br />   (if (not dec)(setq dec 0))<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss i)<br />           entl (entget ent)<br />           i (1+ i)<br />     )<br />     (txtadd entl nadd dec)<br />   )<br />   (princ)<br /> )<br /> ;;;;;txtadd<br /> (defun txtadd (entl nadd dec /)<br />   (setq        bnam0 (cdr(assoc 1 entl)));;;old txt<br />   (princ "\n原字串:")(princ bnam0)<br />   ;;使得序号不重复<br />   (setq nlen (strlen bnam0)<br />         n1 1<br />         lastn nil)<br />   (while (and (/= 0 nlen)(member (substr bnam0 nlen 1) '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9" ".")))<br />         (setq lastn (atof (substr bnam0 nlen n1));;字串尾序号<br />               nlen (1- nlen)<br />               n1 (1+ n1)<br />         )<br />   );;end while<br />   (if lastn;;;;;;;;确定新字串---尾序号累加nadd,无序号加nadd<br />    (progn (setq lastn (+ lastn nadd))<br />           (if (or (= 'INT (type (read bnam0))) (= 'REAL (type (read bnam0))));;当字串如"3"                        <br />               (setq bnam (rtos lastn 2 dec))<br />               (setq bnam (strcat (substr bnam0 1 nlen) (rtos lastn 2 dec)))<br />           )<br />    )<br />    (progn (setq lastn nadd)         ;;else<br />           (if (or (= 'INT (type (read bnam0)))(= 'REAL (type (read bnam0))))<br />               (setq bnam (rtos lastn 2 dec))<br />               (setq bnam (strcat bnam0 (rtos lastn 2 dec)))<br />           )<br />    )<br />   );;end if<br />   (princ " 改为:")(princ bnam)<br />   (setq entl (subst (cons 1 bnam) (assoc 1 entl) entl))<br />   (entmod entl)(entupd ent)<br /> )<br />                  <br />