Autocad lisp point specific folder

[morgan.bouchaud]

Hi everybody, thanks for the acceptance on this forum.

Sorry for my english. I work in an Architecture Company based in France as a Graphic designer, I usually use Sketchup for modelling and Enscape for rendering.

I'm totally a newbie using autocad lisp and I'm trying to figure out how it works. Also trying to help a colleague.

Here's my problem/question:

I'm using an existing lisp allowing me to rename several blocks in different *.dwg files. In this way I can save time.

Unfortunately, a window box appears and asks me to choose my Folder. So I have to expand all the folders 'till the good one.

I suppose that the command in the lisp is this one:

(setq oFolder (vlax-invoke
oShell
'BrowseForFolder
(vla-get-hwnd acApp)
"Select folder to process:"
0
(+ 1 64 256)

But what I want is to go directly to the drawing directory so I can select the files quickly instead of expanding everything that's before.

Here are some screenshots

The code

The dialog box I get

Thanks

[Sea-Haven]

Have a look at this "Getfiled"

Help: getfiled (AutoLISP) (autodesk.com)

May be a french version.

[paullimapa]

If you have Express Tools then the following code will work:

(if(and(member "acetutil.arx"(arx))acet-ui-getfile)(acet-ui-pickdir "Select Item" (getvar"dwgprefix") "Select Folder to Process")(alert"AutoCAD Express Tools Not Found"))

[ronjonp]

Take a look HERE