;;; DIGPKT.LSP
;;; Programm zur Ausgabe digitalisierter Punkte in ASCII-Datei
;;;
;;; Juli 1996 by Joachim Dettmar, Julius-Leber-Str. 2, 59368 Werne
;;;              Telefon (0 23 89) 53 44 28   eMail: JDettmar@aol.com
;
  (defun C:DIGPKT (/ DatNam X BZ LP LPX LPY O:Echo DATEI)
    (setq O:Echo (getvar "cmdecho")
          x 0
    )
    (setvar "cmdecho" 0)
    (GetFileName)
    (while (AND (/= BZ "") (= x 0)) ; „uáere Schleife
;Punktbezeichnung max. 10 Stellen einlesen
      (setq BZ "           ")
      (while (> (strlen BZ) 10)
        (setq BZ (getstring "\nPunktbezeichnung (max. 10 Stellen) oder <RETURN> zum Beenden: "))
      )
      (if (/= BZ "")
        (while (< (strlen BZ) 10)
          (setq BZ (strcat " " BZ))
        )
      )
;Punkt waehlen lassen und Koordinaten anzeigen:
      (IF (/= BZ "")
        (progn
          (setq LP (getpoint "Punkt picken ...")
                LPX (rtos (car LP)) LPY (rtos (cadr LP))
          )
          (princ (strcat " Punkt: " LPX "," LPY))
          (while (< (strlen LPX) 10)
            (setq LPX (strcat " " LPX))
          )
          (while (< (strlen LPY) 10)
            (setq LPY (strcat " " LPY))
          )
;Werte in Datei schreiben:
          (setq Datei (open DatNam "a"))
          (write-line (strcat BZ " " LPX " " LPY) Datei)
          (close Datei)
        )
      )
    )
    (setvar "CMDECHO" O:Echo)
    (princ)
  )
;------------------------------------------------------------------------------
  (defun GetFileName ()
    (while (not DatNam)
      (setq DatNam (strcat (getstring "Ausgabedatei : ")))
    )
  )
;------------------------------------------------------------------------------
  (princ "\rDigitalisierungsprogramm geladen!")
  (princ)