Welcome on board, zeppeldep !
See if this helps, but change file name within the code
<CommandMethod("drw")> _
Public Sub TestDrawOrder()
Dim acadapp As AcadApplication = New AcadApplication
acadapp.Visible = True
acadapp.WindowState = AcWindowState.acMax
acadapp.Eval("msgbox(""Wait..."")")
' change file name
Dim acdoc As AcadDocument = acadapp.Documents.Open("C:\Test\zzz.dwg", Nothing, Nothing)
Dim pickPt As Object = Nothing
Dim obj As Object = Nothing
Dim util As AcadUtility = acadapp.ActiveDocument.Utility
util.GetEntity(obj, pickPt, vbLf & "Select entity to move to top: ")
Dim sortObj As AcadObject = Nothing
Try
'Get an extension dictionary and, if necessary, add a SortentsTable object
Dim xdict As AcadDictionary
xdict = acdoc.ModelSpace.GetExtensionDictionary
' bypass if GetObject failed
Try
sortObj = xdict.GetObject("ACAD_SORTENTS")
Catch
sortObj = xdict.AddObject("ACAD_SORTENTS", "AcDbSortentsTable")
End Try
'' util.Prompt(String.Format(vbLf & "Dict Name: {0}", sortObj.ObjectName))
Dim ObjIds(0) As Long
ObjIds(0) = obj.ObjectID
Dim varObject As AcadObject
varObject = acdoc.ObjectIdToObject(ObjIds(0))
Dim arr(0) As AcadObject
arr(0) = varObject
'' util.Prompt(String.Format(vbLf & "Obj Name: {0}", varObject.ObjectName))
'set draworder to the top
sortObj.MoveToBottom(arr)
acdoc.Regen(AcRegenType.acActiveViewport)
acadapp.Update()
Catch
End Try
'' comment this block if it's needs:
acadapp.ActiveDocument.SaveAs(acadapp.ActiveDocument.FullName, Autodesk.AutoCAD.Interop.Common.AcSaveAsType.ac2007_dwg, Nothing)
acadapp.ActiveDocument.Close(True, Nothing)
acadapp.Quit()
acadapp = Nothing
End Sub
~'J'~
