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

Nach dem Auswerten der Argumente müssen alle Textelemente aus dem CATPart gelesen
werden. Dazu verwenden wir die schon bekannte Funktion „GetTextAnnotations“.
'Get all Textelements
Set oColl = GetTextAnnotations
'Setze Suchmethode
If oColl Is Nothing = False Then
For i = 1 To oColl.Count
Set oAnnotation = oColl.Item(i)
Set oDrawingDimension = oAnnotation.Text.Get2dAnnot
sText = oDrawingDimension.Text
'Search erfolgreich
Nach dem Einlesen durchlaufen wir die Collection „oColl“ und holen uns von jedem
Objekt den „Text“ mit der Methode „Get2dAnnot“. Je nachdem welches Merkmal gesucht
wird, wird eine andere Auswertefunktion angewendet.
If bGlobalSearch = False Then
' wir suchen nach einen Merkmal
If InStr(1, SplitString(sText, 1), sSearch) > 0 Then
Call oCollection.Add(oAnnotation)
End If
Else
' wir suchen nach allen Löchern
If InStr(1, sSearch, SplitString(sText, 1)) > 0 Then
Call oCollection.Add(oAnnotation)
End If
End If
Next
Wenn die Variable „bGlobalSearch“ = FALSE, dann wird im ersten „InStr“ Aufruf geprüt,
ob im String „Rundloch; D=90; Clipsloch, Montageloch“ an der ersten Stelle der Lochtyp
„Rundloch“ vorkommt.
Ist die Variable „bGlobalSearch“ = TRUE, dann wird die zweite „Instr“ Funktion auf-
gerufen und die Suche umgekehrt. Danach wird im globalen String „RundlochRechteck-
lochKragenloch“ geprüt, ob der Teilstring 1 vom String „Rundloch; D = 90; Clipsloch,
Montageloch“ vorkommt.
Liefert die „Instr“ Funktionen einen Trefer, so wird das Annotation-Objekt der „Coll-
ection“ hinzugefügt.