Allgemein:

Erase Array

bei variablen Arrays auch moeglich:

Redim  Array(0)

Hier die 1. Möglichkeit – Replace über StartCommand

Vorteile: native Replace-Funktion von Catia mit allen ihren Möglichkeiten wird genutzt

Nachteil: Api-Funktionen werden genutzt, dadurch nicht ganz so stabil und langsamer

Folgenden Code bitte am Anfang eines öffentlichen Moduls (also z.B. nicht innerhalb einer UserForm):

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (Byval 
lpClassName As String, Byval lpWindowName As String) As Long

Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (
Byval hwnd As Long, Byval lpClassName As String, Byval nMaxCount As Long) 
As Long

Public Declare Function EnumChildWindows Lib "user32" (Byval hWndParent As 
Long, Byval lpEnumFunc As Long, Byval lParam As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
Byval hwnd As Long, Byval wMsg As Long, Byval wParam As Long, Byval lParam 
As String) As Long

Public Declare Sub Sleep Lib "kernel32" (Byval dwMilliseconds As Long)

Public Const WM_GETTEXT = &HD

Public Const BM_CLICK = &HF5&

Public O_hwnd As Long

Public C_hwnd As Long

Folgende Funktionen ebenfalls in eine öffentliches Modul:

Public Function FindButtonCheck(ByVal hChild As Long, ByVal lParam As Long)
As Long

    Dim iClass As String
    Dim iText As String
    Dim j As Integer
   
    'alle Elemente des Fensters finden
    iClass = Space(256)
    j = GetClassName(hChild, iClass, 63)
    iClass = Left(iClass, j)
    iText = Space(256)
    j = SendMessage(hChild, WM_GETTEXT, 255, iText)
    iText = Left(iText, j)

   
    If InStr(1, iText, "Delete") > 0 Then  'Pruefen ob es der Checkbox ist
        O_hwnd = hChild
        SendMessage O_hwnd, BM_CLICK, 0, 0
    End If
   
    FindButtonCheck = 1
   
End Function

Public Function FindButtonOK(ByVal hChild As Long, ByVal lParam As Long) 
As Long
    
    Dim iClass As String
    Dim iText As String
    Dim j As Integer

    ' alle Elemente des Fensters finden
    iClass = Space(256)
    j = GetClassName(hChild, iClass, 63)
    iClass = Left(iClass, j)
    iText = Space(256)
    j = SendMessage(hChild, WM_GETTEXT, 255, iText)
    iText = Left(iText, j)
    
    If iText = "OK" Then 'Pruefen ob es der OK-Button ist
        O_hwnd = hChild
        SendMessage O_hwnd, BM_CLICK, 0, 0 ' Button klicken
    End If
   
    FindButtonOK = 1
    
End Function

Hier nun die eigentlich Routine, mit der das Replace aufgerufen wird
Der Aufruf benötigt 3 Parameter:
1. ElementToReplace [Object] – Element welches replaced werden soll
2. ReplaceWith [Object] – Element welches Element ElementToReplace ersetzt
3. Delete [Boolean] – legt fest ob ersetztes Element gelöscht wird (true) oder nicht (false)

Sub ElementReplace(ElementToReplace As Object, ReplaceWith As Object, 
Delete As Boolean)

    'ElementToReplace selektieren
    MySelection.Clear
    MySelection.Add ElementToReplace

    'Replacebefehl starten
    CATIA.StartCommand "Replace"
    CATIA.RefreshDisplay = True

    'warten bis Fenster geladen
    Do While FensterObjekt = 0
        Sleep (500)
        FensterObjekt = FindWindow(vbNullString, "Replace")
    Loop

    'Element ReplaceWith selektieren
    MySelection.Clear
    MySelection.Add ReplaceWith
    MySelection.Search "Name='" & ReplaceWith.Name & "' ,sel"
    Sleep (200)
    
    ' Falls replaced Element geloescht werden soll - Checkbox selektieren
    If Delete = True Then
        EnumChildWindows FensterObjekt, AddressOf FindButtonCheck, 0
        Sleep (200)
    End If
    
    z = 0 'Schutz vor Endlosschleife bei Problemen
    Do While FensterObjekt <> 0 And z < 10 'warten bis Fenster geschlossen 
    oder 5 Sekunden vergangen
        z = z + 1
        EnumChildWindows FensterObjekt, AddressOf FindButtonOK, 0 'OK-
        Button druecken
        Sleep (500)
        FensterObjekt = FindWindow(vbNullString, "Replace")
    Loop

