topic Re: in VBA Forum

Xref Loaded/Not Loaded?

Anonymous — Wed, 19 Apr 2000 13:29:58 GMT

Is there a way to determine if an Xref is found or not found through VBA. I
have tried to look through the Object browser but can't seem to find any
property that will tell me if the Xref is loaded(found) or not.

TIA

Morten Andersen

Re: Xref Loaded/Not Loaded?

Anonymous — Wed, 19 Apr 2000 17:52:48 GMT

well you can loop through all the xrefs and check if the name is equal to
the one you want. here is an example. I typed most of this on the fly, so
there MAY be a syntax problem, but the logic is sound. I have used this to
add all xrefs to a list box before.
----------------------------------------------------------------------------
-
Dim strSearchingFor as string
Dim acdBlock As AcadBlock

strSearchingFor = "MyXref" ' <-The X-ref you want.

For Each acdBlock In ThisDrawing.Blocks
If acdBlock.IsXRef Then
if strSearchingFor = acdBlock.Name then
'Do what you want here - this is the one you want
end if
End If
Next
----------------------------------------------------------------------------
-
Morten Andersen wrote in message ...
>Is there a way to determine if an Xref is found or not found through VBA. I
>have tried to look through the Object browser but can't seem to find any
>property that will tell me if the Xref is loaded(found) or not.
>
>TIA
>
>Morten Andersen
>

Re: Xref Loaded/Not Loaded?

Anonymous — Wed, 19 Apr 2000 18:25:29 GMT

Do you mean you wish to know if the xref is being resolved? What I do is simply check for the existance of the xref in either its pathed location or in the support path. If you can see the file, then you know it is being resolved.

Micah

Re:

Anonymous — Wed, 19 Apr 2000 20:10:50 GMT

>If you can see the file, then you know it is being resolved.

Not if there is a problem with the file. I've been having trouble with bad
block names coming from R14 lately that won't let the xref resolve until
it's been audited/recovered. The same xref resolves in R14.

So there is still a need to know if the xref has been resolved.

--
==============================
Michael Weaver
By day: Charles Bettisworth & Co.
mweaver@bettisworth.com
By night: AlasCAD
alascad@go.com
AOL Instant messenger screen name:
AlasCAD
AUGI #w2170
==============================

Re: Xref Loaded/Not Loaded?

Anonymous — Wed, 19 Apr 2000 20:35:13 GMT

One way is to use my free VLAX class module. You cna find the soure code for
it in the Visual Basic section of my web site. Once you've added the VLAX
module to your project, you can use the following routine to determine if an
xref is currently resolved. Pass it the name of the xref and it will return
a boolean value to you. Please note that the routine performs no checks to
determine whether you have specified a valid xref name. That part is up to
you. Hope it helps.

Public Function Resolved(xref As String) As Boolean

Dim obj As VLAX

Set obj = New VLAX
retVal = obj.EvalLispExpression(
"(= 32 (logand 32 (cdr (assoc 70 (entget (tblobjname " & _
Chr(34) & "block" & Chr(34) & " " & Chr(34) & _
xref & Chr(34) & "))))))"
)
Resolved = retVal

End Function

--
Visit me at http://www2.stonemedia.com/franko

"Morten Andersen" wrote in message
news:ef00a73.-1@WebX.SaUCah8kaAW...
> Is there a way to determine if an Xref is found or not found through VBA.
I
> have tried to look through the Object browser but can't seem to find any
> property that will tell me if the Xref is loaded(found) or not.
>
> TIA
>
> Morten Andersen
>