XREF verification

Is there a way to verify if there are any xrefs within a file without opening that file? I know you can use the Designcenter but would like to use code as part of a routine to check if all files have been bound into an exported file.

 

Here's the bait, now you'll have to land it...

(vl-load-com)
(defun c:dbxblock (/ dbxDoc dwgname la cn lp it con)
(setq dwgname (getfiled "Select Drawing File" "" "dwg" 4))
(if dwgname
(progn
(setq dbxDoc
(vla-GetInterfaceObject
(vlax-get-acad-object)
"ObjectDBX.AxDbDocument"
)
)

(vla-open dbxDoc DwgName)

(setq la (vla-get-block dbxdoc)
cn (vla-get-count la)
lp 0
)

(repeat cn
(setq it (vla-item la lp)
)
(setq con (vla-get-isxref it))
(princ con)

(setq lp (1+ lp))

)

(vl-catch-all-apply
'(lambda () (vla-close DBXDOC ':VLAX-TRUE 'ITEM))
)

(VL-CATCH-ALL-APPLY
'vlax-release-object

(list dbxDoc dwgname la cn lp it con)

)
(vlax-release-object dbxDoc)

(setq dbxDoc nil)
)
)
(princ)
)

--
MASi
Copyright 2004 by Cadentity
www.Cadentity.com
Autodesk
Authorized Developer

 

Reference Manager
Installs with 2005

blairmack <>
|>Is there a way to verify if there are any xrefs within a file without opening that file? I know you can use the Designcenter but would like to use code as part of a routine to check if all files have been bound into an exported file.


David

 

"...would like to use code as part of a routine ..."

Just curious...How do you code that...?

 

your the dbx master, you already know how to do that

"Rudy Tovar" <>
|>"...would like to use code as part of a routine ..."
|>
|>Just curious...How do you code that...?
|>
|>|>> Reference Manager
|>> Installs with 2005
|>>
|>> blairmack <>
|>> |>Is there a way to verify if there are any xrefs within a file without
|>> opening that file? I know you can use the Designcenter but would like to
|>> use code as part of a routine to check if all files have been bound into
|>> an exported file.
|>>
|>>
|>> David
|>


David

 

Thanks for that Rudy.
Seems to bomb out at:
(setq dbxDoc (vla-GetInterfaceObject
(vlax-get-acad-object)
"ObjectDBX.AxDbDocument"
)
)
Message as follows : note:> nilAutomation Error. Problem in loading application.
I'm only just starting to feel my way in Visual after using Autolisp forever.

Any help would be much appreciated.

Blair.