---

Hallo

Dank der Hilfe von rkauskh konnte ich mein Projekt ein gutes Stück weiterbringen.
Es geht um den automatischen Export aller Brennschnitte / Laserschnitte einer Baugruppe (als .dwg) in ein eigenes Verzeichnis. Gleichzeitig soll auch eine Excel-Stückliste entstehen die,  getrennt in Brennschnitte und Laserschnitte alle Teile mit Nummer, Benennung, … enthält.
Das alles funktioniert auch schon sehr gut, bis auf die Anzahl der Exemplare innerhalb der Baugruppe (auch in den Unterbaugruppen)!
In der Stückliste brauche ich die Gesamtanzahl der einzelnen Schnittteile.

oAsmDoc = ThisApplication.ActiveDocument
oRefDocs = oAsmDoc.AllReferencedDocuments
For Each oRefDoc In oRefDocs
…
Next

Mit dieser For…Next Anweisung kann ich zwar jedes Teil öffnen (auch die in den Unterbaugruppen) jedoch kommt jedes Exemplar nur einmal!

Wie kann ich die Anzahl der Exemplare innerhalb einer Baugruppe abfragen?

Wäre toll wenn das auch wieder so gut klappen würde wie die Hilfe von rkauskh!

MFG
3D-User

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

---

Moin

Am Besten sieht man das in der Stücklistenansicht "nur Bauteile" oder?

Code:

---

Dim oBom as BOM
oBom=oAsmDoc.ComponentDefinition.BOM

If oBom.PartsOnlyViewEnabled=False Then
oBom.PartsOnlyViewEnabled=True
End If

Dim oBomView As BomView
For Each oBomView In oBom.BOMViews
If oBomView.ViewType=kPartsOnlyViewType Then
Exit For
End If
Next

Dim oBomRow As BomRow
For Each oBomRow In oBomView.BomRows
MsgBox (oBomRow.TotalQuantity)
Next

---

Über oBomRow.ReferencedFileDescriptor.ReferencedFile würdest du auch an das jeweilige Bauteil herankommen, darüber wie gehabt an deine Zeichnung und könntest so den DWG-Export machen. Deine For Each-Schleife durch die ReferencedDocuments wäre dann nicht mehr erforderlich.

Wie unterscheidest du denn Brenn- und Laserteile? Code der in eine Exceltabelle schreibst hast du?

------------------
MfG
Ralf

[Diese Nachricht wurde von rkauskh am 03. Jan. 2013 editiert.]

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

---

BSZ.zip

Hallo rkauskh

Also da bin ich jetzt überfordert.
Der Code läuft zwar, aber wie ich jetzt die dazugehörige Teilenummer bekomme übersteigt meine Fähigkeiten.
Und die ganze Regel umzubauen, …das kann ich nicht!

Ich hab dir mein Werk als Anhang dazugegeben, vielleicht kannst du mir ja noch ein bisschen helfen!
Die Unterscheidung zwischen Brennschnitt und Laserschnitt habe ich in einer Benutzerdefinierten iProp, im Modell.

Noch eine Frage:
Hast du ein gutes Nachschlagewerk über iLogic/VB oder woher bekommst du die ganzen kryptischen Anweisungen in deinem Programmzeilen?

MFG
3D-User

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

---

Hi

Ich seh's mir mal an, aber frühestens am Wochenende.

Es gibt eine Programmierungshilfe. Klick mal auf das kleine schwarze Dreieck rechts oben neben dem Hilfefragezeichen. Unter weitere Ressourcen findest du die Hilfe.

------------------
MfG
Ralf

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

---

Hi

So, hab's mir mal angesehen. Zerleg den DWG- und Excel-Export in zwei Regeln. Starte eine Regel und benutze den RunRule-Befehl um die zweite Regel anschließend automatisch auszuführen.

------------------
MfG
Ralf

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

---

Hallo rkauskh

Danke für den Tipp!
Ich werd's mal versuchen.

MFG
3D-User

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