Demo entry 6345739

c

   

Submitted by anonymous on Feb 06, 2017 at 06:35
Language: C#. Code size: 404 Bytes.

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

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).