Sub CATMain()

Dim MyDocument As DrawingDocument
Set MyDocument = CATIA.ActiveDocument

Dim MyDimension As DrawingDimension

Dim intIndexLng As Long
Dim intBeforeStr As String
Dim intAfterStr As String
Dim intUpperStr As String
Dim intLowerStr As String

Dim I As Long
   
Dim selection1 As Object 'Selection for CATScript
Set selection1 = MyDocument.Selection
   
selection1.Search "CATDrwSearch.DrwDimension,all"

'***INDEXWERT FESTLEGEN AUF DEN DIE METHODE ANGEWENDET WERDEN SOLL
intIndexLng = 1 'MAIN VAULE
'intIndexLng = 2 'DUAL VALUE

Dim MyDimValue As Object

For I = 1 To selection1.Count
    Set MyDimension = selection1.Item(I).Value
   
    Set MyDimValue = MyDimension.GetValue
       
    intLowerStr = "Nr." & I
   
    '***TEXTE SCHREIBEN (DER TEXT HINTER DEM MAß IST SINNGEMÄß "intAfterStr")
    MyDimValue.SetBaultText intIndexLng, intBeforeStr, intAfterStr, intUpperStr, intLowerStr
 
Next

End Sub