Test in einer eigenständigen Exe
Bei dem getesteten Dokument handelt es sich um ein Teil, eine Baugruppe oder eine Zeichnung.
Erlaubt bestimmte Operationen in einer ausführbaren Datei zu programmieren. Mit dem Rückgabewert wird überprüft, ob die Ausführung gültig ist. Wenn der Rückgabewert nicht dem programmierten Wert (hier = 1) entspricht, gilt die Ausführung als fehlgeschlagen.
Der Speicherort des Dokuments wird als Argument übergeben.
Beispiel für ein eigenständiges Programm (Konsolenanwendung in VB.net):
' Lesen von Argumenten
Dim args() As String = Umgebung.GetCommandLineArgs()
Sub Main()
If args.Length < 2 Dann Ende
Dim stPath As String = args(1)
Select Case IO.Pfad.GetExtension(stPath).ToUpper
Case ''.SLDPRT''.
Umgebung.Exit(1)' Rückgabe 1, wenn der Pfad auf einen Raum zeigt
Case ''.SLDASM'''
Umgebung.Exit(2)' Return 2, wenn der Pfad eine Baugruppe anzeigt
Case ''.SLDDRW''
Umgebung.Exit(3)' Zurück 3, wenn der Pfad eine Zeichnung angibt
Case Else
Umgebung.Exit(0)' Rückgabe 0, wenn der Pfad weder ein Teil noch eine Baugruppe oder eine Zeichnung angibt
Ende Select
Ende Sub