Hi all, i have a issu when i use BindXRef.
I have 4 XREF in my dwg. so i use à Do / While for each XREF i have found.
It work fine but whrn the Xref is big File, i have the issue "Out Of memory".
So the question : How i can Force the GC to clear all memory not used.
My Think is to force the GC to Clear the memory before to use BindXRef() with only one XRef before to BindXRef with another.
Sorry for my english.
Here my code :
Dim LockDoc As DocumentLock = doc.LockDocument Dim MemNumBoucle As Integer = -1 Dim CollXRef As New ObjectIdCollection Do CollXRef.Clear() Dim xg As XrefGraph = db.GetHostDwgXrefGraph(True) Dim root As GraphNode = xg.RootNode Using tr As Transaction = db.TransactionManager.StartTransaction For o = 0 To root.NumOut - 1 Step 1 Dim child As XrefGraphNode = CType(root.Out(o), XrefGraphNode) If child.XrefStatus = XrefStatus.Resolved Then Dim bl As BlockTableRecord = tr.GetObject(child.BlockTableRecordId, OpenMode.ForRead) 'i_ed.WriteMessage(vbCrLf & i_indent + child.Database.Filename) ' Name of the Xref (found name) ' You can find the original path too: If bl.IsFromExternalReference = True Then GestionAUTOCAD.EcrireSurLigneDeCommande(vbCrLf & "Xref path name: " + bl.PathName) CollXRef.Add(bl.ObjectId) 'détection si le liage a été fait : If MemNumBoucle <> root.NumOut Then MemNumBoucle = root.NumOut Exit For End If End If End If Next 'trouvé un xref --> Adding If CollXRef.Count > 0 Then Try doc.Database.BindXrefs(CollXRef, False) Catch ex As Exception okErr = True MsgBox("Erreur lors de la liaison d'un Xref" & vbCrLf & "--> Essayer de lier le premier niveau", _ vbOKOnly & vbCritical, _ "Erreur Système") Finally tr.Commit() End Try End If End Using GestionAUTOCAD.EcrireSurLigneDeCommande(vbCrLf & "-> " & CollXRef.Count.ToString) Loop Until (CollXRef.Count = 0) Or (okErr = True)
PS : the var MemNumBoucle is used for detection of XRef Not binding if this XRef is used in another XREf : Here a example :
- DWG
-- XREF : R+1
-- XREF : ARCHI
-------------- XREF R+1
In this example i cant BindXREf ('R+1') alone. I need to BindXRef('ARCHI') before
Binding XRefs doesn't require a lot of memory by the CLR.
It's AutoCAD that's using the memory, not the CLR, so there's nothing you can do with the GC to fix that.
The only solution would be to bind one XRef at a time, save the drawing to a temporary file, exit AutoCAD completely, restart it, open the temp file, and bind another xref.
Hello,
Here are few suggestions that you may try :
1) Call the Database.DisableUndoRecording with true as its parameter before the binding and restore it again after your task is done. This can help in reducing the memory usage.
2) Try creating another custom command for binding a single xref and then call it repeatedly for binding all the xrefs.
I havent tried these but I hope it helps in reducing the memory usage. If you can share the non-confidential drawings to reproduce the error, I can see if there are any other ways to make it work.
If you only see the problem when you're automating the process, then it could be an issue with your code, but that's just a wild guess.
thank i have to try the diabled option.
I have issue when i bind manually all the file.
in same time but no problem when i bind manualy one by one.
so i finaly tryed your db.DisableUndoRecording
i crash autocad. but manyally i cant bindxref all the 5 xref. it work only one by one.
if created a do while for bind xref one by one. :
Dim LockDoc As DocumentLock = doc.LockDocument db.DisableUndoRecording(True) Dim OkPasserAuSuivant As Boolean Dim MemNumRoot As Integer = -1 Dim MemNumIndex As Integer = -1 Dim CollXRef As New ObjectIdCollection Do CollXRef.Clear() OkPasserAuSuivant = False Dim xg As XrefGraph = db.GetHostDwgXrefGraph(True) Dim root As GraphNode = xg.RootNode 'vérification de la limitation ! If root.NumOut > 6 Then MsgBox("Il y a plus que 3 Xrefs à lier !" & vbCrLf & _ "Ce programme ne peut en lier que 2 d'affilés car AUTOCAD risque" & vbCrLf & _ "de planter à cause de l'utilisation abusive de la mémoire" & vbCrLf & _ "Vous en avez actuellement : " & root.NumOut.ToString & vbCrLf & _ "Veuillez lier les XRef manuellement un à un et relancer ce programme.", _ MsgBoxStyle.Information, "Limitation atteinte") okErr = True Exit Do End If Dim BoucleEnCours As Integer 'mém Num de XRef If root.NumOut = 0 Then Exit Do If MemNumRoot <> root.NumOut Then BoucleEnCours = 0 MemNumIndex = BoucleEnCours MemNumRoot = root.NumOut Else BoucleEnCours = MemNumIndex + 1 MemNumIndex = MemNumIndex + 1 If BoucleEnCours >= root.NumOut Then Exit Do End If Dim child As XrefGraphNode = CType(root.Out(BoucleEnCours), XrefGraphNode) If child.XrefStatus = XrefStatus.Resolved Then Using tr As Transaction = db.TransactionManager.StartTransaction Dim bl As BlockTableRecord = tr.GetObject(child.BlockTableRecordId, OpenMode.ForRead) If bl.IsFromExternalReference = True Then GestionAUTOCAD.EcrireSurLigneDeCommande(vbCrLf & "Xref en cours : " + bl.PathName & vbCrLf, True) CollXRef.Add(bl.ObjectId) Else OkPasserAuSuivant = True End If tr.Commit() End Using End If 'Next 'trouvé un xref --> Liage If CollXRef.Count > 0 Then Using tr As Transaction = db.TransactionManager.StartTransaction Try doc.Database.BindXrefs(CollXRef, False) Catch ex As Exception okErr = True MsgBox("Erreur lors de la liaison d'un Xref" & vbCrLf & "--> Essayer de lier le premier niveau", _ vbOKOnly & vbCritical, _ "Erreur Système") Finally tr.Commit() End Try End Using End If 'End Using Loop Until ((CollXRef.Count = 0) And (OkPasserAuSuivant = False)) Or (okErr = True) db.DisableUndoRecording(False) LockDoc.Dispose() LockDoc = Nothing
now i try to repeatly call my DLL for bing only one xref and i have to add a timer in each bind...
Can't find what you're looking for? Ask the community or share your knowledge.