关于vla-eval

txc6853234

哪位大神能告诉我怎么样才能把这个里面的表达式的结果传出来(vla-eval (vlax-get-acad-object) "s=9*8")比如说传给其他自变量a，让a的值等于S

XDSoft

txc6853234 发表于 2014-10-9 10:47
谢谢大神！我的问题的纠结点在于怎么样去求出字符串形式的数学运算的值！也就是说数学运算是以字符串形式 ...

用下面函数

1. (defun XD::EvalVBExpression (expr / scr res)
   
2.   (setq res (vl-catch-all-apply (function (lambda nil
   
3.                                             (setq scr
   
4.                                                   (vla-getinterfaceobject
   
5.                                                                           (vlax-get-acad-object) "ScriptControl"
   
6.                                                   )
   
7.                                             )
   
8.                                             (vlax-put-property scr 'language
   
9.                                                                "VBScript"
   
10.                                             )
    
11.                                             (vlax-invoke scr 'eval expr)
    
12.                                           )
    
13.                                 )
    
14.             )
    
15.   )
    
16.   (if scr
    
17.     (vlax-release-object scr)
    
18.   )
    
19.   (if (not (vl-catch-all-error-p res))
    
20.     res
    
21.   )
    
22. )
    
23. 
    

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

命令: (XD::EVALVBEXPRESSION "5*6-3")
27

st788796

走偏锋，用usexx1-5变量保存

c:cal 也可以计算
(setq a ( * 8 9))也可以

txc6853234

st788796 发表于 2014-10-9 09:52
走偏锋，用usexx1-5变量保存

c:cal 也可以计算

谢谢大神！我的问题的纠结点在于怎么样去求出字符串形式的数学运算的值！也就是说数学运算是以字符串形式存在，而我要求出数学运算的值！例如（“8*9”）有什么办法能计算出来！

HLCAD

谢谢老大提供实用函数！

txc6853234

XDSoft 发表于 2014-10-9 12:04
用下面函数

大神厉害啊！谢谢不吝赐教！！！

/db_自贡黄明儒_

;;先定义一个公用函数，这个可能别的地方也用得上
;;[功能] 调用VBS的公用执行函数
(defun wscriptPublic (str)
  (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")
)

;;85.33 [功能] 自定义计算器
;;05以上(cal "(2+3)*5")(c:cal "(2+3)*5")可以运行。04可以不加载(ARXLOAD "GEOMCAL")而自定义
;;示例(MyCal "(2+3)^2*5");返回125.0
(defun MyCal (express)  
  (wscriptPublic (strcat "dim ret \n ret=" express))  
)

/db_自贡黄明儒_

;;vla-Eval用法 字符串关系
;;(Eval (list cal "(2+3)*5"))
(setq *wscript* (vlax-create-object "ScriptControl"))
(vlax-put *wscript* 'language "vbs")
(setq a (vla-Eval *wscript* "(2+3)*5"))

txc6853234

/db_自贡黄明儒_ 发表于 2014-10-9 15:04
;;vla-Eval用法 字符串关系
;;(Eval (list cal "(2+3)*5"))
(setq *wscript* (vlax-create-object "Scrip ...

大神果然是大神！不得不佩服呀！和大神之间的还是有很大差距的！我研究了好长时间，关键的ScriptControl这个不是太懂！！这个对象时怎么一回事哦？

lifei18

厉害啊，佩服

wzg356

学不完啊，也停不下来了