使用 VBA 以外的其它编程语言

Sub Example_ActiveProfile()
    ' 本示例返回 ActiveProfile 的当前设置。
    
    Dim preferences As AcadPreferences
    Dim currActiveProfile As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' 找到当前 ActiveProfile 值
    currActiveProfile = preferences.Profiles.ActiveProfile
    MsgBox "ActiveProfile 的当前值为 " & currActiveProfile, vbInformation, "ActiveProfile 示例"
End Sub