(defun C:DwgAusw (/ Da Vz)
    (setq Vz (strcat (getvar "DWGPREFIX")))
    (setq Da 
    (getfiled "Zeichnungen" Vz "DWG" 0)
    )
    (vl-load-com)
    (vla-activate ;DWG
    (vla-open
      (vla-get-documents
        (vlax-get-acad-object)
      ) 
      Da
      ;:VLAX-TRUE ;Schreibgeschützt
      )
    )
    (princ)
)