Folge 7 – Dateieigenschaften in Konfigurationen

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    
    Dim swModel As ModelDoc2
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then
        swApp.SendMsgToUser "Kein Dokument geladen!"
        Exit Sub
    End If
    
    Dim arrayOfConfigurationNames As Variant
    arrayOfConfigurationNames = swModel.GetConfigurationNames()
    
    Dim swModelDocExtension As ModelDocExtension
    Set swModelDocExtension = swModel.Extension
    
    Dim swCustomPropertyManager As CustomPropertyManager
    Dim result_code As swCustomInfoAddResult_e
    
    Dim name As Variant
    For Each name In arrayOfConfigurationNames
        Set swCustomPropertyManager = swModelDocExtension.CustomPropertyManager(name)
        result_code = swCustomPropertyManager.Add3("Bezeichnung", swCustomInfoType_e.swCustomInfoText, name, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
    Next
End Sub