Sub CATMain() 
 
' Datei speichern 
  Dim Datei as CATBSTR 
  Datei =  CATIA.FileSelectionBox ("Speicherung", "*.txt", CATFileSelectionModeSave) 

  If  Datei <> "" Then CATIA.ActiveDocument.SaveAs Datei 
      
  Dim mySelection as Selection 
  Set mySelection = Catia.ActiveDocument.Selection 
 
  Dim AnzahlSelekt as integer 
  AnzahlSelekt = mySelection.count   ' Gibt an wieviele Elemente selektiert wurden 
 
  Dim DStrom as TextStream 
  Set DStrom = Datei.OpenAsTextStream ("ForAppending") 
 
  DStrom.Write ( "Nr" & Chr(9) & "X" & Chr(9) & "Y" & Chr(9) & "Z" & Chr(10)) 
 
  Dim I as integer 
  Dim oPunktKoord(2) as CATSafeVariant  
  Dim oSelElem as Object 
 
  For I = 1 to AnzahlSelekt 
   
   Set oSelElem = mySelection.Item(I) 
   oSelElem.GetCoordinates (oPunktKoord)  
 
   DStrom.Write (mySelection.Item(I).Value.name  & Chr(9)& oPunktKoord(0) & Chr(9) & oPunktKoord(1) & Chr(9) &oPunktKoord(2) & Chr(10))
' Die Wertetabelle.txt kann in Excel importiert werden 
 
  Next 
 
  DStrom.Close 
  
End Sub