(DEFUN C:AECDWG2M ( / aecVars entry)
  ; Einstellen einer AEC DWG auf Meter.
  (setq aecVars (dictsearch (namedobjdict) "AEC_VARS"))
  (if aecVars
    (progn
      (setq entry (dictnext (cdr (assoc -1 aecVars)) t))
      ; Überlesen bis AEC_VARS_DWG_SETUP
      (while (not (= (cdr (assoc 0 entry)) "AEC_VARS_DWG_SETUP"))
        (setq entry (dictnext (cdr (assoc -1 aecVars))))
      )
      ; Code 71 (16 Bit integer); 2 = Meter, 30 = Fuß
      (entmod (subst (cons 71 2) (assoc 71 entry) entry))
      (prompt "\nAEC Variable Zeichnungseinheit wurde auf Meter eingestellt.")
    )
    (prompt "\nDWG enthält keine AEC Variablen.")
  )
  (princ)
) 



(princ "\nDieses Lisp enstand hier:\n==> http://ww3.cad.de/foren/ubb/Forum54/HTML/012931.shtml#000014\nund wird mit aecdwg2m gestartet.")
(princ)