Occurs just before the interface extension is registered to a vault in the Configurator.
Syntax
Private Sub AMUIExtension_BeforeRegisterExtension(ByVal Environment As AMEDM.IAMEDMEnvironment, CreatePropertySet As Boolean)
On Error GoTo error_handler
Dim dsg As AMUIExtension
Set dsg = Me
' Create a new document type that will use the extension
Dim DocType As AMDocumentType
Set DocType = Environment.NewDocumentType("CADDrawing")
' Note this sample code has limited error handling.
' This code should handle the situation where it is executed more than once
' and the document type already exists
DocType.DisplayName = "CAD Drawing"
' Here you would set some other document type properties
Exit Sub
error_handler:
MsgBox Err.Description
End Sub
Related information