eWasOpenForWrite

[cadprog]

Hi,

I have some code that works fine. But after I run an AutoCAD command, the code will not work. I get the error 'eWasOpenForWrite'. The reason could be, that AutoCAD has opened the drawing database for write, but did not close. What can be done in my code to tackle this problem?

Thanks

[Ed Jobe]

Not the database, but a single object. Show your code.

[cadprog]

Public Sub BX()
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
Dim DetXIds As New ObjectIdCollection
Dim DetXId As New ObjectId
Dim ReXIds As New ObjectIdCollection
Dim graphXref As XrefGraph
Dim nodeXref As XrefGraphNode
Dim btrId As Object

graphXref = bDwg.Database.GetHostDwgXrefGraph(True)
For idx As Integer = 1 To graphXref.NumNodes - 1
nodeXref = graphXref.GetXrefNode(idx)
If nodeXref.IsNested Then
Select Case nodeXref.XrefStatus
Case XrefStatus.FileNotFound
btrId = nodeXref.BlockTableRecordId
Dim BTR As BlockTableRecord = bTrans.GetObject(btrId, OpenMode.ForWrite)
BTR.PathName = "C:\1.dwg"
ReXIds.Add(BTR.Id)
Case XrefStatus.Unreferenced
btrId = nodeXref.BlockTableRecordId
Dim BTR As BlockTableRecord = bTrans.GetObject(btrId, OpenMode.ForWrite)
BTR.PathName = "C:\1.dwg"
ReXIds.Add(BTR.Id)
Case XrefStatus.Unloaded
btrId = nodeXref.BlockTableRecordId
Dim BTR As BlockTableRecord = bTrans.GetObject(btrId, OpenMode.ForWrite)
BTR.PathName = "C:\1.dwg"
ReXIds.Add(BTR.Id)
Case XrefStatus.Unresolved
btrId = nodeXref.BlockTableRecordId
Dim BTR As BlockTableRecord = bTrans.GetObject(btrId, OpenMode.ForWrite)
BTR.PathName = "C:\1.dwg"
ReXIds.Add(BTR.Id)
End Select
End If
Next

If ReXIds.Count > 0 Then
bDwg.Database.ReloadXrefs(ReXIds)
End If

While bBTE.MoveNext = True
bBTR = bBTE.Current.GetObject(OpenMode.ForRead)
bBTRr = CType(bBTR, BlockTableRecord)

'Check if block is xref and also resolved and then add its ID to the ObjectIdCollection
If bBTRr.IsFromExternalReference Then
Select Case bBTRr.XrefStatus
Case XrefStatus.Resolved
XrefIds.Add(bBTRr.Id)
Case XrefStatus.Unloaded
DetXIds.Add(bBTRr.Id)
Case XrefStatus.FileNotFound
DetXIds.Add(bBTRr.Id)
Case XrefStatus.Unreferenced
DetXIds.Add(bBTRr.Id)
Case XrefStatus.Unresolved
DetXIds.Add(bBTRr.Id)
End Select
End If

End While

'Bind xref of collection
Try
'We bind all xrefs of drawing
If XrefIds.Count > 0 Then
bDwg.Database.BindXrefs(XrefIds, False)
End If

For Each DetXId In DetXIds
bDwg.Database.DetachXref(DetXId)
Next

Catch ex As Exception
MsgBox("Error2: " & ex.Message) <-----------------The error displayed is from here.
End Try

bTrans.Commit()

Catch ex As Exception
MsgBox("Error1: " & ex.Message)
Finally
bTrans.Dispose()
bTransMan.Dispose()
End Try

End Sub
After I use the scalelist command to reset, it doesn't work. Otherwise, it's fine.

[Maxence DELANNOY]

Little late, but I think it's because of the line:


Dim DetXId As New ObjectId

should be


Dim DetXId As ObjectId

You should never create an ObjectId.