Return value from APPLOAD

hi,
Basically, I want to load one lisp file via a getfiled type dialog and have it load specific files in relative paths without having those folders in the acad path.

Can it be done?

Dean

 

Hi,
Yes.

--

Regards,


Laurie Comerford
www.cadapps.com.au

 

would you like to tell me how?

 

Hi. I too would like to know how it can be done.

 

Hi Dean,

More or less straight out of the help system.

(setq xx (getfiled "Select a Lisp File" "c:/program files/AutoCAD
2005/support/" "lsp" 8))
(setq fil (findfile xx))

"fil" is a fully qualified path and file name for the selected file.

You can manipulate the string as you like to create the relative paths.

You will probably be limited to finding files on the AutoCAD path, but your
relative can go anywhere from there.

--

Regards,


Laurie Comerford
www.cadapps.com.au

 

Loading the files from outside my acadpath was the whole point of the question.

 

Assuming that you select a file using the
(getfiled) function, you can then compose
a path relative to same, manually. If you
seek an automatic means of loading files
not on the search path, forget it. You have
to do it by hand.

You will need to manipulate the path string,
as needed to compose the relative path:

Given

(setq base "d:\\level1\\level2\\filename.lsp")

If you want to load a file in a subdirectory
of the folder that contains the above file
(let's call the subdirectory "level3"):

(setq newpath
(strcat
(vl-filename-directory base)
"\\level3"
)
)

Which returns:

"d:\\level1\\level2\\level3"

So, you can then append filenames to that
to pass to (load):

(load (strcat newpath "\\" "myfile.lsp"))