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

Das gesamte XML sieht folgendermaßen aus:
<?xml version=“1.0“ encoding=“utf-8“?>
<Annotations>
<Texts>
<Hole>
<Search>
<Type>Rundloch</Type>
<Type>Rechteckloch</Type>
<Type>Kragenloch</Type>
</Search>
<Lochstring>
<Element>Type</Element>
<Element>Abmass</Element>
<Element>Verwendung</Element>
</Lochstring>
</Hole>
</Texts>
<Dimensions>
<Pruefmass>
<Frame>Oblong</Frame>
<Value>6</Value>
</Pruefmass>
<Funktionsmass>
<Frame>Rectangle</Frame>
<Value>5</Value>
</Funktionsmass>
</Dimensions>
</Annotations>
Beginnen wir jetzt mit dem Auslesen der Information aus der XML-Datei. Dazu benötigen
wir erstmals eine Klasse in VBA. Diese nennen wir „clsAnnotation“.
Folgende globalen Variablen müssen wir jetzt deinieren:
/* Globale Variablen */
Private oPart As Part
Private oAnnotationSet As AnnotationSet
Private oAnnotations As Annotations
Private sCurrentDirectory As String
Private xmlDoc As New DOMDocument
Private xmlRoot As IXMLDOMNode