topic Re: acad.exe path.. in .NET Forum

acad.exe path..

Anonymous — Wed, 18 Mar 2009 17:03:00 GMT

How would I go about getting the Path location of acad.exe with
vb.net? (so i don't have to hard code it)

--

Work: VISTA Ultimate/Windows 7 x32 - AMD
64 X2 Dual Core 4200 2.2GHz, 4 Gigs Ram, GeForce
6800GS 256MB

Home: VISTA Ultimate x64 - AMD 64 Quad
Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB

Laptop (17" HP): VISTA Premium x32 -
color="#000000">AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram,
color="#666666">Nvidia GeForce 6150

Re: acad.exe path..

chiefbraincloud — Wed, 18 Mar 2009 17:36:23 GMT

I went round and round about this some time ago, while trying to create a setup wizard for my program that would create a proper desktop shortcut with the profile and workspace specified. I searched all over the registry and ended up with the following code, which attempts to get the registry entry for the 'Current' drawing version, then goes to the registry entry for that version that tells windows what program to use as the 'File Editing Server'.

Try

Dim DwgCurVer As String = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\AutoCAD.Drawing\CurVer", "", "")

If Not DwgCurVer = "" Then AcadPath = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & DwgCurVer & "\protocol\StdFileEditing\server", "", "")

Catch ex As Exception

MsgBox(ex.Message, MsgBoxStyle.Critical, "AutoCAD Path Not Found")

Return

End Try

If anyone has a better way I'm all ears. There is another entry which I was not inclined to use because part of the Key string has version info in it.

AcadPath = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R17.0\ACAD-6001:409", "AcadLocation", "")

The method I used (above) has one drawback (or bonus feature, depending on how you look at it). If the machine in question has more than one version of AutoCAD on it, which many of my users do, the 'CurVer' variable will be set to the version they opened last, not the most current version on the machine.

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 18:50:05 GMT

If what you want is the AutoCAD that starts when you double-click a .DWG
file (where it may be possible that there's several releases/flavors
installed), then it's a fairly involved process:

First, open this key and get the 'CurVer' value:

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD

The value of that will be one of the subkeys of the above key, and
then you open that key, and get the value of it's CurVer:

HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXX.X\

Where "RXX.X" is the value of the CurVer of the first key.

The result will be something like "ACAD-XXXX:XXX".

Now, you take that value, along with the 'RXX.X' and
construct another new key in HKEY_LOCAL_MACHINE:

HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\RXX.XX\ACAD-XXXX:XXXX

Where RXX.X and ACAD-XXXX:XXXX were the values read
from the above keys.

Open that key, and read the AcadLocation value to get the location
of the AutoCAD application.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message
news:6144462@discussion.autodesk.com...
How would I go about getting the Path location of acad.exe with vb.net? (so
i don't have to hard code it)

--
Work: VISTA Ultimate/Windows 7 x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs
Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce
8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2
Gigs Ram, Nvidia GeForce 6150

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 19:54:16 GMT

ok.. guess it's not even close to being as simple as it is in lisp..

I'll have to figure a way to keep the current method then.. (findfile
"acad.exe")

Work: VISTA
Ultimate/Windows 7 x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs
Ram, GeForce 6800GS 256MB

Home: VISTA Ultimate x64 - AMD 64 Quad
Core 2.2GHz, 8 Gigs Ram, GeForce 8600GT 512MB

Laptop (17" HP): VISTA Premium x32 -
color="#000000">AMD Turion X2 Dual Core TL-50 1.6GHz, 2 Gigs Ram,
color="#666666">Nvidia GeForce 6150

Tony Tanzillo wrote:

If what you want is the AutoCAD that starts when you double-click a .DWG 

file (where it may be possible that there's several releases/flavors 

installed), then it's a fairly involved process:



First, open this key and get the 'CurVer' value:



   HKEY_CURRENT_USER\Software\Autodesk\AutoCAD



The value of that will be one of the subkeys of the above key, and

then you open that key, and get the value of it's CurVer:



   HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\RXX.X\



Where "RXX.X" is the value of the CurVer of the first key.



The result will be something like "ACAD-XXXX:XXX".



Now, you take that value, along with the 'RXX.X' and

construct another new key in HKEY_LOCAL_MACHINE:



   HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\RXX.XX\ACAD-XXXX:XXXX



Where RXX.X and ACAD-XXXX:XXXX were the values read

from the above keys.



Open that key, and read the AcadLocation value to get the location

of the AutoCAD application.

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 21:37:50 GMT

How do you get it in lisp?

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 21:51:57 GMT

. . . . . . .

(findfile
"acad.exe")

NathTay wrote:

How
do you get it in lisp?

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 22:24:05 GMT

http://msdn.microsoft.com/en-us/library/t71ykwhb.aspx

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 22:42:24 GMT

It is pretty easy just add the following function and call it in your code:
{code}
Public Function GetAcadPath() As String
Dim prodId As String = Autodesk.AutoCAD.Runtime.SystemObjects.DynamicLinker.ProductKey
Dim strPath As String = My.Computer.Registry.LocalMachine.OpenSubKey(prodId).GetValue("AcadLocation")
Return strPath
End Function
{code}

HTH,
Joshua Modglin
Engineered Efficiency
Web: http://www.eng-eff.com
Blog: http://www.civil3d.com

Re: acad.exe path..

Anonymous — Wed, 18 Mar 2009 23:18:13 GMT

nice. thank you.

JoshuaModglin wrote:

It
is pretty easy just add the following function and call it in your
code:
{code} Public Function GetAcadPath() As String Dim prodId As String =
Autodesk.AutoCAD.Runtime.SystemObjects.DynamicLinker.ProductKey Dim
strPath As String =
My.Computer.Registry.LocalMachine.OpenSubKey(prodId).GetValue("AcadLocation")
Return strPath End Function
{code}
HTH,
Joshua Modglin
Engineered Efficiency
Web: http://www.eng-eff.com
Blog: http://www.civil3d.com

Re: acad.exe path..

Anonymous — Thu, 19 Mar 2009 13:28:28 GMT

(findfile) gives you the location of the AutoCAD that you're running under.

The process I described gives you the AutoCAD that starts if you
double click a drawing file in Explorer, and can be used when there
is no running AutoCAD.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2009
Supporting AutoCAD 2000 through 2009

http://www.acadxtabs.com

Introducing AcadXTabs 2010:
http://www.caddzone.com/acadxtabs/AcadXTabs2010.htm

"C Witt" wrote in message
news:6144793@discussion.autodesk.com...
. . . . . . .

(findfile "acad.exe")

Work: VISTA Ultimate/Windows 7 x32 - AMD 64 X2 Dual Core 4200 2.2GHz, 4 Gigs
Ram, GeForce 6800GS 256MB
Home: VISTA Ultimate x64 - AMD 64 Quad Core 2.2GHz, 8 Gigs Ram, GeForce
8600GT 512MB
Laptop (17" HP): VISTA Premium x32 - AMD Turion X2 Dual Core TL-50 1.6GHz, 2
Gigs Ram, Nvidia GeForce 6150

NathTay wrote:
How do you get it in lisp?

Re: acad.exe path..

Anonymous — Thu, 19 Mar 2009 15:51:59 GMT

But as this is an internal program (to autocad) it's the "running
version" I care about.

Tony Tanzillo wrote:

(findfile) gives you the location of the AutoCAD that you're running under.



The process I described gives you the AutoCAD that starts if you

double click a drawing file in Explorer, and can be used when there

is no running AutoCAD.