Hallo Diego,
du könntest versuchen jedesmal eine neue Hauptbaugruppe bestehend aus dem ersten Stück und den 4 anderen Stücken zu erstellen. Dazu kannst du dir ein kleines Makro schreiben, welches die Hauptbaugruppe erstellt und die Stücke einfügt und miteinander verknüpft. Dazu solltest du zuerst Ebenen für die Verknüpfungen in die Stücke einfügen und sinnvoll benennen, so dass du über das Makro direkt die Ebenen ansprechen und verknüpfen kannst.
Ich hatte was ähnliches gehabt, hatte aber eine leere Baugruppe mit Verknüpfungsebenen zur Vorlage:
txt_Name entspricht dem Dateinemen
'Datei kopieren und umbenennen
FileCopy "C:\Rahmen-Programm\Vorlagen\BGR.SLDASM", "C:\Rahmen-Programm\" & txt_Name & ".SLDASM"
Set BGR = swApp.OpenDoc6("C:\Rahmen-Programm\" & txt_Name & ".SLDASM", 2, 0, "", longerror, longwarnings)
'Datei (Rahmen1) öffnen, die ich einfügen möchte (ich hatte es nicht hinbekommen etwas in die BGR einzufügen, ohne es vorher zu öffnen)
Set Part = swApp.OpenDoc6("C:\Rahmen-Programm\Vorlagen\" & Rahmen1 & "\" & Rahmen1 & ".SLDASM", 2, 0, "", longerror, longwarnings)
'BGR aktivieren, Rahmen einfügen
swApp.activatedoc "C:\Rahmen-Programm\" & txt_Name & ".SLDASM"
BGR.AddComponent4 "C:\Rahmen-Programm\Vorlagen\" & Rahmen1 & "\" & Rahmen1 & ".SLDASM", 0, 0, 0, 0
BGR.editrebuild
Set BGR = swApp.activedoc
'Fixierung rausnehmen
BGR.Extension.SelectByID2 Rahmen1 & "-" & Anzahl & "@" & DateiName, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
BGR.UnfixComponent
'Verknüpfen
BGR.Extension.SelectByID2 "EBENE0", "PLANE", 0, 0, 0, False, 0, Nothing, 0
BGR.Extension.SelectByID2 "EBENE0@" & Rahmen1 & "-" & Anzahl & "@" & DateiName, "PLANE", 0, 0, 0, True, 0, Nothing, 0
BGR.AddMate2 0, 0, False, 0, 0, 0, 1, 1, 0, 0, 0, longwarnings
BGR.ClearSelection2 True
BGR.Extension.SelectByID2 "EBENE3", "PLANE", 0, 0, 0, False, 0, Nothing, 0
BGR.Extension.SelectByID2 "EBENE3@" & Rahmen1 & "-" & Anzahl & "@" & DateiName, "PLANE", 0, 0, 0, True, 0, Nothing, 0
BGR.AddMate2 0, 0, False, 0, 0, 0, 1, 1, 0, 0, 0, longwarnings
BGR.ClearSelection2 True
BGR.Extension.SelectByID2 "VK1", "PLANE", 0, 0, 0, False, 0, Nothing, 0
BGR.Extension.SelectByID2 "EBENE2@" & Rahmen1 & "-" & Anzahl & "@" & DateiName, "PLANE", 0, 0, 0, True, 0, Nothing, 0
BGR.AddMate2 0, 0, False, 0, 0, 0, 1, 1, 0, 0, 0, longwarnings
BGR.ClearSelection2 True
'speichern
BGR.editrebuild
BGR.Save3 0, longerror, longwarnings
Du kannst auch Konfigurationen über Makros einstellen (CompConfigProperties4).
Vielleicht hilft dir das weiter.
Grüße, Petra
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP