topic Re: Open Explorer 2 Folder Levels Up From Current Directory in Visual LISP, AutoLISP and General Customization Forum

Open Explorer 2 Folder Levels Up From Current Directory

thomasarpasi — Wed, 20 Apr 2022 16:38:47 GMT

I'm looking to open Explorer 2 Folder Levels Up From Current Directory via lisp. I've created a number of LISP using block insertion and scripting, but this has me at a standstill.

I have getting the current directory down using dwgprefix. How do I tell it go back 2 levels in reference to the dwgprefix variable? I have done alot of searching and nothing has helped. My approach may be off? I've tried applying vl-string-trim-right and have had no luck as well.

Thanks in advance.

Re: Open Explorer 2 Folder Levels Up From Current Directory

Kent1Cooper — Wed, 20 Apr 2022 18:01:36 GMT

If you're looking to open a drawing in that folder 2 levels up, here's one approach that seems to work:

;| DwgUp2Folders.lsp [command name: DU2F] To open a Drawing in the Folder Up 2 levels from the current one Kent Cooper, 20 April 2022 |; (defun C:DU2F (/ prerev) (setq prerev (reverse (vl-string->list (getvar 'dwgprefix)))) (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object) ) (getfiled "Select drawing:" (vl-list->string (reverse (member 92 (cdr (member 92 (cdr prerev))))) ) "dwg" 0 ) ) ) ) (prompt "\nType DU2F to open a Drawing Up 2 Folder levels from current.")

If instead you only want to open the folder in Windows Explorer or something, you should at least be able to incorporate the same method of getting that folder name into a version of your current-directory code.

Re: Open Explorer 2 Folder Levels Up From Current Directory

hak_vz — Wed, 20 Apr 2022 17:54:40 GMT

Something like this:

Opens Explorer two levels up from current file path.

It doesn't check if removing two sub-directories will jump over root i.e C:, so you can try to implement that check.

(defun twodirsup ( / string_to_list ret) (defun string_to_list ( str del / pos ) (if (setq pos (vl-string-search del str)) (cons (substr str 1 pos) (string_to_list (substr str (+ pos 1 (strlen del))) del)) (list str) ) ) (setq ret "") (foreach e (reverse(cddr(reverse (string_to_list (vl-filename-directory (getvar 'DWGPREFIX)) "\\")))) (setq ret (strcat ret e "\\")) ) (startapp "Explorer" ret) (princ) )

Re: Open Explorer 2 Folder Levels Up From Current Directory

ВeekeeCZ — Wed, 20 Apr 2022 18:17:19 GMT

(defun c:Explorer2Up () (startapp "explorer" (strcat (getvar 'dwgprefix) "..\\..")) (princ))

Re: Open Explorer 2 Folder Levels Up From Current Directory

thomasarpasi — Wed, 20 Apr 2022 21:53:21 GMT

It seems to jump to "Documents" folder. Not sure why...could be something on my end.

Re: Open Explorer 2 Folder Levels Up From Current Directory

thomasarpasi — Wed, 20 Apr 2022 21:53:45 GMT

It seems to jump to "Documents" folder. Not sure why...could be something on my end.

Re: Open Explorer 2 Folder Levels Up From Current Directory

hak_vz — Thu, 21 Apr 2022 05:16:35 GMT

When directory to jump from is not too deep it will show you "Documents" since jumping two levels up passes over root. Code would have to be updated to so that it can work only with paths deeper than 3 levels.

Re: Open Explorer 2 Folder Levels Up From Current Directory

ronjonp — Thu, 21 Apr 2022 15:22:47 GMT

@thomasarpasi

@ВeekeeCZ Code worked fine here.

Re: Open Explorer 2 Folder Levels Up From Current Directory

john.uhden — Thu, 21 Apr 2022 21:32:35 GMT

My turn...

(defun @str2list (str pat / i j n lst) (cond ((/= (type str)(type pat) 'STR)) ((= str pat)'("")) (T (setq i 0 n (strlen pat)) (while (setq j (vl-string-search pat str i)) (setq lst (cons (substr str (1+ i)(- j i)) lst) i (+ j n) ) ) (reverse (cons (substr str (1+ i)) lst)) ) ) ) ;; This is the primary function: (defun @up2 ( / a b c) (setq a (getvar "dwgprefix")) ;; "G:\\Projects-Cadd\\2019\\19190.Dewing.Mantoloking\\" (setq b (@str2list a "\\")) ;; ("G:" "Projects-Cadd" "2019" "19190.Dewing.Mantoloking" "") (setq c (reverse (cdr (cdr (reverse (vl-remove "" b)))))) ;; ("G:" "Projects-Cadd") (apply 'strcat (mapcar '(lambda (x)(strcat x "\\")) c)) )

"G:\\Projects-Cadd\\"

Re: Open Explorer 2 Folder Levels Up From Current Directory

Sea-Haven — Fri, 22 Apr 2022 01:53:03 GMT

My take not deeply tested, pick any level.

; string to list by John Uhden ; by John Uhden modified by Alan H April 2022 (defun @str2list (str pat / i j n lst) (cond ((/= (type str)(type pat) 'STR)) ((= str pat)'("")) (T (setq i 0 n (strlen pat)) (while (setq j (vl-string-search pat str i)) (setq lst (cons (substr str (1+ i)(- j i)) lst) i (+ j n) ) ) (reverse (cons (substr str (1+ i)) lst)) ) ) ) ;; This is the primary function: (defun @up2 ( / a b c) (setq a (getvar "dwgprefix")) ;; (setq a "G:\\Projects-Cadd\\2019\\projects\\1910\\19190.Dewing.Mantoloking\\") (setq b (@str2list a "\\")) (setq lst '() x 0 str (strcat (nth 0 b) "/") ) (setq lst (cons str lst)) (repeat (- (length b) 2) (setq x (1+ x)) (setq str (strcat str (nth x b) "/")) (setq lst (cons str lst)) ) (setq lst (reverse lst)) (setq lst (cons "Choose directory " lst)) (if (not AH:Butts)(load "Multi Radio buttons.lsp")) (setq ans (ah:butts but "V" lst)) (setq ans (vl-string-translate "/" "\\" ans)) (startapp "explorer" ans) (princ) )

Can set default button 2 up if required

Re: Open Explorer 2 Folder Levels Up From Current Directory

ronjonp — Fri, 22 Apr 2022 14:36:25 GMT

You could also do this easily in Windows Explorer. It's one more click though. 😃