[编程交流] ODBX错误

 
(defun c:FindTabs (fileNames )
(cond ((and fileNames 
        (setq myDoc (vla-GetInterfaceObject
                         (vlax-Get-Acad-Object)
                         (strcat "ObjectDBX.AxDbDocument." (substr (getvar 'AcadVer) 1 2)))))
 (setq AuditFile "D:\\My Documents\\test_reaL.csv" 
              AuditFile (open AuditFile "a"))
   (foreach File Filenames
  (cond (
           (not (vl-catch-all-apply 'vla-Open (list myDoc  file :vlax-true)))
                 (if (> (vla-get-count (vla-get-layouts myDoc)) 2)
                    (write-line (vla-get-name myDoc) AuditFile)
                     )
           )
                  )
          )
        (vl-catch-all-apply 'vlax-Release-Object (list myDoc))
        (close AuditFile)
        )
  )
 )