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

Function SplitString(ByVal sText As String, Optional ByVal iNumber As
Integer) As Variant
Dim sSplit() As String
On Error GoTo Fehler
sSplit = Split(sText, “;“)
If IsMissing(iNumber) = True Then
SplitString = sSplit
Else
iNumber = iNumber - 1
If iNumber >= 0 And iNumber <= UBound(sSplit) Then
SplitString = sSplit(iNumber)
Else
SplitString = ““
End If
End If
Exit Function
Fehler:
SplitString = “”
End Function
Aufruf:
sReturn = SplitString(„Rundloch; D=12±0.5; Cliploch,Montageloch“,1)
Ergebnis:
sReturn = “Rundloch”
Aufruf:
sReturn = SplitString(„Rundloch; D=12±0.5; Cliploch, Montageloch“)
Ergebnis:
sReturn(0) = “Rundloch”
sReturn(1) = “D=90”
sReturn(2) = “Clipsloch, Montageloch”
Die erste Aufgabe, die wir jetzt angehen werden, ist alle Löcher in einem CATPart zu inden.
Wie schon vorher erwähnt, haben wir im XML drei Lochtypen eingetragen. Diese müssen
jetzt ausgelesen und einer Suchroutine übergeben werden.
Dazu verwenden wir folgende Funktion.