topic Re: in VBA Forum

xref list

Anonymous — Wed, 27 Sep 2000 23:12:42 GMT

using autocad 14 and vba how would i get a list of xrefs in the current
drawing?
Rob

Re: xref list

Anonymous — Fri, 25 Jul 2003 06:39:22 GMT

I''m new to VBA so excuse me for all the bad programming in this routine.
I'm trying to get it to tell me what xref's and nested xref's are in a
drawing and give their file path, insertion point and scale.
I can get this information for the main xref's but I can only seem to get
the name for the nested xrefs.
I cant seem to get my head round the difference between a block and a
blockreference and why I can can only get certain properties for each one.

Thanks

Graeme

Option Explicit

Public Sub QDA_list()
On Error Resume Next
Dim XrfObj As AcadBlock
Dim XrfRef As AcadBlockReference
Dim Xrfnme As String
Dim XrfInsPt As Variant
Dim XrfScle As Variant
Dim XrfPath As String
Dim i As Integer
Dim Count As Integer

For i = 0 To Count + 1
For Each XrfObj In ThisDrawing.Blocks
Set XrfRef = XrfObj.Item(i)
If XrfObj.IsXRef Then
Xrfnme = XrfObj.Name
'If Xrfnme = "" Then
'MsgBox "there are no xrefs in this drawing"
XrfInsPt = XrfRef.InsertionPoint
XrfScle = XrfRef.XScaleFactor
XrfPath = XrfRef.Path
MsgBox "The xrefs attached include " & Xrfnme
MsgBox "The xref path is " & XrfPath
MsgBox "The xref scale is " & XrfScle
MsgBox "The xrefs are at " & XrfInsPt(0) & ", " & XrfInsPt(1) &
", " & XrfInsPt(2)
End If
Next
Next i
End Sub

Re:

Anonymous — Fri, 25 Jul 2003 10:33:07 GMT

The problem is this huge hole in the object model that exposes the path of
an XRef *only* via AcadExternalReference instead of thru the Block object.

Give this a shot:

Option Explicit

Public Sub Test()
Dim XRefs As New Collection
Set XRefs = GetXRefs

Dim XRef As AcadExternalReference
Dim ynInserted As Boolean
Dim i As Integer

For i = 1 To XRefs.Count
Set XRef = XRefs(i)
ynInserted = IsInserted(XRef)
Debug.Print _
"XRef name: " & XRef.Name & _
vbCrLf & "XRef path: " & XRef.Path
If ynInserted Then
Debug.Print _
"Inserted at: " & _
CStr(XRef.InsertionPoint(0)) & "," & _
CStr(XRef.InsertionPoint(1)) & "," & _
CStr(XRef.InsertionPoint(2)) & _
vbCrLf & "Scale factor: " & XRef.XScaleFactor
End If
Next i
End Sub

Private Function IsInserted(Block As AcadExternalReference) As Boolean
Dim BlockOwner As Long
BlockOwner = Block.OwnerID

If BlockOwner = ThisDrawing.ModelSpace.ObjectID Then
IsInserted = True
Exit Function
End If

Dim ThisLayout As AcadLayout
For Each ThisLayout In ThisDrawing.Layouts
If BlockOwner = ThisLayout.ObjectID Then
IsInserted = True
Exit Function
End If
Next ThisLayout
End Function

Private Function GetXRefs() As Collection
Dim ThisBlock As AcadBlock
Dim ThisObject As AcadEntity
Dim AnXRef As AcadExternalReference
Dim Result As New Collection
Dim i As Integer
For Each ThisBlock In ThisDrawing.Blocks
For Each ThisObject In ThisBlock
If TypeOf ThisObject Is AcadExternalReference Then
Set AnXRef = ThisObject
Result.Add AnXRef, CStr(i)
i = i + 1
End If
Next ThisObject
Next ThisBlock
Set GetXRefs = Result
Set Result = Nothing
End Function

--
R. Robert Bell, MCSE
www.AcadX.com

"Graeme Hyslop" wrote in message
news:71CFADE38D1632CB3837ED32C52D9F2F@in.WebX.maYIadrTaRb...
| I''m new to VBA so excuse me for all the bad programming in this routine.
| I'm trying to get it to tell me what xref's and nested xref's are in a
| drawing and give their file path, insertion point and scale.
| I can get this information for the main xref's but I can only seem to get
| the name for the nested xrefs.
| I cant seem to get my head round the difference between a block and a
| blockreference and why I can can only get certain properties for each one.
|
| Thanks
|
| Graeme
|
|
| Option Explicit
|
| Public Sub QDA_list()
| On Error Resume Next
| Dim XrfObj As AcadBlock
| Dim XrfRef As AcadBlockReference
| Dim Xrfnme As String
| Dim XrfInsPt As Variant
| Dim XrfScle As Variant
| Dim XrfPath As String
| Dim i As Integer
| Dim Count As Integer
|
| For i = 0 To Count + 1
| For Each XrfObj In ThisDrawing.Blocks
| Set XrfRef = XrfObj.Item(i)
| If XrfObj.IsXRef Then
| Xrfnme = XrfObj.Name
| 'If Xrfnme = "" Then
| 'MsgBox "there are no xrefs in this drawing"
| XrfInsPt = XrfRef.InsertionPoint
| XrfScle = XrfRef.XScaleFactor
| XrfPath = XrfRef.Path
| MsgBox "The xrefs attached include " & Xrfnme
| MsgBox "The xref path is " & XrfPath
| MsgBox "The xref scale is " & XrfScle
| MsgBox "The xrefs are at " & XrfInsPt(0) & ", " & XrfInsPt(1)
&
| ", " & XrfInsPt(2)
| End If
| Next
| Next i
| End Sub
|
|

