Hier mal ein Beispiel, wie es bei mir funktioniert (war doch anders

)
Das eingebettete Teil im Teil heißt "N0151060824p", die Konfiguration, zu der umgeschaltet wird, vereinfacht...
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("N0151060824p", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.UpdateExternalFileReferences(swExternalFileReferencesNamedConfig, "vereinfacht", swExternalFileReferencesUpdateNone)
Part.ClearSelection2 True
Part.EditRebuild3
End Sub
------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP