---

Hallo zusammen,

habe noch nie mit Catscript gearbeitet, aber ist es theoretisch möglich, ein kleines Programm zu schreiben für folgendes Problem:

Habe eine große Baugruppe mit vielen Unterbaugruppen und Parts.
Wenn ich áuf deren Properties gehe wird mir unter dem Reiter "Product"  als Definition "None" angezeigt.
Ist es möglich per Programmierung hier den String von "Instance Name" oder "Description" automatisch einzuprogrammieren für alle Baugruppen und Unterbaugruppen, Parts ...?

Danke für Tipps und Tricks ;-)

Gruß

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

---

Servus
Willkommen im Forum.
Ja es ist möglich. Hier findest du ein ähnliche Aufgabe mit einer Lösung.
Zur Anpassungen dieses Makro sind sicher Grundkenntnisse in VB hilfreich.

Gruß
Bernd

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

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

---

Habe zwar schonmal mit VBA gearbeitet aber weit bin ich nicht gekommen:

Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

product1.Definition = product1.Nomenclature

End Sub

Damit kann ich zumindest das oberste Product umbennen. Doch wie wähle ich alle Products und Parts aus zur Umbennenung?

Bin aus den anderen Threads nicht schlau geworden.

Danke für eure Hilfe

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

---

Das Zauberwort heißt Rekursion.
Aber das ist für einen Laien der Programmierung etwas komplex, würde ich sagen.

http://de.wikipedia.org/wiki/Rekursion

Ich gehe aber davon aus, dass es hier schon einige Beispiele im Forum gibt, wie Du eine Produktstruktur durcharbeitest.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hmm das hat mir nicht wirklich weitergeholfen...

über das hier bekomme ich wenigstens mal die Anzahl der Parts...es wird also schonmal auf die produktstruktur zurückgegriffen...

Sub CATMain()

Dim productDocument1 As Document
Dim product1 As Product
Dim products1 As Products

Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set products1 = product1.Products

'count the number of CATParts

partcount=product1.Products.Count

msgbox"CHECK: The number of parts is "&partcount&". Please click OK to continue."

Dim i As Integer
For i=1 to partcount

...

End Sub

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

---

Servus
Das verlinkte Makro geht per Schleife alle Products (also alle Instanzen) durch und überprüft die Parameter. falls es sich um eine Componente oder Unterbaugruppe handelt ruft sich das Makro selbst wieder auf (=Rekursion).
Du musst das Makro nur umbauen  das die Definition angepasst wird nun nicht ein Parameter.
Kopiere den Code mal ind VBA-Editor und lass es schrittweise Ablaufen Watch- bw Local-Fenster benutzen)

Gruß
Bernd

PS: Alternativ kannst du auch per Schleife alle geöffneten Dokumente (Catia.Docments) abarbeiten.

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

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

---

Danke für deine schnelle Antwort, leider habe ich kein  Watch-Fenster zur Verfügung und kann nur im direkten Catia Editor arbeiten.

Habe mir den Code durchgesehen, aber nicht wirklich verstanden wie ich auf die Definitions zugreife?

Sind die Änderungen arg aufwendig?

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

---

Servus
Anbei ein Schnelllösung: (nur die Baugruppe (Einzelteile werden aromatisch mit abgearbeitet) öffnen):

Code:

---

Language="VBSCRIPT"

Sub CATMain()
For Each oDocument In CATIA.Documents
  If TypeName(oDocument) = "PartDocument" Or TypeName(oDocument) = "ProductDocument" Then
        oDocument.Product.Definition = oDocument.Product.Nomenclature
  End If
Next

End Sub

---

Gruß
Bernd

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

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

---

Cool vielen Dank, werde es am Wochenende mal probieren!

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