' Das Originalmakro stammt aus
' http://ww3.cad.de/foren/ubb/Forum137/HTML/000586.shtml
' es wurde hier angepasst um es ggf. in den
' GSD_PointSplineLoftFromExcel.xls von Dassault einzufügen

'Man markiert im GSD die auszulesenden Punkte und führt das Script aus

Const cDateiPfad = "C:\Users\marcm\Documents\Punkt_exp.txt" 
' Ich lege für den schnellen Zugriff meine Datei auf den Desktop
' Dateipfad nach eigenem Ermessen ändern 
' 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 
 
  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.Value.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