Чтение SummaryInfo не открывая Автокада

;;;--------------------------------- code start ----------------------------------;;;

;;;  fixo () 2012 * all rights released
;;;  3/15/12
(defun odbx-test (/ dbx_doc)
  ;; edited 5/28/06 by Jeff M
  ;; modified slightly to work with more versions
  (if (< (setq dbxver (atof (getvar "ACADVER"))) 15.06)
    (progn (alert
         "ObjectDBX method not applicable\nin this AutoCAD version"
       )
       (exit)
       (princ)
       (gc)
    )
    (progn
      (if (= (atoi (getvar "ACADVER")) 15)
    (progn

      (if (not (vl-registry-read
             "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument\\CLSID"
           )
          )
        (startapp "regsvr32.exe"
              (strcat "/s \"" (findfile "axdb15.dll") "\"")
        )
      )

      (setq    dbx_doc    (vla-getinterfaceobject
              (vlax-get-acad-object)
              "ObjectDBX.AxDbDocument"
            )
      )
    )

    (setq dbx_doc (vla-getinterfaceobject
            (vlax-get-acad-object)
            (strcat "ObjectDBX.AxDbDocument." (itoa(fix dbxver)))
              )
    )
      )
    )
  )
)
(defun C:RDWG(/ adoc datum dbxdoc dwginfo fname i result)

  (if
    (setq fname    (getfiled "Select drawing to read properies: "
              (getvar 'dwgprefix)
              "dwg"
              16))
     (progn
       (setq adoc (vla-get-ActiveDocument
            (vlax-get-acad-object)
            )
         )

       (if (and    (not (setq dbxdoc (odbx-test)))

        (not (vl-catch-all-error-p
               (vl-catch-all-apply 'vla-open (list dbxdoc fname))
               )
             )
        )
     (progn

       (setq dwginfo (vla-get-summaryinfo dbxdoc))

       (setq i   0
         msg "");<--msg is global

       (mapcar '(lambda (x)
              (if (not (eq "" (vlax-get dwginfo x)))
            (setq msg (strcat (strcat msg
                          (vl-princ-to-string x)
                          "\t"
                          (vlax-get dwginfo x)
                          "\n")))))
           (list 'title
             'subject
             'author
             'lastsavedby
             'revisionnumber
             'comments
             'keywords
             'hyperlinkbase)
           )

(if (> (vla-numcustominfo dwginfo)0)
       (while (< i (vla-numcustominfo dwginfo))
         (vla-getcustombyindex dwginfo i 'key 'value)
         (vl-princ-to-string 'title)
         (setq msg (strcat msg key "\t" value "\n"))
         (setq i (1+ i))
         )
  )
       (vl-bb-set 'result msg)
       )
     )
       )
     (vlax-release-object dbxdoc)
     )
 (setq info (vl-bb-ref 'result))
 (if info (alert info)(alert "Problem to get a summary info"))
    (princ)
    )
(prompt "\n\t---\tСтарт команды: RDWG \t---")
(prin1)
(or (vl-load-com)
    (princ))
;;;--------------------------------- code end ----------------------------------;;;