Hallo,
und herzlich Willkommen hier im Forum.
Bei solchen Fragen frage ich inzwischen schon mal die KI.
Kritisch hinterfragt, hilft sie doch, einen auf das richtige Gleis zu stellen.
Hier die Antwort der KI:
Code:
Dim swFeat As Feature
Set swFeat = swPart.InsertPart3(derivedFileName, swInsertPartOptions_e.swInsertPartImportSolids, "Default")' Ändere die Konfiguration des eingefügten Teils
Dim swRefConf As String
swRefConf = "KonfigName" ' Name der gewünschten Konfiguration
swFeat.ReferencedConfiguration = swRefConf
Wichtige Hinweise der KI:
"KonfigName" muss exakt dem Namen der gewünschten Konfiguration in der Datei entsprechen.
Die Änderung wirkt sich nur aus, wenn das eingefügte Teil mehrere Konfigurationen hat und die Geometrie sich zwischen ihnen unterscheidet.
Du kannst die aktuelle Konfiguration auch abfragen mit Debug.Print swFeat.ReferencedConfiguration.
Den Code habe ich nicht getestet.
Viel Erfolg damit.
Grüße, Andi B.
------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP