---

Hallo zusammen!

Ich würde gerne per Makro ein Bauteil in eine Baugruppe einfügen.

Mit
  Sub main()

  Dim swApp As SldWorks.SldWorks
  Set swApp = Application.SldWorks

'Baugruppe erstellen
Dim swModel As SldWorks.ModelDoc2
Set swModel = swApp.NewDocument("C:\ProgramData\SolidWorks
\SolidWorks 2011\templates\Baugruppe.asmdot", 0, 0, 0)

'Teil erstellen
Dim Part As SldWorks.PartDoc
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks
\SolidWorks2011\templates\Teil.prtdot", 0, 0, 0)

End Sub

wird neben der Baugruppe ein neues Teil erzeugt.

Danke im Voraus für Eure Hilfe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo stonedqueens,

ich hab zwar jetzt nichts gelesen, was einer Frage oder einem Problem entsprochen hätte, dein Code sollte genau das machen, was du beschrieben hast (eine Baugruppe und ein Teil neu erzeugen), aber vielleicht möchtest du dir in der API Hilfe mal das AssemblyDoc::AddComponent5 ansehen, wenn du eine Komponente zu einer Baugruppe hinzufügen möchtest.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank für die Antwort!

Ich habe das Ganze auch gleich ausprobiert. Also ich erstelle nun zunächst ein Bauteil, speichere und schließe es anschließend. Dann erstelle ich eine Baugruppe und will mit "AddComponent" das zuvor erstellte Teil einfügen. Dabei habe ich mich auch am Makrorecorder orientiert. Dennoch funktioniert das Ganze nicht. Ich habe dann nur eine neue Baugruppe offen, jedoch ohne integriertes Bauteil.

Sub main()

Dim swApp As SldWorks.SldWorks
Set swApp = Application.SldWorks

'Teil erstellen
Dim Part As SldWorks.ModelDoc2
Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2011\templates\Teil.prtdot", 0, 0, 0)

Dim PartName As String
Dim PartPathName As String

'Skizze
Part.Extension.SelectByID2 "Ebene oben", "PLANE", 0, 0, 0, False, 0, Nothing, 0
Part.InsertSketch2 True

'Extrusion
Part.CreateCircleByRadius2 0, 0, 0, 50 / 1000
Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.5, 0.01, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False
Part.SaveAs "C:\...\Parts\Stamm.SLDPRT"

PartName = Part.GetTitle
PartPathName = Part.GetPathName
swApp.CloseDoc PartName

'Baugruppe erstellen
Dim swModel As SldWorks.AssemblyDoc
Set swModel = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2011\templates\Baugruppe.asmdot", 0, 0, 0)

'Komponente einfügen
swModel.AddComponent PartPathName, 0, 0, 0

swModel.SaveAs "C:\...\Parts\Baum.SLDASM"

swModel.EditRebuild

End Sub

Weiß jemand weiter?
In der Literatur hab ich auch was über Konfigurationen, Kinder und Eltern gelesen. Aber da ging es mehr darum, eine vorhandene Baugruppe zu analysieren.

Danke für Eure Hilfe!

[Diese Nachricht wurde von stonedqueens am 10. Jun. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oh Mann! 

Ich hab noch ein bisschen rumgespielt und einfach mal das Bauteil nicht geschlossen! Jetzt funktioniert es!!

Also erst Komponente hinzufügen, dann Bauteil schließen!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP