ThisDrawing.Path equivalent

[Anonymous]

What's the equivalent of ThisDrawing.Path in VB.NET?

Here's what I think it should be... but it's not working:

Dim AcadDoc As Document = Application.DocumentManager.MdiActiveDocument
AcadDoc.Path? or GetPath?

Slowly learning... thanks for the help.
eric

[Anonymous]

In C# i did it this way:
AcadApplication oAcadApp = (AcadApplication)Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication;
String sFilePath = oAcadApp.ActiveDocument.Path + "\\" + oAcadApp.ActiveDocument.Name;

so, In VB.NET I think it would be like this:

Dim oAcadApp as AcadApplication
Dim sFilePath as String
Set oAcadApp = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication;
sFilePath = oAcadApp.ActiveDocument.Path & "\" & oAcadApp.ActiveDocument.Name;

The path is only the path and the name is only the name.

[Anonymous]

Thanks, but I don't believe that ActiveDocument is a property of AcadApplication.

I'm using AutoCAD 2010... not sure if this has changed...

[arcticad]

This works in 2010
{code}
Dim oAcadApp As Autodesk.AutoCAD.ApplicationServices.Document
oAcadApp = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
MsgBox(oAcadApp.Name)
{code}

[Anonymous]

Thank you!

Didn't realize that the Name property gave the full path.

[_gile]

AcadDoc.Name was the reply I gave in your duplicated post:
http://discussion.autodesk.com/forums/thread.jspa?threadID=757438&tstart=0

> Thanks, but I don't believe that ActiveDocument is a property of AcadApplication.
Yes it is, but DeanLyon is using COM interop rather than .NET API

[arcticad]

As mentioned above, This works with COM in 2010

{code}
Dim oAcadApp As Autodesk.AutoCAD.Interop.AcadApplication
Try
oAcadApp = GetObject(, "AutoCAD.Application.18")
Dim sFilePath As String
sFilePath = oAcadApp.ActiveDocument.Path & "\" & oAcadApp.ActiveDocument.Name
MsgBox(sFilePath)
Catch ex As Exception
oAcadApp = Nothing
End Try
{code}

[Anonymous]

Is there an equivalent for the .path for the .NET API? I don't have COM installed 🙂 I'm looking for it a couple days now but can't find a way to do it.

[Anonymous]

Whoa -- no need for COM.

Document doc = Application.DocumentManager.MdiActiveDocument;
string path = Path.GetDirectoryName(doc.Database.Filename);

[hgasty1001]

What about the "DWGPREFIX" system variable, it's easy to check in both .NET and COM interop.

[Anonymous]

dan.glassman => thx man!

[Anonymous]

<CommandMethod("Test1")>
Public Sub Test1()

Dim path As string = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database.Filename.ToString

If Right(path,3) <> "dwg" then
MsgBox("This file has not been saved")
Else
MsgBox("ThisDrawing = " & path)
End If

Dim NewPath As String = Left(path, Len(path)-3) & "dat"
MsgBox(NewPath)

End Sub

[beeb.pm.Net]

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common

Public Shared ReadOnly Property ThisDrg() As AcadDocument
        Get
            Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument
        End Get
    End Property


   Public Shared Function GetPath(ByVal ThisDrg As AcadDocument) As String
        Dim strPath As String = ThisDrg.FullName
        strPath = IO.Path.GetDirectoryName(strPath)
        Return strPath
    End Function