CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

Eval 方法（ActiveX）

2024-5-18 16:53| 发布者: admin| 查看: 62| 评论: 0|原作者: admin|来自: AutoCAD

Eval 方法（ActiveX）

计算 VBA 中的表达式。

支持的平台：仅限 Windows

签名

VBA：

object.Eval Expression

对象

类型： 应用

此方法应用到的对象。

表达

访问：仅输入

类型：字符串

要计算的表达式。

返回值（RetVal）

无返回值。

言论

此方法允许自动化客户端在当前项目的上下文中执行一行 VBA 代码，而无需创建模块和函数。

例子

VBA：

Sub Example_Eval()
    ' This example shows how to can use Eval to run a VBA code fragment
    ' without having to create a Module or procedure.

    Dim VBACode As String
    
    ' Create VBA code fragment
    VBACode = "MsgBox ""Simple code fragment"""
    
    ' Use Eval method to evaluate the small VBA script
    Eval VBACode
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Eval()
    ;; This example shows how to can use Eval to run a VBA code fragment
    ;; without having to create a Module or procedure.
    (setq acadObj (vlax-get-acad-object))
    
    ;; Create VBA code fragment
    (setq VBACode "MsgBox \"Simple code fragment\"")
    
    ;; Use Eval method to evaluate the small VBA script
    (vla-Eval acadObj VBACode)
)