AutoCAD Map 3D Developer

Valued Mentor
Posts: 360
Registered: ‎10-10-2003
Message 1 of 4 (682 Views) erase all queried objects

682 Views, 3 Replies
11-18-2009 05:56 PM
Hi All, can you help me figure out why I cant' get the enties for WRITE mode with this code. It crashes if I try to open the entity for write?

Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Dim psr As PromptSelectionResult = ed.SelectAll()

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

Using tr
For Each id As ObjectId In psr.Value.GetObjectIds()

Dim ent As Entity = DirectCast(tr.GetObject(id, OpenMode.ForWrite), Entity)



End Using
Valued Mentor
Posts: 360
Registered: ‎10-10-2003
Message 2 of 4 (680 Views)

Re: erase all queried objects

12-14-2009 07:02 PM in reply to: gluckett
so the issue was the prompt ("Save Back to Source Drawing")... just turn it off.

dim mapApi as MapApplication = HostMapApplicationServices.Application
dim proj as ProjectModel = mapApi.ActiveProject
proj.Options.MarkObjectsForEditingWithoutPrompting = true
Valued Mentor
Posts: 367
Registered: ‎03-31-2005
Message 3 of 4 (492 Views)

Re: erase all queried objects

04-23-2012 10:06 AM in reply to: gluckett

This works - thank you.  But, it is far slower than close without saving changes, especially if there are thousands of objects.


In 64 bit MAP 3D 2011


I am trying to figure out how to code "closeandiscard" but cannot get past the "drawing busy" error.  I have already cloned the queried objects to the dwg file I want to save and detached the drawing set.  Now I want the user to be left with a blank "drawing1".


From my reading it looks as if I need to give the active document a name before I can discard it?  It's confusing.

Valued Mentor
Posts: 367
Registered: ‎03-31-2005
Message 4 of 4 (489 Views)

Re: erase all queried objects

04-23-2012 12:25 PM in reply to: fieldguy

Commandflags.session was the answer.  This leaves the user with a blank Drawing2 (or higher). 


<CommandMethod("q4", CommandFlags.Session)> _
    Sub q_4()
        Dim templatepath As String = "map2diso.dwt"
        Dim acdocmgr As acapp.DocumentCollection = acapp.Application.DocumentManager
        Dim acdoc As acapp.Document = acdocmgr.MdiActiveDocument
        acdoc = acdocmgr.Add(templatepath)
        acdocmgr.MdiActiveDocument = acdoc
    End Sub


You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community