Public Sub SaveFile(MyEditor As Editor)
    Dim MyPLMService As PLMPropagateService
    Set MyPLMService = MyEditor.GetService("PLMPropagateService")
    
    MyPLMService.Save
End Sub

Diese Funktion öffnet eine neue „3DShape“ und weist das entsprechende Fenster der Variable [Typ: Window] zu. Über die Variablen MyEditor und MyPart werden ebfalls der entsprechende Editor und das entsprechende Part übergeben.

Public Function CreateNewFileAndSetWindow(ByRef MyEditor As Editor, ByRef MyPart As Part) As Window
    Dim MyService As PLMNewService
    
    Set MyService = CATIA.GetSessionService("PLMNewService")
    MyService.PLMCreate "3DShape", MyEditor
    Set CreateNewFileAndSetWindow = CATIA.ActiveWindow
    Set MyPart = MyEditor.ActiveObject    
End Function

' Searchservice definieren
    Dim MySearchService As Service
    Set MySearchService = CATIA.GetSessionService("PLMSearch")

' PLMSearch instanziieren
    Dim MyPLMSearch 'As SearchService
    Set MyPLMSearch = MySearchService.Searches.Add

' Attribut(e) definieren und Suche starten
    MyPLMSearch.Type = "VPMReference"
    MyPLMSearch.AddAttributeCriteria "V_Name", MyFile
    MyPLMSearch.Search

' gefundene Eintraege der Suche erhalten
    Dim MyPLMEntities As PLMEntities
    Set MyPLMEntities = MyPLMSearch.EditedContent

' PLMOpen definieren und ersten Eintrag oeffnen
    Dim MyPLMOpenService As Service
    Set MyPLMOpenService = CATIA.GetSessionService("PLMOpenService")
    MyPLMOpenService.PLMOpen MyPLMEntities.Item(1), MyEditor