---

Hallo Gemeinde ich bin wie schon mal gesagt noch unerfahren bei VB.

ich habe jetzt mit hilfe der SolidWorks funktion Makro aufzeichen in Makro aufgezeichnet.

und zwar soll es eine Stückliste der bestehenden Baugruppe einfügen.

Das Makro sieht so aus:

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("20120117_S010_Versuch.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim swBOMTable As Object
Set swBOMTable = Part.Extension.InsertBomTable("X:\Solidworks\Stücklistenvorlage\Stücklistenvorlage 2011\Stückliste.sldbomtbt", 1290, 354, swBomType_e.swBomType_TopLevelOnly, "")
End Sub

Wenn man das Makro jetzt Startet wird nur der Schriftkopf der Stückliste eingefügt ohne Inhalt!

Kann mir da jemand weiterhelfen???
 
bin etwas überfordert!!

Danke schon im voraus!!
Mfg Delta

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

---

Hallo Delta

hast Du Dir schon das Beispiel in der Online-Hilfe angesehen?
Du findest das unter dem Suchbegriff "Insert and Show BOM Table and BOM Balloon Example (VBA)"

Als Gedankenanstoss:
wenn Du die Stückliste manuell einfügst muss auch zuerst eine Ansicht ausgewählt sein. Das fehlt meiner Meinung nach in Deinem Makro.

------------------
Grüße
Heinz

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

---

Das ist in seinem Makro schon enthalten:

Code:

---

boolstatus = Part.Extension.SelectByID2("20120117_S010_Versuch.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

---

Das Problem wird vielmehr sein, dass das Makro in einer anderen Baugruppe ausgeführt wird, als bei:

Zitat:

---

20120117_S010_Versuch.SLDASM

---

Da der Select dann fehlschlägt, wird auch keine BOM eingefügt. Was mich nur wundert, dass da keine Fehlermeldung kommt.

Für dich @Delta heißt das, dass du dir einen Baugruppenselect per VBA schreiben musst, der obig zitierten Baugruppennamen durch einen gültigen ersetzt.
Alternativ kannst du dir auch eine Textbox vorschalten (ich weiß, ist keine schicke Lösung), in der du den Namen einträgst.
Probier mal folgendes:

Code:

---

...
Set swApp = _
Application.SldWorks
Dim strSelectName As String
strSelectName = InputBox("Bitte einen gültigen Selectnamen eintragen")
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2(strSelectName, "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
...

---

Grüße

Tobias

Achso: Code ist ungetestet, mangels SWX

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

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

---

Hallo Delta,

ich habe den gleichen Weg wie du mal ausprobiert und das Einfügen einer
Stückliste aufgezeichnet.
Dein Makro ist schon korrekt. Allerdings solltest du
mit swapp.GetActiveConfigurationName dir die aktive konfiguration holen und diese
am ende von insertBOMTable mit angeben.
Denn die Stückliste wird in die BG eingefügt aber es ist keine konfiguration ausgewählt.

Dummerweise hat dies bei mir trotzdem nicht funktioniert. Eventuell ein Fehler in der API
Habe dir unten mal meinen Code angehängt.

Nach meiner Auffassung kannst Du dir das erste mit dem select ganz sparen da als nächstes bei dir
die select Funktion wieder aufgehoben wird. Dies zeichnet SW nur auf, weil man selbst auf die BG geklickt hat.

Vielleicht klappt es ja bei dir mit der Konfigurationsangabe.

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
dim conf as string
dim filename as string
filename = part.getpathname
conf = swapp.GetActiveConfigurationName(filename)

Dim swBOMTable As Object
Set swBOMTable = Part.Extension.InsertBomTable("X:\Solidworks\Stücklistenvorlage\Stücklistenvorlage 2011\Stückliste.sldbomtbt", 1290, 354, swBomType_e.swBomType_TopLevelOnly, conf)
End Sub

Gruß

Carsten

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

---

Hallo zusammen ich werde das ganze mal (bin jetzt dann 2 wochen weg)probieren und mich dann wieder melden!!

Aber danke für eure ideen und vorschläge!!

MFG Delta

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