Const cDateiPfad = "/home/q202988/catia/CATIA_Makros/Punkt_exp.txt"

'     Alle Punkte im Trace selektieren
Sub sMark_Points()
	Dim Liste As Collection
	Set Liste = CATIA.ActiveDocument.Selection
	Liste.clear
	Liste.Search "(((((FreeStyle.Point + Sketcher.Point) + Drafting.Point) + 'Part Design'.Point) + 'Generative Shape Design'.Point) & Name=*),all"
End Sub

'	Existiert die Date bereits?
Function fFileExist() as Integer
	On Error Resume Next
	CATIA.FileSystem.GetFile (cDateiPfad)
	fFileExist = Err.Number
End Function



Sub CATMain()

'      Datei erzeugen
  Dim Datei as File

  If   fFileExist() <> 0 then 
	Set Datei = CATIA.FileSystem.CreateFile (cDateiPfad, False)
    Else 
	Set Datei = CATIA.FileSystem.GetFile (cDateiPfad)
  End If

  sMark_Points()	' Markiert alle Punkte

  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 ( "Name" & Chr(9) & "X" & Chr(9) & "Y" & Chr(9) & "Z" & Chr(10))

  Dim I as integer
  Dim oPunktKoord(2) as CATSafeVariant 
  Dim oSelElem as SelectedElement

  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))

  Next

  DStrom.Close


End Sub