Erzeugung von PMIs in 3D - 3D-Master: Zeichnungslose Produktbeschreibung mit CATIA V5 - page 39

Die aufgerufene Funktion hat folgenden Header:
Public Function SearchLochInformationen(ByRef oCollection As
Collection, Optional sType, Optional sAbmass ,
Optional sVerwendung) As Boolean
Man sieht, dass alle Merkmale „Optional“ angegeben sind. Deshalb sind wir in der Lage,
den Aufruf beliebig zu erweitern. Hier ein Beispiel für die ersten optionalen Argumente.
Ist kein Argument angegeben, so werden alle Lochtypen aus dem XML gelesen und die
Variable „bGlobalSearch“ auf „TRUE“ gesetzt, ansonsten auf „FALSE“
Public Function SearchLochInformationen(ByRef oCollection As
Collection, Optional sType, Optional sAbmass,
Optional sVerwendung) As Boolean
Dim oAnnotation As Annotation
Dim oDrawingDimension
Dim oColl As New Collection
Dim i As Integer, iNumber As Integer
Dim sText As String, sSearch As String
Dim bGlobalSearch As Boolean
On Error GoTo Fehler
bGlobalSearch = False
'Evaluate Arguments
If IsMissing(sType) And IsMissing(sAbmass) And IsMising(sVerwendung)
Then
' Lese alle Löcher aus XML und fasse sie zu einem String zusammen
sSearch = GetHoleTypesXML
iNumber = 1
bGlobalSearch = True
Else
If IsMissing(sType) = False Then
sSearch = sType
iNumber = 1
End If
If IsMissing(sAbmass) = False Then
sSearch = sAbmass
iNumber = 2
End If
If IsMissing(sVerwendung) = False Then
sSearch = sVerwendung
iNumber = 3
End If
End If