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

AutoCAD 2022 开发者帮助

ActiveProfile 属性（ActiveX）

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

指定 AutoCAD 任务的活动配置文件。

支持的平台：仅限 Windows

签名

VBA：

object.ActiveProfile

对象

类型：PreferencesProfiles

此属性应用于的对象。

属性值

只读：不

类型：字符串

活动配置文件的名称。

言论

没有其他评论。

例子

VBA：

Sub Example_ActiveProfile()
    ' This example returns the current setting of
    ' ActiveProfile.
    
    Dim preferences As AcadPreferences
    Dim currActiveProfile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Retrieve the current ActiveProfile value
    currActiveProfile = preferences.Profiles.ActiveProfile
    MsgBox "The current value for ActiveProfile is " & currActiveProfile, vbInformation, "ActiveProfile Example"
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_ActiveProfile()
    ;; This example returns the current setting of
    ;; ActiveProfile.
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
    
    ;; Retrieve the current ActiveProfile value
    (setq currActiveProfile (vla-get-ActiveProfile (vla-get-Profiles preferences)))
    (alert (strcat "The current value for ActiveProfile is " currActiveProfile))
)