求各路高手帮小弟学一个计算式程序

狂刀无痕

没注意看你的test的计数器.你的结果没错,我的结果也没错.是我看错了

我是从1开始算.你是从0开始.

计算机计数是从0开始---没有这个规定. 只是lisp的函数大多从0开始计数.但是也不是绝对.

比如 sslength ,strlen就是从1开始算的. nth 是从0开始算.

至于

自定义函数套用到字符串表达式里面,及其它和cad或lisp的交互不是vb or c 的优势,前面已经说过,vb c 只管计算就好了.

特点就是两个:

1.可以不必转换格式

2.可以直接套用vb的数学函数,比lisp提供的丰富.

至于计算方程式,vb只能比lisp更强. 曾有个笑话.说比尔windows系统核心都是用vb写的,虽然我也不信,但至少说明vb能做不少的事.

比如解n元方程,网上都有不少的vb实例,但是用lisp写,恐怕很困难(我没试过,也不说绝对不行).

最后,我的观点:

1. .按1楼楼主的要求,用vb(或lisp调用vb)很容易实现.

2. vb或其它语言比lisp在大量运算上有优势,就看你怎么利用.

3. 条条大路通罗马,并不是说lisp就不行.(其实我lisp倒是写过不少,而vb不过是门外汉).lisp有它的优势,vb也有它的优势.合理地利用才能有利于提高工作效率.

这次我也是提供了另外一种思路而已.大家讨论讨论,没别的意思,不要搞的太紧张.hehe

狂刀无痕

另外,对1楼楼主的要求,再提供一种方法.用vbs.不知道算不算简单明了.大家一起探讨.

(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

zml84

13楼的代码 ，在测试中发现有误：

2.     _$ (TRANS_FORMAT "-7*(-1-4+8)")
3.     (- nil (* 7.0 (+ (- -1.0 4.0) 8.0)))
4.     _$ (TRANS_FORMAT "-7*(-1-4+8)")
5.     (- nil (* 7.0 (+ (- -1.0 4.0) 8.0)))
6.     _$ (TRANS_FORMAT "-7-(-1-4+8)")
7.     (- (- nil 7.0) (+ (- -1.0 4.0) 8.0))
8.     _$

复制代码

无痕

2. (defun tt (str)
3.   (setq wcs (vla-GetInterfaceObject (vlax-get-acad-object)
4.         "ScriptControl"
5.      )
6.   )
7.   (vlax-put-property wcs "language" "vbs")
8.   (vla-eval wcs str)
9. )

(defun tt (str)   (setq wcs (vla-GetInterfaceObject (vlax-get-acad-object)         "ScriptControl"      )   )   (vlax-put-property wcs "language" "vbs")   (vla-eval wcs str) )

(tt "-7*(-1-4+8)") ;返回: -21

飞诗(fsxm)

回23楼zml84：

呵呵以前忘了看这个贴子，现在看到了～的确是这样的呢～

解决方法为：在第一个子函数format1前加上一行代码:(setq lastfun "(")

结果如下：

(defun format1 (str / char funs lastfun lst tmp lastchar)
  (setq lastfun "(")　．．．．

后面的都不动．．．

现在可以测试：
(trans_format "-7*(-1-4+8)")＝＞(* -7.0 (+ (- -1.0 4.0) 8.0))
(eval (trans_format "-7*(-1-4+8)"))＝＞-21.0