Graphics Reference
In-Depth Information
GetXMLDimension = CInt(oNodeList.Item(0).childNodes.Item(i).Text)
GetXMLDimension = True
Exit Function
End If
Next
End If
Fehler:
GetXMLDimension = False
End Function
Dieser Funktion übergeben wir den String des auszulesenden Attributes z. B. „Pruefmass“.
Mit dem Aufruf „xmlRoot.SelectNodes(„//Dimensions/“ + sType)“ wird der dazu gehörige
„Value“ aus dem XML gelesen.
<Pruefmass>
<Frame>Oblong</Frame>
<Value>6</Value>
</Pruefmass>
Um jetzt die Dimensions mit den Attributen zu inden, bedienen wir uns folgender
Funktion: Im ersten Schritt werden alle Dimensions mit der Routine „GetDimensions“
abgeholt und dann wird das „ValueFrame“-Attribut der Dimension mit dem übergebenen
Attribut „sType“ verglichen.
Private Function SearchAttributesInDimensions(ByRef oCollection As
Collection, Optional sType) As Boolean
Dim oAnnotation As Annotation
Dim oDrawingDimension
Dim oColl As New Collection
Dim i As Integer
On Error GoTo Fehler
Set oColl = GetDimensions
If oColl Is Nothing = False Then
For i = 1 To oColl.Count
Set oAnnotation = oColl.Item(i)
Set oDrawingDimension = oAnnotation.Dimension3D.Get2dAnnot
If oDrawingDimension.ValueFrame = sType Then
Call oCollection.Add(oAnnotation)
End If
Next
End If
Search WWH ::




Custom Search