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

[bairuize]

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

[bairuize]

could somebody help me. best wishes to you

[ActivistInvestor]

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.

[bairuize]

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".

[ActivistInvestor]

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.

[cuongtk2]

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

[bairuize]

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

[bairuize]

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 "

[bairuize]

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

[ActivistInvestor]

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

Remove the above line from your code.