Test dans un exe autonome
Le document testé est une pièce, un assemblage ou une mise en plan.
Permet de programmer des opérations spécifiques dans un exécutable. La valeur de retour permet de contrôler si l’exécution est valide, si la valeur de retour est différente de la valeur programmée (ici = 1) l’exécution est considérée comme échouée.
L’emplacement du document est passé en argument.
Exemple de programme autonome (application console en VB.net) :
' Lecture des arguments
Dim args() As String = Environment.GetCommandLineArgs()
Sub Main()
If args.Length < 2 Then End
Dim stPath As String = args(1)
Select Case IO.Path.GetExtension(stPath).ToUpper
Case ''.SLDPRT''
Environment.Exit(1) ' Retour 1 si le chemin indique une pièce
Case ''.SLDASM''
Environment.Exit(2) ' Retour 2 si le chemin indique un assemblage
Case ''.SLDDRW''
Environment.Exit(3) ' Retour 3 si le chemin indique une mise en plan
Case Else
Environment.Exit(0) ' Retour 0 si le chemin n'indique ni une pièce, ni un assemblage ou ni une mise en plan
End Select
End Sub