[讨论]：在VBA中实现公式计算

efan2000

在VBA里，AutoCAD的Application对象有一个函数Eval，这个函数的意义是在当前工程中不用创建过程或函数而执行一行VBA的代码。
    用法：object.Eval(Expression)
object Application对象
Expression 要执行的代码
    既然可以执行VBA的代码，那么就可以用来作公式计算器了，但它没有返回值，如何实现呢？在CAD中预留了15个用户使用的变量，可以临时保存数据，那我们就利用这些变量来实现吧。
    看下面的过程，由于数据保存在字符串变量中，故在执行计算之前的Expr必须为字符串。

2. 
   
3.   [FONT=courier new]
   
4. Private Function AcadEval(ByVal Expr As String) As String
   
5.     Dim s As String
   
6.    
   
7.     On Error Resume Next
   
8.     s = ThisDrawing.GetVariable("users1")
   
9.     Application.Eval "ThisDrawing.SetVariable ""users1""," & Expr '这里的Expr值必须为字符串，因而设置变量时不会自动转换数据的类型。
   
10.     If Err.Number = 0 Then AcadEval = ThisDrawing.GetVariable("users1")
    
11.     ThisDrawing.SetVariable "users1", s
    
12. End Function
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private Function AcadEval(ByVal Expr As String) As String<br />     Dim s As String<br />     <br />     On Error Resume Next<br />     s = ThisDrawing.GetVariable("users1")<br />     Application.Eval "ThisDrawing.SetVariable ""users1""," & Expr '这里的Expr值必须为字符串，因而设置变量时不会自动转换数据的类型。<br />     If Err.Number = 0 Then AcadEval = ThisDrawing.GetVariable("users1")<br />     ThisDrawing.SetVariable "users1", s<br /> End Function<br />   [/FONT]<br />

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     Debug.Print AcadEval("CStr(Abs(7-8-9))")
   
6.     Debug.Print AcadEval("Left(""AtuoCAD 2000"",7)")
   
7. End Sub
   
8.   [/FONT]
   

<br />   [FONT=courier new]<br /> Sub Test()<br />     Debug.Print AcadEval("CStr(Abs(7-8-9))")<br />     Debug.Print AcadEval("Left(""AtuoCAD 2000"",7)")<br /> End Sub<br />   [/FONT]<br />

上面的测试代码中，第一个是求7-8-9的绝对值，第二个是求"AtuoCAD 2000"的前七位字符。结果如下：