(defun c:pktkoo (/ pkt txtstil txthoeh abstX abstY txtlayr linlayr machline)
  ;;;Variable Werte
  (setq txtstil "Standard"
	txtlayr "0"
	txthoeh 0.9
	abstX 0.9
	abstY 0.9
	linlayr "0"
	machline nil; T oder nil -- T->Linie wird gezeichnet
	)
  ;;;
  (while (setq pkt (getpoint "\nPunkt:"))
    (entmake (list
	       '(0 . "TEXT")
	       '(100 . "AcDbEntity")
	       '(67 . 0)
	       '(410 . "Model")
	       (cons 8 txtlayr)
	       '(100 . "AcDbText")
	       (cons 10 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
	       (cons 40 txthoeh)
	       (cons 1 (strcat (rtos (car pkt) 2 2) "-" (rtos (cadr pkt) 2 2) "-" (rtos (caddr pkt) 2 2)))
	       '(50 . 0.0)
	       '(41 . 1.0)
	       '(51 . 0.0)
	       (cons 7 txtstil)
	       '(71 . 0)
	       '(72 . 0)
	       '(11 0.0 0.0 0.0)
	       '(210 0.0 0.0 1.0)
	       '(100 . "AcDbText")
	       '(73 . 0)
	       )
	     )
    (if machline
      (entmake (list
		 '(0 . "LINE")
		 '(100 . "AcDbEntity")
		 '(67 . 0)
		 '(410 . "Model")
		 (cons 8 linlayr)
		 '(100 . "AcDbLine")
		 (cons 10 pkt)
		 (cons 11 (list (+ (car pkt) abstX) (+ (cadr pkt) abstY) (caddr pkt)))
		 '(210 0.0 0.0 1.0)
		 )
	       )
      )
    )
  )