Graphics Reference
In-Depth Information
Um mit der Klasse arbeiten zu können, brauchen wir zunächst die Funktionen “Initialize”
und “Terminate”. Beim Initialisieren holen wir uns zunächst vom CATIA das „Annotation
Set“ und die gesamten „Annotations“. Parallel dazu lesen wir sofort die XML-Datei aus
und setzen auf den ersten Knoten unsere Zugrifsvariable „xmlRoot“ darauf. Das aktuelle
Verzeichnis des VBA Scripts wird mit Hilfe der Funktion „GetVBAPath“ ermittelt. Diese
indet man im Anhang.
Private Sub Class_Initialize()
On Error GoTo Fehler
Set oPart = CATIA.ActiveDocument.Part
Set oAnnotationSet = oPart.AnnotationSets.Item(1)
Set oAnnotations = oAnnotationSet.Annotations
sCurrentDirectory = GetVBAPath
If sCurrentDirectory <> ““ Then
If Not xmlDoc.Load(sCurrentDirectory + “\MaschinenLesbar.xml“)
Then
Call MsgBox(“XML LOAD ERROR“)
Class_Terminate
Else
Set xmlRoot = xmlDoc.childNodes(1)
End If
End If
Exit Sub
Fehler:
Call MsgBox(Err.Description)
End Sub
Die Funktion „Terminate“ bereinigt die globalen Variablen und die Klasse.
Private Sub Class_Terminate()
Set oPart = Nothing
Set oAnnotationSet = Nothing
Set xmlDoc = Nothing
End Sub
Eine weitere benötigte Standardfunktion ist die Funktion „SplitString“. Mit dieser wird
ein beliebiger Text nach einem bestimmten Trennzeichen aufgebrochen. In unserem Fall
sind die Texte mit einem Semikolon „;“ aufgeteilt. Da wir die Funktion universell einsetzen
wollen, hat sie neben dem eigentlichen String noch ein optionales Argument, um auf
einen bestimmten Teilstring zugreifen zu können. Kurz gesagt rut man die Funktion
ohne Argument auf, so bekommt man ein Array der übergebenen Zeichenkette zurück,
ansonsten den erwarteten Teilstring.
Search WWH ::




Custom Search