---

Unbenannt.JPG

Hallo Catia-Gemeinde,

ich habe es mit dem Makrorecorder probiert, aber es funktioniert leider nicht.

Ich möchte gerne, dass die Elemente im markierten Set den selben Name bekommen wie das Set, zum Beispiel das Set Welle (siehe Bild). Allerding sollen die Elemente vor dem namen Welle immer dem entsprechend Element benannt werden: Point_Welle, Plane_Welle und Sketch_Welle.

Der Recorder macht selber nichts, vielleicht hat jemand ein Makro in der Schublade liegen oder etwas vergleichbares, was sich schnell anpassen lässt?

Danke

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

---

Hi Rene,

da wirst vermutlich nix finden.
Grund: Weil's keiner macht und keiner braucht.
Einen Punkt von einer Kurve zu unterscheiden, schafft auch so jeder.
Und dass die Elemente für die Welle sind, steht ja im Set-Namen.

Bei strukturierten Flächenkonstruktionen werden Sets und abschliessende (Zwischen-)Ergebnis-Joins gerne umbenannt,
vielleicht noch die wichtigen Ebenen(Formtrennung, etc.), Nullpunkte o.ä., aber sonst nix.
Bei einer typischen Seitenwand oder einem schönen Spritzgussteil hast schnell ein paar Tausend Elemente.
Irgendwann gehen Dir die Namen aus.

Ein Makro zum Umbenennen des letzten Joins müsste aber zu finden sein.

Etwa:
http://ww3.cad.de/foren/ubb/Forum137/HTML/003283.shtml#000004
Das Makro R28 im Kochbuch von J. Hansen(siehe http://catia2.cad.de/index.php/de/literaturliste/programmierung) benennt die letzte Fläche um.

Elemente Umbenennen:
http://ww3.cad.de/foren/ubb/Forum137/HTML/002185.shtml#000005

Tschau,
Joe

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

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

---

Hallo Joe,

da hast Du recht, es braucht keiner, aber unser Auftraggeber steht darauf. Deswegen steht auch überall <rename> Er braucht es anscheinend.
Ich wollte uns damit eine Arbeitserleichterung schaffen.
Sinn und Zweck steht leider nicht zur Debatte...

Trotzdem danke für deine Antwort

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

---

Hi Rene,

was machst Du bei mehreren Punkten, Ebenen, Flächen, etc?

Tschau,
Joe

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

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

---

Hallo,

sinnvoll oder nicht, aber machbar.

Hier mal schnell und schmutzig.

Public strSucheNach As String
Public strErsetzenDurch As String

Sub CATMain()

Dim PartDoc As PartDocument

On Error Resume Next
Set PartDoc = CATIA.ActiveDocument
If Err.Number <> 0 Then Exit Sub
On Error GoTo 0

Dim osel 'As Selection
Set osel = CATIA.ActiveDocument.Selection
osel.Clear
Dim oHS As HybridShape
Dim oSelResult As String
Dim aFilter(0)
Dim HB As HybridBody

aFilter(0) = "HybridBody"

oSelResult = osel.SelectElement2(aFilter, "GeoSet auswählen", False)

If oSelResult = "Normal" Then
   
    Set HB = osel.Item(1).Value
    If HB.HybridShapes.Count > 0 Then RekursivScan HB

End If

End Sub

Private Sub RekursivScan(t_HB As HybridBody)

Dim oGeo As HybridShape

On Error Resume Next
If t_HB.HybridShapes.Count <> 0 Then
    For Each oGeo In t_HB.HybridShapes
        oGeo.Name = TypeName(oGeo) & "_" & t_HB.Name ' Replace(oGeo.Name, strSucheNach, strErsetzenDurch, 1, -1, vbTextCompare)
    Next
End If

Dim HBody As HybridBody
 
If t_HB.HybridBodies.Count <> 0 Then
    For Each HBody In t_HB.HybridBodies
        RekursivScan HBody
    Next
End If

On Error GoTo 0
End Sub

Nach Makrostart das GeoSet auswählen.
Makro läuft rekursiv, d.h. auch untergeordnete GeoSets werden berücksichtigt.
Nicht berücksichtigt werden derzeit Skizzen und Achsenkreuze.

Gruß
Randle

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

---

Das ist ein anderes Problem.

Es geht mir eigentlich nur darum, dass die vorgebenen Sets von unserem Auftraggeber mit jeweils einem Punkt, einer Plane und einem Sketch dem Set entsprechend umbenannt werden. Dann brauche ich nur dem Set einen Namen geben, dann das Makro starten und weiter machen. So benenne ich Punkt, Plane und Sketch auch immer wieder um.

Elemente die danach eingefügt werden, müssen von Hand umbenannt werden.

Ich denke, es wäre trotzdem eine Erleichterung. Ob es sinnvoll ist, frage ich ja nicht. Der Auftraggeber möchte es, dann bekommt er es.

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

---

Makro.JPG

Hallo Randle,

danke für die Mühe. Leider läuft es bei mir nicht. Es kommt eine Fehlermeldung.

Weitere Info:

Es sind immer 1 Punkt, 1 Plane und 1 Skizze im Set. Das Set wird benannt und der Punkt soll immer Point_Setname, die Plane Plane_Setname und die Skizze Sketch_Setname heißen.

Alle weiteren Elemente werden per Hand umbenannt.

VG

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

---

Servus
Speicher mal das Makro als CATScript.

Gruß
Bernd

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

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

---

OK, das hat geklappt. Lag an der Art des speichern.
Es läuft schon einmal 

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

---

Hi Rene,

kurz noch zwei Fragen:
- soll das Bild im ersten Post ein Grundmodell zeigen?
- bezahlt er wenigstens für den Mehraufwand?

Tschau,
Joe

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

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

---

Hallo Joe,

ja, das Bild zeigt das Grundmodell. Da gibt es strikte Regeln, wie der Aufbau ist. Kennt man aber auch von anderen OEMs. Da wird der Mehraufwand auch nicht extra ausgewiesen, daher...
Leider habe ich nicht Know-how (und Zeit es zu lernen) Makros selber zu schreiben, ich bin auf den Recorder angewiesen, der hier leider versagt.

VG Rene

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

---

Hallo,

was das Problem von doppelten Namen angeht, so kann man zur Not auf die Namensprüfung Einfluss nehmen (Tools/Optionen). Ob das so gut ist, wäre eine andere Frage.

BTW: Aktuell wird ja die CATIA interne Benennung der Elemente genutzt (z.B. HybridShapePointExplicit für isolierten Punkt). Hier musst du dann noch, wenn erforderlich, eine Fallunterscheidung einbauen. Ich hatte für das Makro ein bestehendes Makro umgeschrieben (was man an den Auskommentierungen sehen kann).

Gruß und viel Erfolg
Randle

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