topic Re: ThisDrawing.Path equivalent in .NET Forum

ThisDrawing.Path equivalent

Anonymous — Tue, 05 Jan 2010 13:29:07 GMT

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

Re: ThisDrawing.Path equivalent

Anonymous — Tue, 05 Jan 2010 15:41:10 GMT

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.

Re: ThisDrawing.Path equivalent

Anonymous — Tue, 05 Jan 2010 19:03:10 GMT

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

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

Re: ThisDrawing.Path equivalent

arcticad — Tue, 05 Jan 2010 19:24:13 GMT

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

Re: ThisDrawing.Path equivalent

Anonymous — Tue, 05 Jan 2010 19:52:49 GMT

Thank you!

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

Re: ThisDrawing.Path equivalent

_gile — Tue, 05 Jan 2010 20:05:58 GMT

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

Re: ThisDrawing.Path equivalent

arcticad — Wed, 06 Jan 2010 06:48:10 GMT

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}

Re: ThisDrawing.Path equivalent

Anonymous — Thu, 13 Jan 2011 16:04:04 GMT

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.

Re: ThisDrawing.Path equivalent

Anonymous — Thu, 13 Jan 2011 17:25:38 GMT

Whoa -- no need for COM.

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

Re: ThisDrawing.Path equivalent

hgasty1001 — Thu, 13 Jan 2011 20:15:19 GMT

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

Re: ThisDrawing.Path equivalent

Anonymous — Fri, 14 Jan 2011 06:49:51 GMT

dan.glassman => thx man!

Re: ThisDrawing.Path equivalent

Anonymous — Sat, 31 Dec 2011 23:35:01 GMT

<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

Re: ThisDrawing.Path equivalent

beeb.pm.Net — Sun, 08 Jan 2012 05:59:30 GMT

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