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