---

Eigenschaften.jpg

Hallo.
Brauche dringend Hilfe.
Ich soll bei Eigenschaften das Feld Nomenklatur an das Feld Teilenummer anpassen (übernehmen), und das alles in einem Produkt.
Die Eigenschaften sollen so aussehen: Dateiname=Teilenummer=Nomenklatur=Exsemplarname (+Instanz)siehe Bild. Da es sehr viele Teile sind, ist meine einzige Hoffnung es per Makro hinzubekommen.

Und jetzt Hilfeschrei an die Gemeinde, -Wehr kann mir so etwas empfehlen??????

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

---

hi,

probiers mal damit,

ich hab hier noch eine Eingabe für die Revisionsnummer dabei

gruß

klaus

Language="VBSCRIPT"
' Globale Variable definieren (auch für Subroutinen)
Private Eingabe1

' jetzt gehts weiter

Sub CATMain()
Dim myproduct As Product
Set myproduct = CATIA.ActiveDocument.Product

Box = MsgBox(" Nomenklatur wird gleich dem Filename gesetzt", , "Hinweis")

'EingabeBox
Eingabe1 = "Rev 001"
Eingabe1 = InputBox ("Bitte hier Revision (default = Rev 001)", "Revision", Eingabe1)
' Die ganze Produktstruktur wird gescannt
ScanProductStructure myproduct

MsgBox "Alle Nomeklaturen wurden geändert"
End Sub
Sub ScanProductStructure(myproduct2 As Product) ' aus myproduct wird myproduct3
Dim currentprod As Product
Dim ii As Integer

On Error Resume Next

For ii = 1 To myproduct2.Products.Count
Set currentprod = myproduct2.Products.Item(ii)
If currentprod.Products.Count = 0 Then
Err.Clear

'Filename extrahieren und Endung ab . entfernen

Ausgabe = Left(currentprod.ReferenceProduct.Parent.Name, InStrRev(currentprod.ReferenceProduct.Parent.Name, ".") - 1)
currentprod.Revision = ""& Eingabe1 &""
currentprod.Nomenclature = ""& Ausgabe &""

If Err.Number <> 0 Then
End If

Else

ScanProductStructure currentprod.ReferenceProduct

End If

Next
On Error GoTo 0
End Sub

------------------
Klaus

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

---

Hallo,

ich habe hierzu noch eine Frage, und zwar wenn ich bei Hinzugefügte eigenschaften etwas drin stehen haben will, steht bei mir in der Makroaufzeichnung

Dim strParam1

da ich aber die deutsche Version nutze, wie heißt dieiser befehl im deutschem? Bzw wie sieht ein Makro im deutschem aus, indem auch hinzugefügte Eigenschaften ausgefüllt werden.

Kann das bitte jemand verraten.

Danke, Gruß Tobi

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

---

Hallo Tobi,

strParam1 ist einfach eine Variablenname, vermutlich für einen Parameter der Typ String.
Die Makros müssen (erfreulicherweise) nur auf englische Sprache erstellt werden, egal welche Sprachversion man verwendet. Erfreulicherweise, weil man so weniger Kompatibilitätsprobleme hat.
Die Sprachabhängigkeit kommt nur bei DisplayName ins Spiel.

Die zu den Properties hinzugefügte Parameter findest du unter UserRefPropreties Eigenschaft von einen Product.

Gruß,
Zoltan

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

---

Hallo Klaus,
(bin erst aus dem Urlaub gekommen)
Danke für deine Hilfe.
Das Makro ist sehr gut!!!
Eine Kleinigkeit fehlt mir noch.... Es werden Eigenschaften nur in Parts überprüft, die Produkte bleiben unverändert.
Habe keine Ahnung in Makroprogramierung, arbeite aber  sehr gern damit.
Wehre sehr dankbar wenn mir jemand helfen könnte.

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

---

Hallo rembit,

Hoffe du hattest nen angenehmen Urlaub.
Ich hatte den Code aus einem Anderen Makro zusammengekürzt, und einen Teil zuviel rausgeworfen.

Hier der richtige.

Grüße

Klaus

Language="VBSCRIPT"
' Globale Variable definieren (auch für Subroutinen)
Private Ausgabe
' jetzt gehts weiter

Sub CATMain()
Dim myproduct As Product
Set myproduct = CATIA.ActiveDocument.Product

Box = MsgBox("Nomenklatur wird gleich dem Filename gesetzt", , "Hinweis")

' Die ganze Produktstruktur wird gescannt
ScanProductStructure myproduct

MsgBox "Alle Nomenklaturen wurden geändert"
End Sub

Sub ScanProductStructure(myproduct2 As Product) ' aus myproduct wird myproduct3
Dim currentprod As Product
Dim ii As Integer
On Error Resume Next

'für CATProducts__________________________________________________________________________

'Filename extrahieren und Endung ab . entfernen

Ausgabe = Left(myproduct2.ReferenceProduct.Parent.Name, InStrRev(myproduct2.ReferenceProduct.Parent.Name, ".") - 1)
myproduct2.Nomenclature = ""&Ausgabe&""

' Für CATPart_____________________________________________________________________________

For ii = 1 To myproduct2.Products.Count
Set currentprod = myproduct2.Products.Item(ii)
If currentprod.Products.Count = 0 Then
Err.Clear

'Filename extrahieren und Endung ab . entfernen
'für alle Parts
Ausgabe = Left(currentprod.ReferenceProduct.Parent.Name, InStrRev(currentprod.ReferenceProduct.Parent.Name, ".") - 1)
currentprod.Nomenclature = ""&Ausgabe&""

If Err.Number <> 0 Then
End If

Else
ScanProductStructure currentprod.ReferenceProduct

End If
Next
On Error GoTo 0
End Sub

------------------
Klaus

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

---

Hallo Klaus,

Vielen Dank für deine Hilfe.
Es funktioniert
Super!!!

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

---

Hallo,

ich habe gerade dieses tolle Makro gefunden.
Leider funktioniert es nur (bei mir?) beim erstmaligen Ausfüllen der Nomenklatur.
Ich habe bereits "alte" Bezeichnungen drinstehen und möchte diese mit dem Partname aktualisieren.

Kann mir jemand einen Tip geben, wie dies umgesetzt werden kann?

Vielen Dank!

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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

---

Hi Norman,
anstatt

Code:

---

myproduct2.Nomenclature = ""&Ausgabe&""
bzw:
currentprod.Nomenclature = ""&Ausgabe&""

---

probier mal

Code:

---

myproduct2.Nomenclature = Ausgabe
bzw.
currentprod.Nomenclature = Ausgabe

---

Hope it helps,
Joe

------------------
Inoffizielle Catia Hilfeseite

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

---

Hallo Joe,

danke für die Rückmeldung.

Leider macht es keinen unterschied.
Es läuft zwar durch, aber ohne die Einträge zu ändern.

Was mich zudem wundert ist, dass ich obwohl als Language="VBSCRIPT" im Header steht, ich es als "CATScript" erzeugen musste.
Ansonsten gibt es eine Fehlermeldung. 

Gruß Norman

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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

---

Habe es nochmal an einer neu erzeugten Produktstruktur und an Vorlagen von einem anderen Kunden getestet.

Hier funktioniert es.

Scheint, woran auch immer, an speziellen Vorlagen zu liegen.

Da es bei dem einen Kunden funktioniert reicht mir das soweit erst mal.

Trotzdem danke für die Hilfestellung!

------------------
WTL Engineering GmbH          
n.schulz@wtl-group.de
http://www.wtl-group.de

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