(defun c:FlKop (/ obj flaeche wert exitflag)
  (setq exitflag nil)
  (setq obj nil)
  (setq obj (entsel "\nFläche wählen: "))
  (command "_area" "o" obj)
  (setq flaeche (getvar "area"))
  (setq wert (rtos flaeche 2 0))
  (vl-load-com)
  (setq a1 (vlax-create-object "avbClipboardDLL.avbClipboard"))
  (vlax-invoke a1  "clear")
  (vlax-invoke a1  "SetText" wert)
  (vlax-release-object a1)
  (princ)
)