Community
Imports Autodesk.AutoCAD.ApplicationServices
Public Class Class1
Function OpenFile(ByVal FullPath As String, ByRef myDocument As Autodesk.AutoCAD.ApplicationServices.Document, ByVal bolReadOnly As Boolean) As Boolean
Dim acDocMgr As DocumentCollection = Application.DocumentManager
Dim rtnValue As Boolean
Try
myDocument = acDocMgr.Open(FullPath, bolReadOnly)
rtnValue = True
Catch ex As Exception
rtnValue = False
End Try
Return rtnValue
End Function
Function CloseFile() As Boolean
Dim acDocMgr As DocumentCollection = Application.DocumentManager
Dim rtnValue As Boolean
Try
acDocMgr.MdiActiveDocument.CloseAndDiscard()
rtnValue = True
Catch ex As Exception
rtnValue = False
End Try
Return rtnValue
End Function
End Class
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))
Where the Sub is called from? From CommandMeth, right?
By default (e.g. without setting a CommandFlags value in CommandMethod attribute, the command is in the scope of drawing context. There is why you get this exception. You need to set a Session flag:
<CommandMethod("OpenDwg",CommandFlags.Session)> _
public Sub OpenMyDrawing()
...
OpenDwg("C:\mydwgs\theDrawingFile.dwg",False)
...
End Sub
Public Sub OpenDwg(ByVal strFileName As String)
Dim acDocMgr As DocumentCollection = AcApp.DocumentManager
If (File.Exists(strFileName)) Then
acDocMgr.Open(strFileName, False)
Else
acDocMgr.MdiActiveDocument.Editor.WriteMessage("File " & strFileName & " does not exist.")
End If
End Sub
Thanks, guys, but both methods provided above give me the exact same error I was getting before.
I do seem to remember, before this part was written, coming across some setting (or option, etc.) that basically referenced some part of my app to the document, and while checking it out, I saw that I could set it to the session (or app?). Since I thought that it made more sense to work from the autocad app instead of a document (drawing), I changed it. That may or may not be related to this, but I bet it is. I just don't remember exactly what it was or where I came across it.
Not happy 
You should always lock the drawing.
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Public Class Class2
Sub test()
Using db As Database = HostApplicationServices.WorkingDatabase()
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim myDWG As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Using lock As DocumentLock = myDWG.LockDocument
' run code
End Using
End Using
End Using
End Sub
End Class
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))
Thanks for responding again.
It worked before without the locking code. None of the examples (from AutoDesk and others) show that.
Anyway, it doesn't change anything when I add that, either.
This is killing me. I am already almost a week overdue.
If you are running code in the session context, you always have to manage your own document locks.
When you are running code in the document context, frequently they are not necessary, unless you are running code from a form.
Dave O. 
