表达式求值
表达式一般来说有三种：前缀表达式、中缀表达式、后缀表达式，其中后缀表达式又叫做逆波兰表达式。中缀表达式是最符合人们思维方式的一种表达式，顾名思义，就是操作符在操作数的中间。而前缀表达式和后缀表达式中操作符分别在操作数的前面和操作数的后面。在写表达式，我们一般用中缀表达式，譬如 1+2*3-4/5。并且按照操作符的优先级进行计算。然而LISP语言是一种前缀表达式，为了把表达式转为LISP函数或者求值，需要进行翻译，添加大量的括号和修改函数的顺序。
这个程序的目的就是使得这一工作变简单。
当然，CAD里面本身也有几种种方式能完成这个，但它们的优缺点容我后面讨论。
程序借鉴了飞诗的一些代码，在此深表感谢。
程序的核心代码如下：
(defun CAL:Operators (lst funs Recursive / fun L n)
(foreach a lst
(if(listp a)
(setq a (CAL:Operators a funs T)) ;如果元素为表，则递归进去
)
(if(setq fun (cdr (assoc (car L) funs))) ;前一个符号为+-*/%^运算符
(if (or (null (setq n (cadr L))) ;前前一个符号为空
(and (VL-SYMBOLP n) (CAL:IsFunction n)) ;或者是函数符号
)
(setq L (cons (list fun a) (cdr L))) ;无须交换位置
(setq L (cons (list fun n a) (cddr L))) ;交换运算符和操作数位置
)
(setq L (cons a L)) ;其他的不做改变
)
)
(setq n (car L))
(if (and Recursive (not (cadr L)) (or (listp n) (numberp n))) ;如果是递归的,而且只有一个元素，且这个元素为表或者数字
n ;那么就只取这个元素，以防止多余括号出现
(reverse L) ;cons运算后的反转表列
)
)
完整代码见附件:
样例：
;;; 例子:
;;; (CAL:Separate "(sin(-x)-cos(-x+(1+8*(2/7))+2^4-5))*0.5-0.5e-20+20*cos(x)+20")
;;; 结果: ((SIN - X) - (COS - X + (1 + 8 * (2 / 7)) + 2 ^ 4 - 5))
;;; (CAL:Expr2Func "(sin(+x)-cos(-x+(1+8*(2/7))+(2^4)-5))*0.5-0.5e-20+20*cos(x)+20" 'test '(x))
;;; 结果: 定义了一个名为test的函数，参数符号为x
;;; (CAL:Expr2Value "(sin(+0.5)-cos(-pi+(1+8*(2/7))+(2^4)-5))*0.5-0.5e-20+20*cos(pi/2)+20")
;;; 结果: 20.6616
讨论:
;;; 以下是关于这个程序的其他方法：
;;; 方法一:用cal函数计算
;;; 如:(cal "1+4+5*2+(5+5)/2+((6+6)/2+(5+5)/2)")
;;; 优点：CAD内置函数。
;;; 缺点：这个函数要求先要加载cal函数.并且三角函数会自动把变量或者数值理解为角度。
;;; 方法二:wcs脚本语言法,无痕提出的一种方法
;;; (setq wcs (vla-GetInterfaceObject (vlax-get-acad-object) "ScriptControl"))
;;; (vlax-put-property wcs "language" "vbs")
;;; (vla-eval wcs "1+4+5*2+(5+5)/2+((6+6)/2+(5+5)/2)");返回 ->31.0
;;; 优点：能按照vb的语法直接计算。
;;; 缺点：难以定义表达式为函数，不能利用自定义函数，在64位CAD上此法行不通，因为不能创建脚本对象。
uti:bench
子程序呢? crtrccrt 发表于 2016-4-24 11:12 static/image/common/back.gif
uti:bench
子程序呢?
uti:bench 是一个测试程序，与本程序无多大关联，只是用于比较几种计算法的速度而已。
我先收藏了，谢谢大师！ 感谢 highflybird 大师分享程序!!!!! 没币下载，求2个。 学习了!!!!!!!!!!!!! 狂顶
用力顶
我用力顶
页:
[1]