topic Re: A error “System.AccessViolationException” occur in Acdbmgd.dll in .NET Forum

A error “System.AccessViolationException” occur in Acdbmgd.dll

bairuize — Mon, 20 Nov 2023 13:53:52 GMT

I use this code but meet A error .“System.AccessViolationException” occur in Acdbmgd.dll

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Interop

Public Class Class1

<CommandMethod("exsat")>
Public Shared Sub testSolidsSelect()
Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = doc.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim tr As Transaction = db.TransactionManager.StartTransaction()
Dim sImage_Type = "SAT"
Dim satFullName As String = "D:\123.sat"

Dim curtab As String = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("ctab").ToString()
Dim values(3) As TypedValue
values(0) = New TypedValue(DxfCode.Operator, "<and")
values(1) = New TypedValue(DxfCode.Start, "region")
values(2) = New TypedValue(DxfCode.LayoutName, curtab)
values(3) = New TypedValue(DxfCode.Operator, "and>")

Dim selFilter As New SelectionFilter(values)
Dim prompSelRes As PromptSelectionResult = ed.SelectAll(selFilter)
If prompSelRes.Status <> PromptStatus.OK Then Return
Dim oSset As SelectionSet = prompSelRes.Value
ed.WriteMessage(vbLf + "{0}", oSset.Count)

ed.SetImpliedSelection(oSset)

Dim AcApp As Autodesk.AutoCAD.Interop.AcadApplication = DirectCast(Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication, Autodesk.AutoCAD.Interop.AcadApplication)
Dim ThisDrawing As Autodesk.AutoCAD.Interop.AcadDocument = AcApp.ActiveDocument
Dim pickSset As AcadSelectionSet = ThisDrawing.ActiveSelectionSet
ThisDrawing.Export(satFullName, sImage_Type, pickSset)
pickSset.Clear()
pickSset = Nothing
ThisDrawing = Nothing
AcApp = Nothing
ed.Regen()
End Sub
End Class

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

bairuize — Mon, 20 Nov 2023 14:15:58 GMT

could somebody help me. best wishes to you

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

ActivistInvestor — Tue, 21 Nov 2023 05:46:08 GMT

Did you try stepping through the code to see exactly what line is triggering the exception? Without knowing more one thing you might try is to use the previous selection set rather than the active selection set.

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

bairuize — Tue, 21 Nov 2023 05:57:59 GMT

Thanks for your help!
I changed the previous selection set, it has no influence.
Now my code is generating .SAT normally. But when it run to "end sub", VS will report errors "System.AccessViolationException".

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

ActivistInvestor — Wed, 22 Nov 2023 04:20:53 GMT

Please post your code using the insert code button on the toolbar because your code is too difficult to read when it is not formatted.

It looks like you are starting a transaction and not committing, aborting or disposing it and that is most likely the problem. From what I can tell there isn't any need for a transaction to do what you need.

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

cuongtk2 — Wed, 22 Nov 2023 08:17:26 GMT

"d:/filepath.dat" , or "\\"

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

bairuize — Wed, 22 Nov 2023 08:22:51 GMT

Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.EditorInput Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Interop Public Class Class1 <CommandMethod("exsat")> Public Shared Sub testSolidsSelect() Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument Dim ed As Editor = doc.Editor Dim db As Database = HostApplicationServices.WorkingDatabase Dim tr As Transaction = db.TransactionManager.StartTransaction() Dim sImage_Type = "SAT" Dim satFullName As String = "D:/123.sat" Try ''Dim curlay As String = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("clayer").ToString() Dim curtab As String = Autodesk.AutoCAD.ApplicationServices.Application.GetSystemVariable("ctab").ToString() Dim values(3) As TypedValue values(0) = New TypedValue(DxfCode.Operator, "<and") values(1) = New TypedValue(DxfCode.Start, "region") values(2) = New TypedValue(DxfCode.LayoutName, curtab) values(3) = New TypedValue(DxfCode.Operator, "and>") Dim selFilter As New SelectionFilter(values) Dim prompSelRes As PromptSelectionResult = ed.SelectAll(selFilter) If prompSelRes.Status <> PromptStatus.OK Then Return Dim oSset As SelectionSet = prompSelRes.Value ed.WriteMessage(vbLf + "{0}", oSset.Count) ' Console.WriteLine(oSset.Count.ToString() + " " + "b") ed.SetImpliedSelection(oSset) Dim AcApp As Autodesk.AutoCAD.Interop.AcadApplication = DirectCast(Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication, Autodesk.AutoCAD.Interop.AcadApplication) Dim ThisDrawing As Autodesk.AutoCAD.Interop.AcadDocument = AcApp.ActiveDocument Dim pickSset As AcadSelectionSet = ThisDrawing.PickfirstSelectionSet ThisDrawing.Export(satFullName, sImage_Type, pickSset) pickSset.Clear() pickSset = Nothing ThisDrawing = Nothing AcApp = Nothing ' ed.Regen() Catch ex As Autodesk.AutoCAD.Runtime.Exception Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(ex.ToString & vbLf & ex.Message) Finally Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog("Find file " & satFullName & " to see result") End Try End Sub End Class

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

bairuize — Wed, 22 Nov 2023 08:29:01 GMT

Thanks for your help!
I post my new code,and I corrected the code as you suggested.But there still occur the error "System.AccessViolationException "

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

bairuize — Wed, 22 Nov 2023 08:31:03 GMT

Thanks for your help!
I have posted the code according to your suggestion

Re: A error “System.AccessViolationException” occur in Acdbmgd.dll

ActivistInvestor — Wed, 22 Nov 2023 11:43:58 GMT

Dim tr As Transaction = db.TransactionManager.StartTransaction()

Remove the above line from your code.