SaveSetupProfile Example

Land Auto

SaveSetupProfile Example

Sub Example_SaveSetupProfile()
    
    ' This example saves a new drawing setup profile.
    Dim dbPref As AeccDatabasePreferences
    Set dbPref = AeccApplication.ActiveDocument.DatabasePreferences
    
    ' The file extension ".set" is appended automatically.
    dbPref.SaveSetupProfile("myprofile")
    
End Sub