Re:

Anonymous — Fri, 25 Jul 2003 11:36:01 GMT

Thank you Robert that worked almost perfect. To start with it listed the
name and path of them all, but only the scale and insertion point of the
first xref. By commenting out the If ynInserted ... line it worked
perfectly. Is the If ynInserted ... line important for something ?

Graeme

> Option Explicit
>
> Public Sub Test()
> Dim XRefs As New Collection
> Set XRefs = GetXRefs
>
> Dim XRef As AcadExternalReference
> Dim ynInserted As Boolean
> Dim i As Integer
>
> For i = 1 To XRefs.Count
> Set XRef = XRefs(i)
> ynInserted = IsInserted(XRef)
> Debug.Print _
> "XRef name: " & XRef.Name & _
> vbCrLf & "XRef path: " & XRef.Path
> If ynInserted Then
> Debug.Print _
> "Inserted at: " & _
> CStr(XRef.InsertionPoint(0)) & "," & _
> CStr(XRef.InsertionPoint(1)) & "," & _
> CStr(XRef.InsertionPoint(2)) & _
> vbCrLf & "Scale factor: " & XRef.XScaleFactor
> End If
> Next i
> End Sub
>
> Private Function IsInserted(Block As AcadExternalReference) As Boolean
> Dim BlockOwner As Long
> BlockOwner = Block.OwnerID
>
> If BlockOwner = ThisDrawing.ModelSpace.ObjectID Then
> IsInserted = True
> Exit Function
> End If
>
> Dim ThisLayout As AcadLayout
> For Each ThisLayout In ThisDrawing.Layouts
> If BlockOwner = ThisLayout.ObjectID Then
> IsInserted = True
> Exit Function
> End If
> Next ThisLayout
> End Function
>
> Private Function GetXRefs() As Collection
> Dim ThisBlock As AcadBlock
> Dim ThisObject As AcadEntity
> Dim AnXRef As AcadExternalReference
> Dim Result As New Collection
> Dim i As Integer
> For Each ThisBlock In ThisDrawing.Blocks
> For Each ThisObject In ThisBlock
> If TypeOf ThisObject Is AcadExternalReference Then
> Set AnXRef = ThisObject
> Result.Add AnXRef, CStr(i)
> i = i + 1
> End If
> Next ThisObject
> Next ThisBlock
> Set GetXRefs = Result
> Set Result = Nothing
> End Function
>
>
> --
> R. Robert Bell, MCSE
> www.AcadX.com
>
>

Re:

Anonymous — Fri, 25 Jul 2003 12:05:20 GMT

Re:

Anonymous — Fri, 25 Jul 2003 12:15:21 GMT

Re:

Anonymous — Fri, 25 Jul 2003 12:26:24 GMT

Re:

Anonymous — Sat, 26 Jul 2003 12:07:17 GMT

OK forget what I said about binding drawings. I'm feeling kinda stupid now.
For some reason I thought that xrefs with nested xrefs could not be bound
but I just discovered that they can. But anyway, listing the xrefs is still
gonna be useful !

Re:

Anonymous — Sat, 26 Jul 2003 12:10:10 GMT

Yes.

However... binding XRefs that contain resolved XRefs pose no problem. Are
you trying to bind XRefs that contain *unresolved* or unloaded nested XRefs?

--
R. Robert Bell, MCSE
www.AcadX.com

