简答计算

hphkjz

哪位大哥能帮我编写一个lisp程序能够完成简单的数**算呢？比如我用写字功能输入（4*5）+3，然后回车直接就可以得出结果=23

王鹏_pBZlo

你输入(+ (* 4 5) 3)，CAD就帮你算出23了。主要你要知道CAD的计算公式的格式

hphkjz

王鹏_pBZlo 发表于 2021-10-23 15:05
你输入(+ (* 4 5) 3)，CAD就帮你算出23了。主要你要知道CAD的计算公式的格式

我是想在写字程序里面，在编辑的时候，比如我正在编辑：我的总分80+90+80   然后我输入=  然后程序自己就算出了结果是多少，而不需要我再从其他渠道算得结果然后在编辑上去，那样麻烦。大哥，这相当于创建个新的智能的写字程序，你看行吗？

lovezp

不试试cad自带的计算表达式的命令 cal   ？

ketxu

You can start from here :)

1. (defun c:`(/ str val)
   
2.         (and
   
3.                 (setq str (lisped "Type formula "))
   
4.                 (setq val (cal str))                 
   
5.         )
   
6.         val
   
7. )

(defun c:`(/ str val) <br />         (and <br />                 (setq str (lisped "Type formula ")) <br />                 (setq val (cal str))                 <br />         ) <br />         val <br /> )