chengwangjun 发表于 2017-11-11 11:01:19

对一个计算公式求值

(@计算公式 "5.286*3-0.36*3")
(defun @计算公式 (@a / xls sheet cells range)
        (setq xls (Vlax-Get-Or-Create-Object "Excel.Sheet.8" ))
        (setq sheet (Vlax-Get-Property (Vlax-Get-property xls 'Worksheets ) 'Item 1 ))
        (setq cells (vlax-get-property sheet 'cells))

                (setq range (vlax-variant-value (vlax-get-property cells 'Item 1 1)))
                (Vlax-Put-Property range 'Value2 (strcat "=" @a))
                (setq @b (Vlax-Get range 'Text))
          (vlax-release-object xls)
)

Bao_lai 发表于 2017-11-12 01:23:42

转化到Excel里面求值，思路不错。
还没有测试，好奇如果没有安装Excel不知道会不会出错。

xyp1964 发表于 2017-11-13 00:49:18

cal 5.286*3-0.36*3

springwillow 发表于 2017-11-13 08:39:06

思路不错，这个得装对应版本的EXCEL才行吧，EXCEL基本每个人都会装，只是装的版本可能不一样，如果可以考虑各个版本的情况就好了；也可以用cal命令计算，不受限制。
页: [1]
查看完整版本: 对一个计算公式求值