[原创]：文本表达式混合计算程序演示

陌生人

文本表达式混合计算程序核心部分进入最后调试阶段。近期发布。

eachy

有创意，不过我多数还是喜欢用手里的计算器一个个按:)

aeo

cal不是更好?

陌生人

对，cal是很好，除了那个讨厌的最大最小限制 ：）
这个其实是模拟cal做的，加入识别数字文本（这个cal好像没有）
拟支持 封闭曲线面积统计计算，图块计数

ll_j

我在ce.lsp中使用了cal函数，应该说效果很好，可以对图面上一般的四则运算表达式进行计算，相关的处理在函数ce_n中，见下：

2. 
   
3. (defun ce_n(e1 / t1 nt1)
   
4.   (setq nt "" nt1 "" nt0 nil)
   
5.   (setq e1 (ce_strtrim e1))
   
6.   (while (and (/= e1 "") (= nt0 nil))
   
7.     (setq t1 (substr e1 1 1) e1 (substr e1 2))
   
8.     (if (or (/= (member t1 '("." "'" "d" "D" """ "+" "-" "*" "/" "(" ")")) nil)
   
9.             (and (>= (ascii t1) 48) (<= (ascii t1) 57))
   
10.       )
    
11.       (setq nt1 (strcat nt1 t1))
    
12.       (progn
    
13.         (if (or (= t1 "x") (= t1 "X"))     ;将字符“x”、“X”解析为“*”
    
14.           (setq t1 "*")
    
15.           (if (or (and (>= (ascii t1) 65) (<= (ascii t1) 90))
    
16.                   (and (>= (ascii t1) 97) (<= (ascii t1) 122))
    
17.               )
    
18.             (setq t1 "")
    
19.             (setq nt0 1)
    
20.           )
    
21.         )
    
22.         (cond
    
23.           ((= (ascii nt1) 46) (setq nt1 (strcat "0" nt1)))
    
24.           ((= (type (read nt1)) 'INT) (setq nt1 (strcat nt1 ".0")))   ;处理整数
    
25.           (t nil)
    
26.         )
    
27.         (setq nt (strcat nt nt1 t1) nt1 "")
    
28.       )
    
29.     )
    
30.   )
    
31.   (if (and (/= nt1 "") (= nt0 nil))
    
32.     (progn
    
33.       (cond
    
34.         ((= (ascii nt1) 46) (setq nt1 (strcat "0" nt1)))
    
35.         ((= (type (read nt1)) 'INT) (setq nt1 (strcat nt1 ".0")))
    
36.         (t nil)
    
37.       )
    
38.       (setq nt (strcat nt nt1))
    
39.     )
    
40.     (setq nt (strcat nt nt1))
    
41.   )
    
42.   (if (and (= nt0 nil) (/= nt "")) (setq e1[color=red] (c:cal nt)[/color]) (setq e1 0.0))   
    
43. )
    

<br /> (defun ce_n(e1 / t1 nt1) <br />   (setq nt "" nt1 "" nt0 nil)<br />   (setq e1 (ce_strtrim e1))<br />   (while (and (/= e1 "") (= nt0 nil))<br />     (setq t1 (substr e1 1 1) e1 (substr e1 2))<br />     (if (or (/= (member t1 '("." "'" "d" "D" """ "+" "-" "*" "/" "(" ")")) nil)<br />             (and (>= (ascii t1) 48) (<= (ascii t1) 57))<br />       ) <br />       (setq nt1 (strcat nt1 t1))<br />       (progn<br />         (if (or (= t1 "x") (= t1 "X"))     ;将字符“x”、“X”解析为“*”<br />           (setq t1 "*")<br />           (if (or (and (>= (ascii t1) 65) (<= (ascii t1) 90))<br />                   (and (>= (ascii t1) 97) (<= (ascii t1) 122))<br />               )<br />             (setq t1 "")<br />             (setq nt0 1)<br />           )<br />         )<br />         (cond<br />           ((= (ascii nt1) 46) (setq nt1 (strcat "0" nt1)))<br />           ((= (type (read nt1)) 'INT) (setq nt1 (strcat nt1 ".0")))   ;处理整数<br />           (t nil)<br />         )<br />         (setq nt (strcat nt nt1 t1) nt1 "")<br />       )<br />     )<br />   )<br />   (if (and (/= nt1 "") (= nt0 nil))<br />     (progn<br />       (cond<br />         ((= (ascii nt1) 46) (setq nt1 (strcat "0" nt1)))<br />         ((= (type (read nt1)) 'INT) (setq nt1 (strcat nt1 ".0")))<br />         (t nil)<br />       )<br />       (setq nt (strcat nt nt1))<br />     )<br />     (setq nt (strcat nt nt1))<br />   )<br />   (if (and (= nt0 nil) (/= nt "")) (setq e1[color=red] (c:cal nt)[/color]) (setq e1 0.0))   <br /> )<br />

陌生人

仅仅四则运算就不必劳繁cal大驾了。我觉得cal最大的特点是可以支持变量，表达式。可惜有最大最小数的限制，曾经想过把运算的数字变小，用cal计算，然后放大还原，不过没有深入，也还没写程序出来。
但是你程序中 对“x”解析成* 我觉得很好：）

zhynt

应做成对话框版本。

陌生人

哈哈，说的好，做对话框这方面我是要多菜有多菜，以后还要请教zhynt版主做对话框的技巧。

ll_j

最初由 陌生人 发布
[B]仅仅四则运算就不必劳繁cal大驾了。我觉得cal最大的特点是可以支持变量，表达式。可惜有最大最小数的限制，曾经想过把运算的数字变小，用cal计算，然后放大还原，不过没有深入，也还没写程序出来。
但是你程序中 对... [/B]

我这里所说的四则运算是指写在图面上的算式，在材料表中经常会用到，如“30x4”、“30x4+27”等等，这些算式虽然简单，但如果自己解析成Lisp能接受的算式，则会有些麻烦。

lt_zzy

好东西，这个的源程序在什么地方？

ll_j

就是这里：http://www.xdcad.net/forum/showthread.php?threadid=27605
程序太长，也没有什么注解，看起来会比较费劲。

lt_zzy

对不起，长老，我并没有你估计的那么厉害。
我只是想想用这个程序，来减少工作量。
谢谢你！

ksh2003

提高工作效率的有效工具：

操作数、计算结果均为一组文本

具有选择一列、一行的功能，用它修改钢筋数量表是一件非常轻松的事情

计算结果不用手工输入，只需用鼠标拾取

如果你喜欢计算器或者觉得不用计算器浪费，这个程序不适合你

                               
登录/注册后可看大图

dwg001

挺实用。

hao3ren

感觉本站得那个cad计算器不错，算钢筋表很好用得