End Sub

Beispiel zum Aufruf der Procedur:

'Element welches ersetzt werden soll in "Objekt umwandeln"
    Dim MyObject_01 As Object
    Set MyObject_01 = Element01
    
    'Element mit dem ersetzt wird soll in "Objekt umwandeln"
    Dim MyObject_02 As Object
    Set MyObject_02 = Element02
    
    'eigentlicher Aufruf der Prozedur
    'ersetztes Element und exklusive Eltern sollen gelöscht werden
    ElementReplace MyObject_01, MyObject_02, True

Löschen mit Selektion:

MySelection.Clear
MySelection.Add MyElement
MySelection.Delete

Löschen mit DeleteObjectForDatum:

Set Ref = MyPart.CreateReferenceFromObject(MyElement)
MyHybShapeFactory.DeleteObjectForDatum MyElement

Ermittlung des internen Namen:

Function InternerName(MyObjekt As Object) As String
  On Error Resume Next
  Dim MyElement As ModelElement
  Set MyElement = MyObjekt.GetItem("ModelElement")
  InternerName = MyElement.InternalName
  If Err.Number <> 0 Then
      InternerName = vbNullString
  End If
End Function

Hier eine 2. Möglichkeit um ein Replace über VBA durchzuführen

Vorteile: schneller und sicherer als die erste Variante (man muss nicht ueber API und Fenstergehen)

Nachteil: nur joinfähige Elemente, also z.B. keine Punkte oder Planes, können replaced werden; exklusive Eltern können nicht automatisch gelöscht werden

folgende Procedur in ein öffentliches Modul einfügen
Der Aufruf benötigt 2 Parameter:
1. MyJoinToRefresh [Join] – Join dessen Inhalt replaced werden soll
2. MyJoinNewInput [Join] – inhalt diese Joins wird im 1. Join eingefügt

Sub JoinInhaltReplace(MyJoinToRefresh As HybridShapeAssemble, MyJoinNewInput As HybridShapeAssemble)
        
    Dim JoinElement As Reference
        
    ' alte Elemente loeschen
    For i = 1 To MyJoinToRefresh.GetElementsSize 'To Anzahl der Elemente im Join
        MyJoinToRefresh.RemoveElement 1
    Next

    ' neue Elemente auslesen und zum alten Join hinzufuegen
    For i = 1 To MyJoinNewInput.GetElementsSize
        Set JoinElement = MyJoinNewInput.GetElement(i)
        MyJoinToRefresh.AddElement JoinElement
    Next
    
    MyPart.UpdateObject MyJoinToRefresh 'update
    
    ' MyJoinNewInput mit neuem Inhalt loeschen
    Set ObjektReferenz = MyPart.CreateReferenceFromObject(MyJoinNewInput)
    MyHybShapeFactory.DeleteObjectForDatum MyJoinNewInput

End Sub

Beispiel zum Aufruf der Procedur:

JoinInhaltReplace MyJoin, MyJoin2

BooleanVariable = Not (BooleanVariable)

MyPart.InWorkObject = MyGS

alle CodeSchnipsel sind unter CatiaV5 Release 19 ServicePack 9 und mit englischer Bedienoberfläche getestet wurden.

Bei Verwendung anderer Releases/ServicePacks oder anderssprachiger Oberfläche kann es zu Fehlfunktionen und/oder Fehlermeldungen kommen.