关于数学表达式求值

Lisphk

字符串的表达式，比如："1+2*3+sin(PI / 4.0)", 求值这个字符串，有什么好的写法？

csharp

c:cal               

marting

下面代码可以做，但限制是只能做32位的CAD下

1. (defun evalExpress ( expr / scr res )
   
2.   (if (setq scr (vla-getinterfaceobject (vlax-get-acad-object) "ScriptControl"))
   
3.       (progn
   
4.           (vl-catch-all-apply 'vlax-put-property (list scr 'language "VBScript"))
   
5.           (setq res (vl-catch-all-apply 'vlax-invoke (list scr 'eval expr)))
   
6.           (vlax-release-object scr)
   
7.           (if (not (vl-catch-all-error-p res)) res)
   
8.       )
   
9.   )
   
10. )

(defun evalExpress ( expr / scr res )<br />   (if (setq scr (vla-getinterfaceobject (vlax-get-acad-object) "ScriptControl"))<br />       (progn<br />           (vl-catch-all-apply 'vlax-put-property (list scr 'language "VBScript"))<br />           (setq res (vl-catch-all-apply 'vlax-invoke (list scr 'eval expr)))<br />           (vlax-release-object scr)<br />           (if (not (vl-catch-all-error-p res)) res)<br />       )<br />   )<br /> )

newer

下面代码 32位 ，64位都可以用

1. (defun XD::Math:Calc (str / html ret)
   
2.   (vl-catch-all-apply
   
3.     (function
   
4.       (lambda ()
   
5.         (setq html (vlax-get-or-create-object "htmlfile"))
   
6.         (vlax-invoke
   
7.           html
   
8.           'write
   
9.           (strcat ".<script>document.body.innerHTML=eval('" str "')</script>")
   
10.         )
    
11.         (setq ret (read (vlax-get (vlax-get html 'body) 'innerhtml)))
    
12.       )
    
13.     )
    
14.   )
    
15.   (if html (vlax-release-object html))
    
16.   (if (numberp ret) ret)
    
17. )
    
18. 
    

(defun XD::Math:Calc (str / html ret)<br />   (vl-catch-all-apply<br />     (function<br />       (lambda ()<br />         (setq html (vlax-get-or-create-object "htmlfile"))<br />         (vlax-invoke<br />           html<br />           'write<br />           (strcat ".<script>document.body.innerHTML=eval('" str "')</script>")<br />         )<br />         (setq ret (read (vlax-get (vlax-get html 'body) 'innerhtml)))<br />       )<br />     )<br />   )<br />   (if html (vlax-release-object html))<br />   (if (numberp ret) ret)<br /> )<br /> <br />

ll_j

实用的话，还是使用cal简单一些，其它代码也是借用其它语言，受系统环境影响，不如使用acad自带的geomcal更保险。

Lisphk

csharp 发表于 2017-5-1 22:14

C:CAL 要加载什么才有吗？

Lisphk

newer 发表于 2017-5-2 10:15

测试了，普通的加减乘除没问题，sin不支持？

csharp

Lisphk 发表于 2017-5-2 10:36

角度的默认单位是十进制度数。请按以下格式输入角度：
<度>d<分>'<秒>”
当输入的角度小于 1 度时（只有分和秒），必须输入 0d。可以省略零分和零秒。
要按弧度输入角度，请在输入的数字后面加上 r。要按百分度输入角度，请在输入的数字后面加上 g。
以下是各种角度输入法的样例：
5d10'20"
0d10'20"
124.6r
14g
以任何格式输入的角度都会转换成十进制角度。
Pi 弧度等于 180 度，100g 等于 90 度。

命令: (c:cal "sin(30d)")
0.5
命令: (c:cal "sin(1.0r)")
0.841471