Hallo Erich,
ich mache etwas analoges auf PC und UNIX und zwar wie folgt:
sTempFolder = CATIA.SystemService.Environ("CATTemp")
Set oFileSys = CATIA.FileSystem
sFileSeparator = oFileSys.FileSeparator
Dann und ueber User-Abfrage den gewuenschten Filenamen OutputFilename abgefragt.
output_filename = sTempFolder& sFileSeparator & OutputFilename & ".txt"
Damit stelle ich sicher, dass Plattform-unabhaengig die Sicherung ins CATTemp erfolgt.
Dann:
- Berechne X Y Z der Punkte per Measures
Erzeuge Txt-File, welches durch jeden neuen Punkt "verlaengert" wird mit
OutputText = OutputText & & pointx &";" & pointy &";" & pointz & vbLf
Wenn alle Punkte gemessen und der Txt-Output fertig sind, dann schreibe ich einmal das File aus:
Set basics_out = oFileSys.CreateFile(output_filename, 1)
Set basics_stream = basics_out.OpenAsTextStream("ForWriting")
basics_stream.Write OutputText
basics_stream.Close
Klappt ganz gut damit, ist einen Versuch Wert.
Gruesse aus dem Rheinland
Thomas
------------------
CATIA - eine Laune der Natur ...
[Diese Nachricht wurde von tberger am 21. Apr. 2008 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP