Importing multiple DXF files into a drawing from a user defined directory?

[Anonymous]

I found this code while searching online, but I need to be able to pick a new directory folder each time I run the lisp. It would preferably open a file navigation dialog box, so I could browse to the desired folder. Anyone have ideas? Please and thank you!

(defun c:IDXFS (/ directory files)
(setq directory "C:\\MyFile\\DXFs")
(if (setq files (vl-directory-files directory "*.dxf" 1))
(foreach dxf files
(command "_.-insert"
(strcat directory "\\" dxf)
'(0. 0. 0.)
""
""
""
)
)
(princ "\n No DXF files found into that folder !")
)
(princ)
)

[Ranjit_Singh · Accepted solution]

replace "setq directory ......" with this and once you select any file in the directory it passes the path of the folder to directory variable

(setq directory (vl-filename-directory (getfiled "Select any file in subject directory" "" "" 2)))

[Anonymous]

Awesome! Thank you!

[Ranjit_Singh]

welcome!