---

hallo!

              Ich möchte ein Makro machen, um die ersten 2 von 6 propertis definierter Teil einer Datei mit dem Namen füllen, können Sie mir helfen?

Vielen Danke

M.f.G.
Manuel

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

---

properties.jpg

Moin moin,
meinst du diese?

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

---

Hallo DasDon!

Dies ist ein Foto von dem, was ich brauche, um mit dem Makro zu tun. Benenne ich mehr als 600 Dateien in 30 CATProducts und müsste ein Makro für sie aus einem CATProduct machen und CATParts locker.

Vielen Dank

Manuel

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

---

Hallo xyon126,

eine Frage, wäre english besser als Deutsch für Sie?

Wie lauten den die PartNumbers? Ist FileName NICHT GLEICH PartNumber?

Ich werde mal probieren ob ich es hin bekomme...

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

---

Moin moin,

dieses makro setzt die Werte der ersten beiden USER DEFINED PROPERTIES in allen Bauteilen des geöffneten Produkts als PART NUMBER!

This macro sets the first two USER DEFINED PROPERTIES values as the PART NUMBER.

Code:

---

MACRO_NAME = "RenameForXyon126"
MACRO_VERS = "beta_V1.0"

'VER: --
'DESC: RESETS THE FIRST TWO USER DEFINED PROPERTIES VALUES OF ALL PRODUCTS AND CHILDREN IN OPEN PRODUCT
'PREP: ACTIVE DOCUMENT MUST BE OF TYPE CATPRODUCT; THE FIRST TWO USERVAIRABLES MUST BE OF TYPE STRING AND THE VALUES TO CHANGE
'LANG: CATSCRIPT
'DATE: 13/09/2012

'CREA: DasDon
'-------------------------------------------

'----------------------------------------
SUB CATMain()
'--------------------
'CHECK IF DOCUMENT OPENED IS CORRECT FORMAT
IF CATIA.Documents.Count = 0 THEN
MSGBOX "no documents are opened in CATIA!" & CHR(10) & "please open a document",16,"DOCUMENT ERROR"
EXIT SUB
END IF
IF TYPENAME(CATIA.ActiveDocument) <> "ProductDocument" THEN
MSGBOX "the active document must be of type CATProduct!" & CHR(10) & "please open correct document type",16,"DOCUMENT ERROR"
EXIT SUB
END IF
'--------------------
CATIA.ActiveDocument.Product.ApplyWorkMode DESIGN_MODE
TreeWalk CATIA.ActiveDocument.Product.ReferenceProduct
'--------------------
'macro finished
END_MESSAGE
END SUB
'----------------------------------------

'----------------------------------------
SUB TreeWalk (oProd)
DIM UserRef As Parameters
IF oProd.Products.Count > 0 THEN
For Each oChild In oProd.Products
TreeWalk oChild.ReferenceProduct
Next
END IF

IF oProd.UserRefProperties.Count > 0 THEN
SET UserRef = oProd.UserRefProperties
UserRef.Item(1).ValuateFromString (oProd.PartNumber)
IF UserRef.Count > 1 THEN UserRef.Item(2).ValuateFromString (oProd.PartNumber)
END IF
END SUB
'----------------------------------------

'----------------------------------------
SUB END_MESSAGE()
MSGBOX MACRO_NAME & " " & MACRO_VERS & " finished." _
& vbLF & "Please check results" & vbLF & _
"-----------------------------------" & vbLF & _
"-----------------------------------" & vbLF & _
"macro written by:" & vbLF & _
"DasDon" , vbyes, MACRO_NAME & " " & MACRO_VERS
END SUB
'----------------------------------------

---

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

---

Hallo Dasdon!

                  Das Makro ich zunächst nicht, was ich brauche ich danke Ihnen sehr, wenn Sie zu Fuß durch Barcelona haben das Abendessen bezahlt.
                  Über die Englisch oder Deutsch, nicht Englisch sprechen, ich lese nur die Microsoft Windows, usw., Deutsch, obwohl ich nicht schreibe auch besser verteidigen mich, wie ich alle 3 Monate zwei oder drei Tage in Fulda bin.

Vielen Danke

Manuel

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

---

perdón, pero no entiendo ...
¿Está bien o no?

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

---

Hallo Dasdon!

        Ihr Spanisch ist perfekt und das Makro funktioniert jetzt gut, ich danke Ihnen sehr.

M.f.G.

Manuel

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

---

Gut.
bitte schön..

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

---

Hallo Dasdon!

            Das Makro funktioniert perfekt von einem Produkt.Um nur von einem CATPart, dass ein Teil des Codes Ich kann arbeiten? Ist es zu verstehen und zu begreifen Ihrem Makro.

Vielen Dank

M.f.G.

Manuel

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