数学运算字符串表达式求值

XDSoft · 发表于 2014-10-9 12:12:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::EvalVBExpression (expr / scr res)
(setq res (vl-catch-all-apply (function (lambda nil
(setq scr
(vla-getinterfaceobject
(vlax-get-acad-object) "ScriptControl"
)
)
(vlax-put-property scr 'language
"VBScript"
)
(vlax-invoke scr 'eval expr)
)
)
)
)
(if scr
(vlax-release-object scr)
)
(if (not (vl-catch-all-error-p res))
res
)
)

(defun XD::EvalVBExpression (expr / scr res) 
  (setq res (vl-catch-all-apply (function (lambda nil 
                                            (setq scr 
                                                  (vla-getinterfaceobject 
                                                                          (vlax-get-acad-object) "ScriptControl" 
                                                  ) 
                                            ) 
                                            (vlax-put-property scr 'language 
                                                               "VBScript" 
                                            ) 
                                            (vlax-invoke scr 'eval expr) 
                                          ) 
                                ) 
            ) 
  ) 
  (if scr 
    (vlax-release-object scr) 
  ) 
  (if (not (vl-catch-all-error-p res)) 
    res 
  ) 
)

77077 · 发表于 2014-10-11 10:00:57

这个函数不错哈~
以前我还要去分割+-*/，现在直接用了~~~

st788796 · 发表于 2014-10-11 17:46:05

(c:cal 表达式)

ynhh · 发表于 2014-10-12 11:21:35

看上去很好:loveliness:
没用外套:lol

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

[选择集] 数学运算字符串表达式求值

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子