---

Hi zusammen,

mit folgendem Code funktioniert es schon gut das ich die Teilenummer in den Hauptkörper eintragen kann.

Language = "VBSCRIPT"

Sub CATMain()

Set PRTDOC=CATIA.ActiveDocument
Set PRT = PRTDOC.Part
Set BODIES = PRT.Bodies
Set PRTBODIE=PRT.MainBody
PNA = PRT.Name
'Übernahme Dokumentenname in Hauptkörpername
PRTBODIE.Name=PRT.Name

' PART In Work Object setzen
Set BODY = BODIES.Item(PNA)
PRT.InWorkObject = BODY

End Sub

Nun wäre der Königweg, das er innerhalb eines Produkts jedes Part automatisch durcharbeitet.

Leider komme ich hier im Moment nicht weiter, vielleicht könntet Ihr mir weiter helfen?

Vielen Dank!

mfg

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

---

Hallo,

zwei Möglichkeiten:

1. Du geht über die Document Collection, d.h. alle geladenen Dokumente der laufenden Sitzung werden bearbeitet.

2. Du gehst die Produktstruktur rekursiv durch.

Für beide Vorgehensweisen findest du hier im Forum (Suche nutzen) Ansätze/Codeschnipsel.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Das ist mal nen Anfang... vielen Dank.

Gibt es Erfahrungen welche weg der bessere ist?

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

---

Servus

Über die Document-Collection ist es einfacher, aber es werden auch parallel geöffnete CATParts (die nicht zum Product gehören) mit geändert/angepasst.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ich bin jetzt auf der Suche auch über folgenden Code gestoßen,
welcher eigentlich mein Problem lösen sollte.
Allerdings scheint es doch nicht zu funktionieren, hat jemand ne Idee warum?

(Steigt bei Linie: 5 & Spalte 15 aus laut Fehlermeldung)

Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim Document1, aktuPartDoc As Document
Set Document1 = CATIA.ActiveDocument
Dim PartSelektion As Selection
Set PartSelektion = Document1.Selection
PartSelektion.Search "CATProductSearch.Part,all"
Dim PartMenge, I As Integer
PartMenge = PartSelektion.Count
MsgBox(" PartMenge = " & PartMenge )

Dim aktuPart As Part
Dim DocDescription As String
Dim bodies1 As Bodies
Dim body1 As Body

For I =1 To PartMenge
Set aktuPart = PartSelektion.Item(I).value.ReferenceProduct.Parent.Part
DocDescription = aktuPart.Name
MsgBox("DocDescription = a" & DocDescription )
Set bodies1 = aktuPart.Bodies
Set body1 = aktuPart.MainBody 'Set body1 = bodies1.Item("Hauptkörper")
body1.name = DocDescription
Next

End Sub

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

---

Servus

Wie lautet die Fehlermeldung?
Hast du den Code auch als CATScript gespeichert?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,

der Code scheint mir ein wenig umständlich.

Hier mal aus dem Gedächtnis (ungetestet)

Code:

---

Sub CATMain
Dim oDoc as Document

If Catia.Documents.Count > 0 then

For Each oDoc in CATIA.Documents

If TypeName(oDoc) = "PartDocument" then

' hier kommt dann die Bearbeitung des Parts/PartBody
End if

Next

End if

End Sub

---

Gruß
Randle
------------------
Wer für nichts steht, fällt für alles!

[Diese Nachricht wurde von Randle am 23. Jan. 2020 editiert.]

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

---

Fehlermeldung_Catia.JPG

Moin Moin,

hab nen Screenshot von der Fehlermeldung angehängt...

Der Code ist als CATIA Script "Teilenummer in Körper V2.catvbs"

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

---

Servus

Dann speicher den Code zB mal als "Teilenummer in Körper V2.CATScript"

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ahhhh, ja das war mein Fehler... jetzt läuft's.

Vielen Dank!!

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

---

Hallo

Habe auch mal das Makro vom Jonas ausprobiert.
Bei einer kleinen Baugruppen ging es ganz gut.
Bei einer größeren Baugruppen mit weiteren unterbaugruppen (über 100 Teile)
Kam Fehlermeldung: Laufzeitausnahme und Zeile 20 als Fehler.
Kenn mich mit der Makrosprache zu wenig aus hat da jemand einen Lösungsvorschlag?
Würde mich freuen wenn jemand helfen kann

------------------
Mit freundlichem Gruß
Andreas

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

---

Hallo zusammen

Habe jetzt den Fehlergrund gefunden.
Und zwar wenn ein lehres Product dabei ist kommt die Fehlermeldung
Was muss man ändern sodass er bi einen lehren Product es einfach überspringt?

------------------
Mit freundlichem Gruß
Andreas

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

---

Servus

Wie ein leeres Product? Du suchst doch alle Parts in einer Baugruppe.
Kommt der Fehler schon beim ersten Durchlauf der Schleife? Dann ggf vor abfragen ob die Anzahl der selektierten Element größer 1 ist.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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