Public Sub DatenSpeichern()
 
Dim DateiName, tempbound2
If filename = "" Then
Form1.dlgDatei.filename = ""
Form1.dlgDatei.Filter = "Lascan Frame    (*.lff)|*.lff"
Form1.dlgDatei.DialogTitle = "Frames speichern"
Form1.dlgDatei.ShowSave
If Form1.dlgDatei.filename = "" Then Exit Sub
DateiName = Form1.dlgDatei.filename
Else
DateiName = filename
End If
Dim version As Byte, DateiNr, a, B, c, Antwort
 
DateiNr = FreeFile
Open DateiName For Binary As DateiNr
 
'************************Dateiformatsversion
version = 0
 
'*********************** Versionsdaten schreiben
 
Put #DateiNr, , "L"
Put #DateiNr, , "A"
Put #DateiNr, , "S"
Put #DateiNr, , "C"
Put #DateiNr, , "A"
Put #DateiNr, , "N"
Put #DateiNr, , version
 
'************************Dimensionen schreiben
a = Form1.Figurnummer
    TempBound = UBound(Figur(a).Frame, 1)  ' schreibt von der Figur die Anzahl 
    ' der Frames
 
    Put #DateiNr, , CLng(TempBound)
    For B = 0 To UBound(Figur(a).Frame, 1)
    TempBound = UBound(Figur(a).Frame(B).Object, 1) 'schreibt von jedem Frame 
    ' die Anzahl der Objecte
 
    Put #DateiNr, , CLng(TempBound)
    For c = 0 To UBound(Figur(a).Frame(B).Object, 1)
    TempBound = UBound(Figur(a).Frame(B).Object(c).Punkt, 1)  'schreibt von 
    ' jedem Objekt die Anzahl der Punkte
 
    Put #DateiNr, , CLng(TempBound)
 
Next
 
Next
 
DoEvents
 
Put DateiNr, , Figur(a) ' schreibt die Figurdaten
 
Close DateiNr
 
 
End Sub