"Graeme Hyslop" wrote in message
news:874DDA89468404D7AB57F43221A986CC@in.WebX.maYIadrTaRb...
| Oh I see what you mean. So if I wanted to insert the nested xrefs as
blocks
| after detaching the whole thing and purging I'd have to do a calculation
| relative to the parent xref insertion point and the parent xref scale ?
|
| Graeme
| "R. Robert Bell" wrote in message
| news:594ADA07AB214F89E458D324E31CCEF8@in.WebX.maYIadrTaRb...
| > Well, a nested XRef's insertion point only make sense in the context of
| the
| > parent XRef that it is in. I deemed it unneeded to report the insertion
| > point of nested XRefs, because of what use would it be?
| >
| > For instance:
| >
| > XRef name: Diff
| > XRef path: C:\Temp\Diff.dwg
| > Inserted at: 12,12,0
| > Scale factor: 1
| >
| > XRef name: Drawing2
| > XRef path: C:\Temp\Drawing2.dwg
| > Inserted at: 9.63501133246334,30.3961543419182,0
| > Scale factor: 1
| >
| > XRef name: X-Diff
| > XRef path: C:\Temp\X-Diff.dwg
| >
| > In the above, there are only two XRefs actually placed in the drawing
(in
| > modelspace). The 3rd one, X-Diff, is a nested XRef in Diff.
| >
| >
| > --
| > R. Robert Bell, MCSE
| > www.AcadX.com
| >
| >
| > "Graeme Hyslop" wrote in message
| > news:D57B5414773E384648F1BFC3D90EBE77@in.WebX.maYIadrTaRb...
| > | Thank you Robert that worked almost perfect. To start with it listed
the
| > | name and path of them all, but only the scale and insertion point of
the
| > | first xref. By commenting out the If ynInserted ... line it worked
| > | perfectly. Is the If ynInserted ... line important for something ?
| > |
| > | Graeme
| > |
| > | > Option Explicit
| > | >
| > | > Public Sub Test()
| > | > Dim XRefs As New Collection
| > | > Set XRefs = GetXRefs
| > | >
| > | > Dim XRef As AcadExternalReference
| > | > Dim ynInserted As Boolean
| > | > Dim i As Integer
| > | >
| > | > For i = 1 To XRefs.Count
| > | > Set XRef = XRefs(i)
| > | > ynInserted = IsInserted(XRef)
| > | > Debug.Print _
| > | > "XRef name: " & XRef.Name & _
| > | > vbCrLf & "XRef path: " & XRef.Path
| > | > If ynInserted Then
| > | > Debug.Print _
| > | > "Inserted at: " & _
| > | > CStr(XRef.InsertionPoint(0)) & "," & _
| > | > CStr(XRef.InsertionPoint(1)) & "," & _
| > | > CStr(XRef.InsertionPoint(2)) & _
| > | > vbCrLf & "Scale factor: " & XRef.XScaleFactor
| > | > End If
| > | > Next i
| > | > End Sub
| > | >
| > | > Private Function IsInserted(Block As AcadExternalReference) As
Boolean
| > | > Dim BlockOwner As Long
| > | > BlockOwner = Block.OwnerID
| > | >
| > | > If BlockOwner = ThisDrawing.ModelSpace.ObjectID Then
| > | > IsInserted = True
| > | > Exit Function
| > | > End If
| > | >
| > | > Dim ThisLayout As AcadLayout
| > | > For Each ThisLayout In ThisDrawing.Layouts
| > | > If BlockOwner = ThisLayout.ObjectID Then
| > | > IsInserted = True
| > | > Exit Function
| > | > End If
| > | > Next ThisLayout
| > | > End Function
| > | >
| > | > Private Function GetXRefs() As Collection
| > | > Dim ThisBlock As AcadBlock
| > | > Dim ThisObject As AcadEntity
| > | > Dim AnXRef As AcadExternalReference
| > | > Dim Result As New Collection
| > | > Dim i As Integer
| > | > For Each ThisBlock In ThisDrawing.Blocks
| > | > For Each ThisObject In ThisBlock
| > | > If TypeOf ThisObject Is AcadExternalReference Then
| > | > Set AnXRef = ThisObject
| > | > Result.Add AnXRef, CStr(i)
| > | > i = i + 1
| > | > End If
| > | > Next ThisObject
| > | > Next ThisBlock
| > | > Set GetXRefs = Result
| > | > Set Result = Nothing
| > | > End Function
| > | >
| > | >
| > | > --
| > | > R. Robert Bell, MCSE
| > | > www.AcadX.com
| > | >
| > | >
| > |
| > |
| >
| >
|
|

Re:

Anonymous — Sat, 26 Jul 2003 12:11:01 GMT

Too late, I didn't see your 3rd post! 😉

--
R. Robert Bell, MCSE
www.AcadX.com

"Graeme" wrote in message
news:FCB9794DF889294F48FDEDF165C2A502@in.WebX.maYIadrTaRb...
| OK forget what I said about binding drawings. I'm feeling kinda stupid
now.
| For some reason I thought that xrefs with nested xrefs could not be bound
| but I just discovered that they can. But anyway, listing the xrefs is
still
| gonna be useful !
|
|
|

Re:

Anonymous — Sat, 26 Jul 2003 13:49:40 GMT

Yeah, we have to bind some drawings on a project and the drafter was having
a problem with it. It must have been that there are unresolved objects. It
could also be that the engineers stamp was unloaded instead of detached.

Thanks for your help

Graeme

> Yes.
>
> However... binding XRefs that contain resolved XRefs pose no problem. Are
> you trying to bind XRefs that contain *unresolved* or unloaded nested
XRefs?
>
>
> --
> R. Robert Bell, MCSE
> www.AcadX.com
>