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

Liefert die Funktion einen Trefer, so wird das „Dimension Object“ der Collection hinzu-
gefügt.
If oCollection.Count > 0 Then
SearchAttributesInDimensions = True
Set oColl = Nothing
Exit Function
Else
SearchAttributesInDimensions = False
Set oCollection = Nothing
Set oColl = Nothing
Exit Function
End If
Fehler:
SearchAttributesInDimensions = False
Set oCollection = Nothing
Set oColl = Nothing
End Function
Am Ende der Funktion wird nur noch ermittelt, ob ein Eintrag in der Collection vorhanden
ist und dementsprechend die Funktion „SearchAttributesInDimensions“ mit einem Rück-
gabewert belegt.
Innerhalb der Klasse deinieren wir noch eine Funktion, um den Zugrif vom Modul
aus zu vereinheitlichen.
Public Function SearchPruefDimension(ByRef oColl As Collection) As
Boolean
Dim oType As Integer
If GetXMLDimension(szPruefMass, oType) = True Then
If SearchAttributesInDimensions(oColl, oType) = True Then
SearchPruefDimension = True
Else
SearchPruefDimension = False
End If
Else
SearchPruefDimension = False
End If
End Function
Der Aufruf der Klasse erfolgt wie bei den Texten aus einem Modul und kann folgender-
maßen ausschauen: