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

If oCollection.Count > 0 Then
SearchLochInformationen = True
Set oColl = Nothing
Exit Function
Else
SearchLochInformationen = False
Set oCollection = Nothing
Set oColl = Nothing
Exit Function
End If
Fehler:
SearchLochInformationen = 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 „SearchLochInformationen“ mit einem Rückgabe-
wert belegt.
Jetzt widmen wir uns noch dem Auslesen von „Dimensions“. Im vorherigen Absatz über
die XML-Beschreibung lernten wir die Attribute von Dimensions kennen. Die Skizze soll
nochmals den Umfang verdeutlichen, über den wir jetzt sprechen.
Als erstes lesen wir die Beschreibung eines z. B. Funktionsmaßes aus der XML-Datei. Dazu
verwenden wir die Funktion: GetXMLDimension
Private Function GetXMLDimension(ByVal sType As String, ByRef oType As
Integer) As Boolean
Dim oNodeList As IXMLDOMNodeList
Dim i As Integer
On Error GoTo Fehler
Set oNodeList = xmlRoot.selectNodes(„//Dimensions/“ + sType)
If oNodeList.Length > 0 Then
For i = 0 To oNodeList.Item(0).childNodes.Length - 1
If oNodeList.Item(0).childNodes.Item(i).nodeName = „Value“ Then