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

AutoCAD 2023 开发者帮助

GetVariable 方法（ActiveX）

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

获取 AutoCAD 系统变量的当前设置。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.GetVariable(Name)

对象

类别： 文档

此方法应用到的对象。

名字

访问：仅输入

类型：字符串

要返回的变量的名称。必须包含有效的系统变量名称（字符大小写不重要）。

返回值（RetVal）

类型：变体

指定系统变量的值。

言论

有关所有AutoCAD系统变量及其类型的列表，请参见AutoCAD帮助系统中的“系统变量”。

例子

VBA：

Sub Example_GetVariable()
    ' This example finds the current setting of the
    ' system variable FILLMODE.
    
    Dim sysVarName As String
    Dim varData As Variant
    
    sysVarName = "FILLMODE"
    varData = ThisDrawing.GetVariable(sysVarName)
    MsgBox sysVarName & " = " & varData, , "GetVariable Example"
    
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_GetVariable()
    ;; This example finds the current setting of the
    ;; system variable FILLMODE.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    (setq sysVarName "FILLMODE")
    (setq varData (vlax-variant-value (vla-GetVariable doc sysVarName)))
    (alert (strcat sysVarName " = " (itoa varData)))
)