---

Hallo Zusammen,

ich bräuchte mal wieder euere Hilfe.

Folgendes:

Ich habe mehrere Body's in einem Part.
Bsp: "Body_1" und "Body_2"

Ich erzeuge nun in einem Makro einen weiteren Körper.
Dessen Name soll eins höher sein als der höchste Wert, sprich:

Es existiert "Body_1" und "Body_2", also soll der neu erzeugte Body, "Body_3" heißen!

Ich bin soweit dass ich über eine Selection "Body_*" suche.
Nun müsst ich ja von jedem Body das letzte Zeichen des Namen auslesen.
Dann könnte ich damit prüfen ob das letzte Zeichen ein Integer ist, und wenn ja, dann soll er eins höher zählen.

Allerdings habe ich keine Idee wie ich darauf zugreifen kann, bzw. ob das überhaupt möglich ist.

Hoffe es ist einigermaßen verständlich 

Danke schon mal für die Hilfe

Mfg Jonas

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

---

Servus
Du könntest ach über das direkt ansprechen des Bodies per Name und einer Fehlerbehandlung, feststellen welcher Body schon vorhanden ist.
Anbei ein Beispiel (für GeometrischeSets und einen anderen Namen/Nummerierung):

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Dim i As Integer
Dim Name As String

'Fehlerbehandlng auschalten
On Error Resume Next
For i = 1 To 99
   
    Name = "Test_" & Right(CStr(i + 100), 2)
   
    Set hybridBody1 = hybridBodies1.Item(Name)
   
    If Err.Number <> 0 Then
        Set hybridBody1 = hybridBodies1.Add
        hybridBody1.Name = Name
        Exit For
    End If
Next
   
Err.Clear
'Fehlerbehandlng einschalten
On Error GoTo 0

End Sub

---

Gruß
Bernd

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

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

---

Okey Danke!

Ich werde es bei gelegenheit ausprobieren und mich nochmal melden, sollte es Probleme geben bzw. wenn es klappt.

Mfg Jonas

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

---

Klappt Perfekt!

Vielen Dank 

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