topic Re: Open Folder Location in Visual LISP, AutoLISP and General Customization Forum

Open Folder Location

Anonymous — Tue, 06 Feb 2018 19:52:33 GMT

Is there a way to create a lisp routine to open the drawing file folder in Windows Explorer?

I would like to be able to create an icon that will allow me to browse to the folder where the current (open) drawing is located. Our projects have a lengthy file path and it gets annoying drilling down to the folder any time we have files for correspondence to reference. \

Any help would be greatly appreciated.

Thanks.

Re: Open Folder Location

Ranjit_Singh — Tue, 06 Feb 2018 19:57:08 GMT

One example

^C^C(command "._start" (getvar 'dwgprefix))

Re: Open Folder Location

Anonymous — Wed, 07 Feb 2018 14:48:55 GMT

It appears to run into some issues when a space is found. The drawing prefix is X:\Microvellum 7\Koehler_v043_4_Imperial\Factory Database\<job folder> but it takes me to X:\Microvellum... Our X:\ drive has multiple folders that begin with Microvellum, but it seems to ignore anything after a space.

Re: Open Folder Location

Ranjit_Singh — Wed, 07 Feb 2018 15:12:34 GMT

Try

^C^C(command "._start"(strcat "explorer "  (getvar 'dwgprefix)))

Re: Open Folder Location

ВeekeeCZ — Wed, 07 Feb 2018 15:29:24 GMT

If you're using File Tabs, then the last item in shortcut menu is...

Re: Open Folder Location

pbejse — Wed, 07 Feb 2018 16:22:37 GMT

@ВeekeeCZ wrote:

If you're using File Tabs, then the last item in shortcut menu is...

I did not know that nice.

You can use the lines below to open the folder as well as highlight the drawing file.

(startapp
            (strcat "explorer /select, "
                    (getvar "dwgprefix")
                    (getvar "dwgname")
                    ", /e"))

for toolbars

^C^C(startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", /e"))

Re: Open Folder Location

Anonymous — Thu, 28 Feb 2019 22:21:02 GMT

The file path is veritable and opens the .deg location is their a way to make it open to a static path in front of it.

Example

C:/Job Number/Drafting/Civil = ^C^C(startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", /e"))

I'll like it to direct me to a static folder called Drawing_control which is a static directory after the code

C:/Job Number/Drafting/Civil/drawing_control

^C^C(startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", + /drawing_control

Re: Open Folder Location

cschnarr — Sat, 26 Oct 2019 21:07:54 GMT

I love it! Who needs to program a button when we already have one. Great suggestion for this question!

Re: Open Folder Location

kzD1219 — Thu, 10 Nov 2022 11:35:22 GMT

@cschnarr wrote:
I love it! Who needs to program a button when we already have one. Great suggestion for this question!

I am a full on typer and barely use any of the toolbars/menus so having a command is much quicker.

Thanks for the tab right-click suggestion, I didn't know that was there either.

Re: Open Folder Location

kzD1219 — Thu, 10 Nov 2022 11:37:46 GMT

@pbejse wrote:
@ВeekeeCZwrote:
If you're using File Tabs, then the last item in shortcut menu is...

I did not know that nice.

You can use the lines below to open the folder as well as highlight the drawing file.
(startapp
            (strcat "explorer /select, "
                    (getvar "dwgprefix")
                    (getvar "dwgname")
                    ", /e"))
for toolbars
^C^C(startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", /e"))

Awesome routine. Do I just copy that line every time into the command line or is there a way to make that a lisp? Sorry not too technical, just enough to be dangerous...lol

Re: Open Folder Location

ВeekeeCZ — Thu, 10 Nov 2022 11:46:10 GMT

Lisp command. HERE is what to do.

(defun c:FL () (startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", /e")) (princ))

Re: Open Folder Location

kzD1219 — Thu, 10 Nov 2022 11:52:00 GMT

@ВeekeeCZ wrote:
Lisp command. HERE is what to do.
(defun c:FL () (startapp (strcat "explorer /select, " (getvar "dwgprefix") (getvar "dwgname") ", /e")) (princ))

YES!!! Works great, thanks! All great solutions!

Re: Open Folder Location

kzD1219 — Thu, 10 Nov 2022 12:00:42 GMT

Now my mind is going elsewhere. Since that was fairly quick and painless, any way to open up a shortcut file on my desktop through a command or start a specific website(s) that I use regularly. Just thinking.

Re: Open Folder Location

ВeekeeCZ — Thu, 10 Nov 2022 12:17:42 GMT

(defun c:google () (command "_.browser" "www.google.com") (princ))
(defun c:mymostfavouritefile () (startapp "explorer" "c:\\temp\\file.pdf") (princ))

Re: Open Folder Location

kzD1219 — Thu, 10 Nov 2022 12:20:49 GMT

@ВeekeeCZ wrote:
(defun c:google () (command "_.browser" "www.google.com") (princ))
(defun c:mymostfavouritefile () (startapp "explorer" "c:\\temp\\file.pdf") (princ))

A HUGE thank you for making my life even easier!! Now if I could only convince the rest of the staff to use those shortcuts.

Re: Open Folder Location

Sea-Haven — Fri, 11 Nov 2022 01:15:53 GMT

Understand getting others to use, anyway just put all of them into a lisp and it sounds like your using a server so save it on the server not local, go to each user and just do Appload yourcustomlisp to Start up Suite, then it will load on start up, if you add more shortcuts to this lisp and save on server, then next Cad open they will have new shortcuts.

My Autoload.lsp has 38 defuns and 35 Autoloads. Plus custom menu's.