(defun c:vein (/ file zeile)
 (setq file (getfiled "Verzeichnisliste" "" "" 4))
 (setq file (open file "r"))
 (setq zeile (read-line file))
 (setq i 1)
 (setvar "PDMODE" 35)
 (setvar "PDSIZE" 5.0)
  (while (/= i 505)
  (setq zeile (read (strcat "(" zeile ")"))) 
  (print zeile)
  (setq Nr (nth 0 zeile))
  (itoa Nr)	
  (print Nr)	
  (setq X    (nth 2 zeile))
  (setq Y    (nth 4 zeile))
  (setq Z    (nth 6 zeile))
  (setq LNr  (nth 7 zeile))
  (setq XT   (+ 5.0 X))
  (setq YT   (+ 5.0 Y))
  (setq Pkt  (list X Y Z)) 
  (setq PktT (list XT YT 0.0))	 
  (command "PUNKT" Pkt)
  (print Pkt)
  (command "TEXT" PktT 5.0 0.0 Nr)
  (setq zeile (read-line file))
  (setq i (1+ i))
  (print i)
  )
 (prompt "EOF erreicht\n")
 (close file)
 (princ)
)