[原创]：希望工具箱能增加数字批量处理的功能，我编了一个，老大不许笑我！

bsq

这是一个对选中数字进行四则运算的小LISP，希望工具箱能增加类示的一些功能！

2. 
   
3. (defun c:ops (/ a b c x y nd ss index index1 sm el txt)
   
4.   (alert "{y}=a*expt({x} b)+c")
   
5.   (setq a (getreal "\na=?"))
   
6.   (if (= nil a)
   
7.     (setq a 1)
   
8.   )
   
9.   (setq b (getreal "\nb=?"))
   
10.   (if (= nil b)
    
11.     (setq b 1)
    
12.   )
    
13.   (setq c (getreal "\nc=?"))
    
14.   (if (= nil c)
    
15.     (setq c 0)
    
16.   )
    
17.   (setq nd (getint "\nnd=?"))
    
18.   (if (= nil nd)
    
19.     (setq nd 0)
    
20.   )
    
21.   (setq        ss (ssget)
    
22.         index 0
    
23.         index1 0
    
24.         sm 0
    
25.   )
    
26.   (repeat (sslength ss)
    
27.     (setq el        (entget (ssname ss index))
    
28.           index        (1+ index)
    
29.     )
    
30.     (if        (= "TEXT" (cdr (assoc 0 el)))
    
31.       (progn
    
32.         (setq txt (cdr (assoc 1 el)))
    
33.         (setq x (atof txt))
    
34.         (setq y (+ (* a (expt x b)) c))
    
35.         (setq txt (rtos y 2 nd))
    
36.         (setq el (subst (cons 1 txt) (assoc 1 el) el))
    
37.         (entmod el)
    
38.       )                                        ;end pro
    
39.     )                                        ;end if
    
40.   )                                        ;end repeat
    
41.   (princ)
    
42. )
    

<br /> (defun c:ops (/ a b c x y nd ss index index1 sm el txt)<br />   (alert "{y}=a*expt({x} b)+c")<br />   (setq a (getreal "\na=?"))<br />   (if (= nil a)<br />     (setq a 1)<br />   )<br />   (setq b (getreal "\nb=?"))<br />   (if (= nil b)<br />     (setq b 1)<br />   )<br />   (setq c (getreal "\nc=?"))<br />   (if (= nil c)<br />     (setq c 0)<br />   )<br />   (setq nd (getint "\nnd=?"))<br />   (if (= nil nd)<br />     (setq nd 0)<br />   )<br />   (setq        ss (ssget)<br />         index 0<br />         index1 0<br />         sm 0<br />   )<br />   (repeat (sslength ss)<br />     (setq el        (entget (ssname ss index))<br />           index        (1+ index)<br />     )<br />     (if        (= "TEXT" (cdr (assoc 0 el)))<br />       (progn<br />         (setq txt (cdr (assoc 1 el)))<br />         (setq x (atof txt))<br />         (setq y (+ (* a (expt x b)) c))<br />         (setq txt (rtos y 2 nd))<br />         (setq el (subst (cons 1 txt) (assoc 1 el) el))<br />         (entmod el)<br />       )                                        ;end pro<br />     )                                        ;end if<br />   )                                        ;end repeat<br />   (princ)<br /> )<br />

nbsfy

对所选之数字进行加减乘除

2. 
   
3. ;This procedure chang many mumber;
   
4. (DEFUN C:cct()
   
5.   (setq oldcmd(getvar "CMDECHO"))
   
6.   (SETVAR "CMDECHO" 0)
   
7.   (setq ysh (getstring "\n选择运算符号(1减,2乘,3除)<加>:"))
   
8.   (if (= ysh "1") (prompt"\n嗨,朋友,你选择了减号(-)")
   
9.       (if (= ysh "2") (prompt"\n嗨,朋友,你选择了乘号(*)")
   
10.           (if (= ysh "3") (prompt"\n嗨,朋友,你选择了除号(/)")
    
11.               (prompt"\n嗨,朋友,你选择了加号(+)")
    
12.            )
    
13.       )
    
14.    )
    
15.   (initget (+ 1 4))
    
16.   (setq JD (getint "\n请输入精度:"))        
    
17.   (initget (+ 1 2))
    
18.   (setq ysyz  (getdist "-----接下去-----请输入运算因子:"))
    
19.   (prompt"\n选择需修改的文字:")
    
20.   (setq object-s(ssget '((-4 . "<oR")
    
21.                          (0 . "text")
    
22.                          (0 . "MTEXT")
    
23.                          (-4 . "OR>")))
    
24.         ent-num(sslength object-s)
    
25.         cx 0)
    
