---

Hallo,

ich suche und probiere jetzt schon eine geraume Zeit, habe es aber leider nicht geschafft.

Ich versuche von einer geöffeneten Zeichnung, die eine Stückliste, die dort vorhanden ist, auszuwählen. Der Basiscode:

Code:

---

Dim swApp As Object
Dim Part As Object
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Part = swApp.ActiveDoc

Dim swView As Object
Set swView = Part.GetFirstView
Set swBOMTable = swView.GetBomTable

---

swBOMTable ist leider leer.
Dann habe ich versucht, dass per while-Schleife zu erweitern:

Code:

---

Dim swApp As Object
Dim Part As Object
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Part = swApp.ActiveDoc

Dim swView As Object
Set swView = Part.GetFirstView
Set swBOMTable = swView.GetBomTable
Do While swBOMTable Is Nothing
  swView = swView.GetNextView
  swBOMTable = swView.GetBomTable
Loop

---

Das resultiert mit diversen Ausschmückungen entwerder in einer Endlosschleife oder in "Laufzeitfehler 91". Darum bin ich der Meinung, dass ich den falschen Ansatz gewählt habe. Wisst ihr, wie man die Tabelle auswählen kann?

mfG Findu

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

---

Hallo Findu,

du bist dir aber darüber im Klaren, dass du mit der GetBOMTable-Methode
nur auf Excel-basierende Stülis zurückgreifen kannst? Der Zugriff auf die
SWX-Stülis ist in dem Beispiel "Get Components in Each BOM Table Row (VBA)" beschrieben.

------------------
==========
Gruß
Andreas
==========

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

---

Hallo Findu

das sollte das eigentlich erledigen
ist ein etwas abgewandelter Code der als Beispiel in der Online-Hilfe unter dem Suchbegriff
"Get Table Annotation and Contents Example (VBA)" zu finden ist

die Stückliste ist dann in swTable gespeichert

Sub main()
    Dim swApp                  As Object
    Dim swModel                As Object
    Dim swDraw                  As Object
    Dim swView                  As Object
    Dim swTable                As Object
    Dim gefunden                As Boolean
   

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swDraw = swModel

    Set swView = swDraw.GetFirstView
    gefunden = False
    Do While Not swView Is Nothing And gefunden = False
        Set swTable = swView.GetFirstTableAnnotation
        Do While Not swTable Is Nothing And gefunden = False
            If swTable.Type = swTableAnnotation_BillOfMaterials Then
              gefunden = True
            End If
            If gefunden = False Then Set swTable = swTable.GetNext
        Loop
        Set swView = swView.GetNextView
    Loop
End Sub

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

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

---

Danke für die Hilfe, der Code scheint zu funktionieren.

@ad_man Ich dachte eigentlich, allerdings habe ich das missverstanden. Ich dachte die Funktion liefert eine Stückliste in Excelkompatiblem Format zurück, unabhängig davon, was wirklich vorliegt.

mfG Findu

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