Specify directory

Hi all,

I am trying to access a function similar to McNeals (dos_getdir). The reason I want to do this is because I am trying to write a set up file which at this stage does not have enough information about the location of the doslib2004.arx. Does anybody know if there is an alternative in lisp?

Thanks
Dart

 

(getfiled ....

reason I want to do this is because I am trying to write a set up file which
at this stage does not have enough information about the location of the
doslib2004.arx. Does anybody know if there is an alternative in lisp?

 

; Example: (ALE_BrowseForFolder "Select drawings folder")
;
; Original BrowseForFolder by Tony Tanzillo
;
(defun ALE_BrowseForFolder (PrmStr / ShlObj Folder FldObj OutVal)
(vl-load-com)
(setq
ShlObj (vla-getInterfaceObject (vlax-get-acad-object)
"Shell.Application")
Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 PrmStr 0)
)
(vlax-release-object ShlObj)
(if Folder
(progn
(setq
FldObj (vlax-get-property Folder 'Self)
OutVal (vlax-get-property FldObj 'Path)
)
(vlax-release-object Folder)
(vlax-release-object FldObj)
OutVal
)
)
)



--

Marc'Antonio Alessi
http://xoomer.virgilio.it/alessi
(strcat "NOT a " (substr (ver) 8 4) " guru.")

--

 

Interesting !
It works !
What have I to do to set the initial default folder ?
For istance I want that the BrowseForFolder dialog shows the "c:\window\"
folder as default . . .

Ciao Marc'Antonio.
Bravo
Domenico

 

Marc,

That is exactly what I was after. Good work!

Dart

 

Glad to help.

....and thanks to Tony Tanzillo...


--

Marc'Antonio Alessi
http://xoomer.virgilio.it/alessi
(strcat "NOT a " (substr (ver) 8 4) " guru.")

--

 

The same question I did to Tony, see original thread:

martedì 10 agosto 2004 15.06
"Directory select with only lisp"

....I have found that I can can have a string prompt (see below),
is it possible to have a starting path also (like DOS_Getdir)?...


--

Marc'Antonio Alessi
http://xoomer.virgilio.it/alessi
(strcat "NOT a " (substr (ver) 8 4) " guru.")

--

 

Yes you can.

FWIW, learn to use/translate the documentation for the
given API. In this case, you can go to MSDN Online
(http://msdn.microsoft.com) and simply look up the
BrowseForFolder method.

 

Thanks.