(defun c:hkote ()
  (if (not (tblsearch "BLOCK" "Höhenpunkt")) (exit))
  (setq attdia-s (getvar "attdia"))
  (setq dimzin-s (getvar "dimzin"))
  (setvar "attdia" 0)
  (setvar "dimzin" 0)
  (command "_-insert" "höhenpunkt" (setq p1 (getpoint "\nPunkt wählen: ")) "" "" "" (rtos (caddr p1) 2 2))
  (setvar "attdia" attdia-s)
  (setvar "dimzin" dimzin-s)
  )