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

Public Function GetHoleTypesXML() As String
Dim oNodeList As IXMLDOMNodeList
Dim i As Integer
Dim sHoleType As String
On Error GoTo Fehler
sHoleType = “”
Set oNodeList = xmlRoot.selectNodes(“//Texts/Hole/Search/Type“)
For i = 0 To oNodeList.Length - 1
sHoleType = sHoleType + oNodeList.Item(i).Text
Next
GetHoleTypesXML = sHoleType
Exit Function
Fehler:
GetHoleTypesXML = “”
End Function
In der Routine wird der Knoten „//Texts/Hole/Search/Type“ gesucht und alle Typen der
Reihe werden aufgesammelt. Diese werden zu einem Gesamtstring verbunden. Der String
sieht dann folgendermaßen aus:
„RundlochRechtecklochKragenloch“
Die nächste Frage, die sich stellt, ist: wie inde ich eigentlich die Texte im CATPart. Dazu
bedienen wir uns der Standardsuchfunktion von CATIA „Search“.
Wir verpacken diese Funktion in einem Aufruf, der uns alle „Texte“ als „Collection“
zurückgibt.
Private Function GetTextAnnotations() As Collection
Dim osel As Selection
Dim oColl As New Collection
Dim i As Integer
On Error GoTo Fehler
Set osel = CATIA.ActiveDocument.Selection
osel.Clear
Call osel.Search(“'Functional Tolerancing & Annotations'.Text;all“)
For i = 1 To osel.Count2
Call oColl.Add(osel.Item2(i).Value)
Next i
Call osel.Clear