(defun c:einlt (/ file zeile)
  (setq file (getfiled "Verzeichnisliste" "" "" 2))
  (if file
    (progn
      (setq file (open file "r"))
      (while (setq zeile (read-line file))
(create:simplePOINT (cdadr (read(strcat "'(" zeile ")"))))
(create:simpleTEXT (cdadr (read(strcat "'(" zeile ")"))) (itoa(caadr (read(strcat "'(" zeile ")")))))
        );while
      (close file)
      )
    (alert "Keine Datei gew„hlt!")
    )
  )
(defun create:simpleTEXT (PKT TXT /)
  (entmake (list
    '(0 . "TEXT")
    '(100 . "AcDbEntity")
    '(67 . 0)
    '(410 . "Model")
    '(8 . "0")
    '(100 . "AcDbText")
    (cons 10 PKT)
    '(40 . 2.5)
    (cons 1 TXT)
    '(50 . 0.0)
    '(41 . 1.0)
    '(51 . 0.0)
    '(7 . "Standard")
    '(71 . 0)
    '(72 . 0)
    '(11 0.0 0.0 0.0)
    '(210 0.0 0.0 1.0)
    '(100 . "AcDbText")
    '(73 . 0)
  )
  )
)
(defun create:simplePOINT (PKT /)
  (entmake (list
    '(0 . "POINT")
    '(100 . "AcDbEntity")
    '(67 . 0)
    '(410 . "Model")
    '(8 . "0")
    '(100 . "AcDbPoint")
    (cons 10 PKT)
    '(210 0.0 0.0 1.0)
    '(50 . 0.0)
    )
  )
  )