26.   (while(< cx ent-num)
    
27.     (setq objectx(ssname object-s cx)
    
28.           ed(entget objectx)
    
29.           et(assoc 1 ed)
    
30.           ete(cdr et))
    
31.     (if (= (substr ete 1 3) "%%p") (setq ete (substr ete 4)))
    
32.     (setq len (strlen ete)
    
33.           ccx 1
    
34.           asc1 0)
    
35.     (while (<= ccx len)
    
36.           (setq a (ascii (substr ete ccx)))
    
37.           (if  (or (< a 42) (> a 57))
    
38.               (setq asc1 1)) ;if
    
39.           (setq ccx (+ ccx 1)));while内
    
40.     (if (= asc1 0 )
    
41.         (progn (setq ett (atof ete))
    
42.                (if (and(/= ysh "1")(/= ysh "2")(/= ysh "3"))
    
43.                    (setq ett (+ ett ysyz)))
    
44.                (if (= ysh "1")
    
45.                    (setq ett (- ett ysyz)))
    
46.                (if (= ysh "2")
    
47.                    (setq ett (* ett ysyz)))
    
48.                (if (= ysh "3")
    
49.                    (setq ett (/ ett ysyz)))
    
50.                (setq ete (rtos ett 2 JD);此处决定答案的小数点位数
    
51.                      et (cons 1 ete )
    
52.                      ed (subst et (assoc 1 ed) ed))
    
53.                (entmod ed)));if
    
54.     (setq cx(+ cx 1)));while外
    
55.   (setvar"cmdecho"oldcmd)
    
56.   (Princ cx)
    
57.   (prompt "  objects are changed")
    
58.   (princ)
    
59.   );DEFUN\The procedure chang text\;
    
60. ;-----------------------------------------------
    
61. (prompt "You are successful load cct.lsp")
    
62. (prompt "\n")

<br /> ;This procedure chang many mumber;<br /> (DEFUN C:cct()<br />   (setq oldcmd(getvar "CMDECHO"))<br />   (SETVAR "CMDECHO" 0)<br />   (setq ysh (getstring "\n选择运算符号(1减,2乘,3除)<加>:"))<br />   (if (= ysh "1") (prompt"\n嗨,朋友,你选择了减号(-)")<br />       (if (= ysh "2") (prompt"\n嗨,朋友,你选择了乘号(*)")<br />           (if (= ysh "3") (prompt"\n嗨,朋友,你选择了除号(/)")<br />               (prompt"\n嗨,朋友,你选择了加号(+)")<br />            )<br />       )<br />    )<br />   (initget (+ 1 4))<br />   (setq JD (getint "\n请输入精度:"))        <br />   (initget (+ 1 2))<br />   (setq ysyz  (getdist "-----接下去-----请输入运算因子:"))<br />   (prompt"\n选择需修改的文字:")<br />   (setq object-s(ssget '((-4 . "<oR")<br />                          (0 . "text")<br />                          (0 . "MTEXT")<br />                          (-4 . "OR>")))<br />         ent-num(sslength object-s)<br />         cx 0)<br />   (while(< cx ent-num)<br />     (setq objectx(ssname object-s cx)<br />           ed(entget objectx)<br />           et(assoc 1 ed)<br />           ete(cdr et))<br />     (if (= (substr ete 1 3) "%%p") (setq ete (substr ete 4)))<br />     (setq len (strlen ete)<br />           ccx 1<br />           asc1 0)<br />     (while (<= ccx len)<br />           (setq a (ascii (substr ete ccx)))<br />           (if  (or (< a 42) (> a 57))<br />               (setq asc1 1)) ;if<br />           (setq ccx (+ ccx 1)));while内<br />     (if (= asc1 0 )<br />         (progn (setq ett (atof ete))<br />                (if (and(/= ysh "1")(/= ysh "2")(/= ysh "3"))<br />                    (setq ett (+ ett ysyz)))<br />                (if (= ysh "1")<br />                    (setq ett (- ett ysyz)))<br />                (if (= ysh "2")<br />                    (setq ett (* ett ysyz)))<br />                (if (= ysh "3")<br />                    (setq ett (/ ett ysyz)))<br />                (setq ete (rtos ett 2 JD);此处决定答案的小数点位数<br />                      et (cons 1 ete )<br />                      ed (subst et (assoc 1 ed) ed))<br />                (entmod ed)));if<br />     (setq cx(+ cx 1)));while外<br />   (setvar"cmdecho"oldcmd)<br />   (Princ cx)<br />   (prompt "  objects are changed")<br />   (princ)<br />   );DEFUN\The procedure chang text\;<br /> ;-----------------------------------------------<br /> (prompt "You are successful load cct.lsp")<br /> (prompt "\n")