自定义计算器(MyCal "(2+3)^2*5")

自贡黄明儒 · 发表于 2013-10-11 11:26:38

;;自定义计算器(MyCal "(2+3)^2*5")
;;05以上(cal "(2+3)*5")(c:cal "(2+3)*5")可以运行。04可以不加载(ARXLOAD "GEOMCAL")而自定义
;;示例(MyCal "(2+3)^2*5");返回125.0
(defun MyCal (express / STR)
  (setq str (strcat "dim ret \n ret=" express))
  (or *wscript*
   (setq *wscript* (vlax-create-object "ScriptControl"))
  )
  (vlax-put *wscript* 'language "vbs")
  (vlax-invoke-method *wscript* 'ExecuteStatement str)
  (vlax-invoke-method *wscript* 'eval "ret")
)

highflybir · 发表于 2013-10-11 11:46:14

这个方法好，不过有局限，因为不能在64位系统下创建 ScriptControl

自贡黄明儒 · 发表于 2013-10-11 11:49:31

本帖最后由自贡黄明儒于 2013-10-11 11:53 编辑

highflybir 发表于 2013-10-11 11:46
这个方法好，不过有局限，因为不能在64位系统下创建 ScriptControl

是这样呀，那么64位下都不能用ScriptControl了？我正看微软Vbscript手册vbs.chm呢.

emk · 发表于 2013-10-11 11:49:37

老大能否改进下64位的问题？

vectra · 发表于 2013-10-11 14:08:20

.net吧 VBA前景堪忧啊

账号		自动登录	找回密码
密码			注册

[源码] 自定义计算器(MyCal "(2+3)^2*5")