---

Hallo zusammen,

habe folgendes Problem: Ich habe ein makro erstellt das einige Geometrien erzeugt und in ein Geoset mit der Bennenung "Test_01" abgelgt werden -Einzelheiten dazu sind glaube ich nicht wichtig da dieses einwandfrei funktioniert-

Soweit so gut.

Jetzt möchte ich aber dass wenn das makro ein zweites mal durchgeführt wird dieses direkt erkennt das bereits ein Geoset mit der Benennung "Test_01" vorhanden ist und das GeoSet "Test_02" erstellt wo die Geometrien abgelegt werden.
Sprich es wird immer ein GeoSet erzeugt mit fortlaufender Nummerierung.

Bin jeden Tip dankbar. 

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

---

Servus
Anbei ein Beispiel.
Diese basiert auf der Möglichkeit das GeoSet per Namen anzusprechen, falls ein Fehler auftritt wird dann das GeoSet angelegt.

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

PS: Bitte Systeminfo ausfüllen.

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

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

---

Danke für den Tip.
Werde es gleich Morgen mal testen

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