[LISP程序]：我的小小东西，怎样对一堆数同时+-*/

张世杰

感谢CY956
LISP：四则.lsp

2. <normalfont>
   
3. (defun C:四则 ()
   
4.   (PRINT "请选择您要操作的数字")
   
5.   (SETQ S (SSGET))
   
6.   (setq id (load_dialog "四则.dcl"))
   
7.   (if (< id 0)
   
8.     (exit)
   
9.   )
   
10.   (if (not (new_dialog "daxigua" id))
    
11.     (exit)
    
12.   )
    
13.   (setq yuyu 0.)
    
14.   (setq tyty 0)
    
15.   (setq tyty0 3)                        ;先赋一个初值给——按钮;
    
16.   (action_tile "jia" "(setq tyty 0)")
    
17.   (action_tile "jian" "(setq tyty 1)")
    
18.   (action_tile "cheng" "(setq tyty 2)")
    
19.   (action_tile "chu" "(setq tyty 3)")
    
20.   (action_tile "x0" "(setq tyty0 0)")
    
21.   (action_tile "x1" "(setq tyty0 1)")
    
22.   (action_tile "x2" "(setq tyty0 2)")
    
23.   (action_tile "x3" "(setq tyty0 3)")
    
24.   (action_tile "x4" "(setq tyty0 4)")
    
25.   (action_tile "shuzhi" "(setq yuyu(atof $value))")
    
26.   (action_tile "accept" "(done_dialog 1)")
    
27.   (action_tile "cancel" "(done_dialog -1)")
    
28.   (setq sdt (start_dialog))
    
29.   (unload_dialog id)
    
30.   (if (> sdt 0)
    
31.     (progn
    
32.       (setq n (sslength s))
    
33.       (setq kk 0)
    
34.       (while (< kk n)
    
35.         (setq name (ssname s kk))
    
36.         (setq a (entget name))
    
37.         (setq b (assoc '0 a))
    
38.         (setq c (cdr b))
    
39.         (if (= c "TEXT")
    
40. 
    
41.           (progn
    
42.             (setq v0 (atof (cdr (assoc '1 a))))
    
43.             (setq olddimzin (getvar "dimzin"))
    
44.             (setvar "dimzin" 0)
    
45. 
    
46.             (cond ((= 0 tyty) (setq v1 (+ v0 yuyu)))
    
47.                   ((= 1 tyty) (setq v1 (- v0 yuyu)))
    
48.                   ((= 2 tyty) (setq v1 (* v0 yuyu)))
    
49.                   ((= 3 tyty) (setq v1 (/ v0 yuyu)))
    
50.             )
    
51. 
    
52.             (setq v (rtos v1 2 tyty0))        ;转换数字----字符，取多少位小数点。。
    
53. 
    
54.             (setq a (subst (cons 1 v) (assoc '1 a) a))
    
55.             (entmod a)
    
56.             ;;实体更新.如果不加这一行只是屏幕更新
    
57.             (entupd name)
    
58.             (setvar "dimzin" olddimzin)
    
59.             ;;屏幕更新
    
60.           )
    
61. 
    
62.         )
    
63. 
    
64.         (setq kk (1+ kk))
    
65.       )
    
66.     )
    
67.   )
    
68.   (princ)
    
69.   (princ)
    
70. )
    
71. 
    
72. dcl:四则.dcl
    
73. daxigua:dialog{
    
74.         label="运行四则运算";//对话框标签
    
75.         initial_focus="jia";//初始的焦点.
    
76.         :radio_row{label="选择";
    
77.                    :radio_button{label="+";key="jia";value=1;}
    
78.                    :radio_button{label="-";key="jian";}
    
79.                    :radio_button{label="*";key="cheng";}
    
80.                    :radio_button{label="/";key="chu";}
    
81.                    }
    
82.         :edit_box{label="数值";
    
83.                   key="shuzhi";
    
84.                   }
    
85.         :radio_row{label="结果保留几位小数,默认取3位";
    
86.                    :radio_button{label="0";key="x0";}
    
87.                    :radio_button{label="1";key="x1";}
    
88.                    :radio_button{label="2";key="x2";}
    
89.                    :radio_button{label="3";key="x3";value=1;}
    
90.                    :radio_button{label="4";key="x4";}
    
91.                    }          
    
92.                   ok_cancel;
    
93.                   }
    
94. </normalfont>
    

<normalfont><br /> (defun C:四则 ()<br />   (PRINT "请选择您要操作的数字")<br />   (SETQ S (SSGET))<br />   (setq id (load_dialog "四则.dcl"))<br />   (if (< id 0)<br />     (exit)<br />   )<br />   (if (not (new_dialog "daxigua" id))<br />     (exit)<br />   )<br />   (setq yuyu 0.)<br />   (setq tyty 0)<br />   (setq tyty0 3)                        ;先赋一个初值给——按钮;<br />   (action_tile "jia" "(setq tyty 0)")<br />   (action_tile "jian" "(setq tyty 1)")<br />   (action_tile "cheng" "(setq tyty 2)")<br />   (action_tile "chu" "(setq tyty 3)")<br />   (action_tile "x0" "(setq tyty0 0)")<br />   (action_tile "x1" "(setq tyty0 1)")<br />   (action_tile "x2" "(setq tyty0 2)")<br />   (action_tile "x3" "(setq tyty0 3)")<br />   (action_tile "x4" "(setq tyty0 4)")<br />   (action_tile "shuzhi" "(setq yuyu(atof $value))")<br />   (action_tile "accept" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog -1)")<br />   (setq sdt (start_dialog))<br />   (unload_dialog id)<br />   (if (> sdt 0)<br />     (progn<br />       (setq n (sslength s))<br />       (setq kk 0)<br />       (while (< kk n)<br />         (setq name (ssname s kk))<br />         (setq a (entget name))<br />         (setq b (assoc '0 a))<br />         (setq c (cdr b))<br />         (if (= c "TEXT")<br /> <br />           (progn<br />             (setq v0 (atof (cdr (assoc '1 a))))<br />             (setq olddimzin (getvar "dimzin"))<br />             (setvar "dimzin" 0)<br /> <br />             (cond ((= 0 tyty) (setq v1 (+ v0 yuyu)))<br />                   ((= 1 tyty) (setq v1 (- v0 yuyu)))<br />                   ((= 2 tyty) (setq v1 (* v0 yuyu)))<br />                   ((= 3 tyty) (setq v1 (/ v0 yuyu)))<br />             )<br /> <br />             (setq v (rtos v1 2 tyty0))        ;转换数字----字符，取多少位小数点。。<br /> <br />             (setq a (subst (cons 1 v) (assoc '1 a) a))<br />             (entmod a)<br />             ;;实体更新.如果不加这一行只是屏幕更新<br />             (entupd name)<br />             (setvar "dimzin" olddimzin)<br />             ;;屏幕更新<br />           )<br /> <br />         )<br /> <br />         (setq kk (1+ kk))<br />       )<br />     )<br />   )<br />   (princ)<br />   (princ)<br /> )<br /> <br /> dcl:四则.dcl<br /> daxigua:dialog{<br />         label="运行四则运算";//对话框标签<br />         initial_focus="jia";//初始的焦点.<br />         :radio_row{label="选择";<br />                    :radio_button{label="+";key="jia";value=1;}<br />                    :radio_button{label="-";key="jian";}<br />                    :radio_button{label="*";key="cheng";}<br />                    :radio_button{label="/";key="chu";}<br />                    }<br />         :edit_box{label="数值";<br />                   key="shuzhi";<br />                   }<br />         :radio_row{label="结果保留几位小数,默认取3位";<br />                    :radio_button{label="0";key="x0";}<br />                    :radio_button{label="1";key="x1";}<br />                    :radio_button{label="2";key="x2";}<br />                    :radio_button{label="3";key="x3";value=1;}<br />                    :radio_button{label="4";key="x4";}<br />                    }          <br />                   ok_cancel;<br />                   }<br /> </normalfont><br />

bsq

我还是觉得我的好用，又很简单！有兴趣的去看看吧：http://www.xdcad.net/forum/showthread.php?s=&threadid=52410

aeo

把改属性也加进去就更好了