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

If oColl.Count > 0 Then
Set GetTextAnnotations = oColl
Else
Set oColl = Nothing
End If
Exit Function
Fehler:
Set GetTextAnnotations = Nothing
End Function
Wird mit der Suchfunktion nichts gefunden oder gibt es einen Fehler, kommt die Funktion
mit einem „ Nothing “ zurück.
Nun müssen wir die beiden Funktionen „unter einen Hut“ bringen. Damit man nicht
verschiedene Routinen für das Suchen von Löchern oder Auswerten von Löchern hat,
haben wir eine Funktion für beide Fragestellungen entwickelt.
Der Aufruf ist folgendermaßen, wenn man nach bestimmten Lochmerkmalen sucht:
Dim oColl As New Collection
Dim a As clsAnnotation
Set a = New clsAnnotation
If a.SearchLochInformationen(oColl, sType:=”Rundloch”) = True then
If oColl.count > 0 then
-> Mach was aus den Informationen
End if
End if
oder
If a.SearchLochInformationen(oColl, sVerwendung:=“Clip“) = True then
oder wenn man alle Löcher aus dem Modell auswerten will:
Dim oColl As New Collection
Dim a As clsAnnotation
Set a = New clsAnnotation
If a.SearchLochInformationen(oColl) = True then
If oColl.count > 0 then
-> Mach was aus den Informationen
End if
End if