ODBX Error

I wrote this routine to check for number of tabs on a drawing thru DBX

 
(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)
        )
  )
 )

everythings working fine, somewhere along the way it shows

"Two vertices were added to a 2D pline (3AFB9) which had no

vertices."

What do you think is causing this? any thoughts?

i'm runiing this code thru 9000+ files.

Autocad 2009

Edit: everything appears to be okay now.. Dont really know what gives the first time i run it on 500 files, All is well

Thanks

crap! the message is back

suggestions gentlemen?

Sounds like an issue from a different code that is creating an LWPolyline definition with no vertices, but with DXF 90 set to 2.

Sounds like an issue from a different code that is creating an LWPolyline definition with no vertices, but with DXF 90 set to 2.

That could be it.

When you running ODBX does is still load acaddoc.lsp and all routines at startup suite?