.NET

[#1]

Hi to all. I have'nt seen a lot on xrefs bind. So I've done an effort on my side and wanted to share this code with you. It's a basic Bind Command. You can send me your comments if you wish!
Don't forget to put the < before the commandmethod!!!

Imports Autodesk.AutoCAD
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime

CommandMethod("BindAllXrefs")> _
Public Sub BES()
Dim bTransMan As DatabaseServices.TransactionManager
Dim bTrans As DatabaseServices.Transaction
Dim bDwg As Document
Dim bBT As BlockTable

Dim bBTR As SymbolTableRecord
Dim bBTE As SymbolTableEnumerator

bDwg = Application.DocumentManager.MdiActiveDocument
bTransMan = bDwg.TransactionManager
bTrans = bTransMan.StartTransaction
Try
'Open the database for Read
bBT = bDwg.Database.BlockTableId.GetObject(OpenMode.ForRead)
bBTE = bBT.GetEnumerator

Dim XrefIds As New ObjectIdCollection

While bBTE.MoveNext = True
bBTR = bBTE.Current.GetObject(OpenMode.ForRead)

'Check if block is xref and add if so, add it's ID to the ObjectIdCollection
If bBTR.IsResolved And Not bBTR.Name.Contains("|") Then
XrefIds.Add(bBTR.Id)
End If

End While

'Bind xref of collection
bDwg.Database.BindXrefs(XrefIds, True)

'Important to commit
bTrans.Commit()

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
bTrans.Dispose()
bTransMan.Dispose()
End Try

End Sub

[#2]

Hi Again! I just wanted to specifie that this code is for Autocad 2008.
And also Merry Christmas to all !!!

[#3]

Hi,

Thanks for the code. But I have a question. What if the xrefs are unresolved? How do I handle the unresolved xrefs, like 'Not Found', 'Unloaded', 'Unreferenced'?

Thanks

[#4]

I love good questions!
I'm not an expert on this. But I find out that you could convert the
"SymbolTableRecord" to a "BlockTableRecord" with:

dim BlcTabRec as BlockTableRecord = _ Ctype(YourSymTableRecVariable,BlockTableRecord)

the BlcTabRec have a couple of property you could use.
Like:
IsUnloaded
IsFormExternalReference
IsResolved

But for the:
'Not Found', 'Unreferenced'
I think you could use the "IsResolved" property.

If Not IsResolved(BlcTabRec ) then Msgbox "Problem here!!"

Just for information, there's an automatic Bind command part of the etransmit command in Autocad 2008. That's very cool!

Cad Programmer
Bert

[#5]

You're great, man!

dim BlcTabRec as BlockTableRecord = _ Ctype(YourSymTableRecVariable,BlockTableRecord)

What is YourSymTableRecVariable? Could you please help on how that would go into code.

Thanks

[#6]

And why the _?

[#7]

Ok...I got it!

Dim BlkTabRec As BlockTableRecord = CType(bBTR, BlockTableRecord)

But unfortunatly it's not working.

[#8]

Me it's working very fine. So I send you the code updated.
Oh ya! You guessed right for what you wrote!

Imports Autodesk.AutoCAD
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Microsoft.Office.Interop

Imports Microsoft.VisualBasic.ApplicationServices
Imports System.IO

< CommandMethod("BindAllXrefs") > _
Public Sub BES()
Dim bTransMan As DatabaseServices.TransactionManager
Dim bTrans As DatabaseServices.Transaction
Dim bDwg As Document
Dim bBT As BlockTable
Dim bBTR As SymbolTableRecord
Dim bBTE As SymbolTableEnumerator
Dim bBTRr As BlockTableRecord

' Current Document
bDwg = Application.DocumentManager.MdiActiveDocument
bTransMan = bDwg.TransactionManager

bTrans = bTransMan.StartTransaction
Try
' Open the database for Read
bBT = bDwg.Database.BlockTableId.GetObject(OpenMode.ForRead)
bBTE = bBT.GetEnumerator

Dim XrefIds As New ObjectIdCollection

While bBTE.MoveNext = True
bBTR = bBTE.Current.GetObject(OpenMode.ForRead)

bBTRr = CType(bBTR, BlockTableRecord)

' Check if block is xref and also resolved and thenadd its ID to the ObjectIdCollection
If bBTRr.IsFromExternalReference And bBTRr.IsResolved Then
XrefIds.Add(bBTR.Id)
End If

End While

' Bind xref of collection
Try
'We bind all xrefs of drawing
bDwg.Database.BindXrefs(XrefIds, True)
Catch ex As Exception
MsgBox("Error: " & ex.Message)
End Try

' Important to commit
bTrans.Commit()
bSave(bDwg)

Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Finally
bTrans.Dispose()
bTransMan.Dispose()
End Try

End Sub

Maybe if it doesn't work, a error message could help you up!

Cad Programmer
Bert

[#9]

After a long gap!

Thanks for the code. I did some modifications in the code to suit my requirements, and it did work fine. But after I run a certain AutoCAD command, I get an error that says 'eWasOpenForWrite'. Seems like the command is opening the database and forgets to close! Is there any workaround that can be done in our code?

Thanks

[#10]

You should be an expert of vb.net by the time!

I don't know, I haven't gone more far on this issue. And it seems that we are two caring about that! Everything seems to be ok but maybe there a problem with the Autodesk BindXrefs function. Maybe they'll enhance it for Autocad 2009. Have you seen it! The interface is pretty cool, I should say awesome!

Bert
Cad programmer