---

Hallo zusammen, ich muss für einen Kunden von großen Baugruppen (ca. 50 Catparts) Allcatparts erzeugen. Anschließend müssen die einzelnen Körper im Allcatpart nach folgendem Schema fortlaufend durchnummeriert werden: BN.000.001, BN.000.002, BN.000.003 usw.. Kann diese Aufgabe über ein Makro gelöst werden bzw. gibt es womöglich schon fertige Makros die leicht angepasst werden müssen? Vielen Dank für Eure Hilfe. Viele Grüße Markus

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

---

Rename_AllCATPart.rar

Servus,

ja diese Aufgabe kann über ein Makro realisiert werden. Ob es schon welche dafür gibt weiß ich nicht.
Hab hier auf die schnelle selber was zusammengebaut. Hab das Makro in VBA programmiert.
Wie man die Datein importiert findest du hier im Forum (falls du es nicht wissen solltest).

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Hallo Christian,

vielen Dank für die schnelle Hilfe. Habe das Makro gleich ausprobiert. Leider habe ich auf meinem Notebook nur eine Catia R18 installiert, bekomme daher folgende Fehlermeldung: Fehlernummer 438, Object doesn't support this property or method. Werde das Makro nächste Woche mit einer Catia R19 testen.
Viele Grüße
Markus

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

---

Servus
Scheint daran z liegen, dass du CATIA auf deutsch verwendest.
Ersetze einfach die Zeile

Code:

---

objSel.Search "Part Design.Body.Name != PartBody, all"

---

durch

Code:

---

objSel.Search "CATPrtSearch.BodyFeature,all"

---

im Script.

Gruß
Bernd

   

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

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

---

Servus Bernd,

ich hab mir die untere schreibweise von dir noch nicht angewöhnt 

Programmierst du eine Suche nur so (untere Schreibweise) oder verwendest du beide?

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Servus
Ich muss zugeben, dass ich für die Ermittlung des Suchstrings den Makrorekorder verwende (ich programmiere eben nicht so oft)

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 22. Apr. 2011 editiert.]

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

---

Servus zusammen,
ich habe die Zeile ausgetausch. Immernoch der gleiche Fehler. Liegt vielleicht doch an der R18. Werds nächste Woche mit R19 versuche. Vielen Dank
Gruß
Markus

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

---

Servus,

ich glaub nicht, dass das Makro wegen dem R18 nicht durchläuft.
An welcher Stelle/Zeile hängt sich das Makro den auf?
Schon mal versucht das Watchfenster zu benutzen?

@Bernd: das kann man bei deinen Antworten hier im Programmierbrett nich glauben, dass du nicht viel programmierst 

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Hallo,
habe das Makro jetzt mal in Einzelschritten ablaufen lassen. Bleibt an folgender Stelle stehen.
Fehler:
    MsgBox "Fehlernummer: " & Err.Number & vbNewLine & _
    "Fehlerbeschreibung: " & Err.Description, vbCritical + vbOKOnly, "Fehler"
Anschließend wird die Fehlermeldung wie schon beschrieben ausgegeben. Ich beschreibe jetzt mal wie ich vorgehe. Als erstes importiere ich die Datei "Rename_AllCATPart.frm" im Visual Basic Editor. Dann starte ich das Makro mit der Play Taste. In der Catia geht das Fenster "Rename Allcatpart" auf. In diesem ich das Makro mit dem Button "Start Rename" starte. Dann kommt die Fehlermeldung. Wofür ist eiegentlich das andere File: Rename_AllCATPart.frx ? Vielen Dank für Eure Hilfe
Gruß
Markus

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

---

Servus,

an dieser Stelle bleibt das Makro nicht stehen. An diese Stelle spring es wenn ein Fehler entdeckt wird. Am einfachsten ist wenn du diese Zeile in dein Makro hineinkopierst und austauscht

Code:

---

    '***Fehlerroutine einschalten
    'On Error GoTo Fehler

---

oder du kommentierst das On Error Goto Fehler mit "'" aus (siehe Code). Wenn du jetzt das Makro laufen lässt dann bleibt es an der Stelle stehen wo du den Fehler erhältst. Diese Zeile wird dann mit gelber Farbe hinterlegt.

Welche Zeile ist das dann?

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Hallo Christian,

habe nach der Reihe folgende Zeilen auskommentiert:
 
'On Error GoTo Fehler
'CATIA.HSOSynchronized = False
'CATIA.HSOSynchronized = True 'PAULY

Jetzt funktioniert alles perfekt.
Vielen herzlichen Dank
Gruß
Markus

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