(defun c:zblock ( / blockhandle)
  ;; Handle des Blocks
  (setq blockhandle "9757")
  
  ;; Zoom-Befehl starten und Handle verwenden
  (command "_.ZOOM" "o" "eig" "ha" blockhandle)
  
  (alert (strcat "Die Blockreferenz mit dem Handle '" blockhandle "' wurde zentriert angezeigt."))
  
  (princ)
)