list files in directory

With lisp, how can I get a list of all drawing files in a given directory, but eliminate the extension from list.

For example, if directory has drawing1.dwg and drawing2.dwg, the list will just show drawing1 and drawing 2.

Thanks for any help.

 

(mapcar
'vl-filename-base
(vl-directory-files
(getvar "dwgprefix"); or your path here
"*.dwg"
1
)
)

 

(vl-directory-files "G:/" nil -1)


Bill

 

Sorry,
Hit the post button accidentally.

(mapcar '(lambda (x)(vl-filename-base x))(vl-directory-files "G:/" nil
1))

 

Jason,

Much bettter method.

I should have seen that but I must have Lambda imbedded still from vanilla lisp.



Bill

 

Here is what I have, but I get no result.

(if (=
(setq ss (ssget "X" (list (cons 0 "INSERT"))))
(mapcar 'vl-filename-base (vl-directory-files "c:/USA" "*.dwg" 1 )))
(command "erase" ss "")
)

 

I'm a little lost with what you are trying to do.

Do you want to get a list of drawing files in a
given directory, and then for each drawing
found if that block name exists in the current
drawing file, erase all insertions?

 

yes

 

Now I have this... but returns nil.

(vlax-for blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))(setq result (cons (vla-get-name blocks) result)))

(setq lt1 (reverse result))

(foreach n lt1

(if (setq filename (findfile (strcat "L:/COMPASS 2000 Server/DUERR_AutoCADTitleBlocks/USA" n ".dwg")))

(progn
(setq blockname (vl-filename-base filename))
(setq ss (ssget "X" (list (cons 2 blockname))))
(command "erase" ss "")

)
)
)

 

Completely untested and written on the fly.

(foreach item <list of file names>
(setq ss (ssget "x" (list '(0 . "INSERT") (cons 2 item))))
(if ss
(progn
(setq i 0)
(repeat (sslength ss)
(vla-delete (vlax-ename->vla-object (ssname ss i)))
(setq i (1+ i))
)
)
(princ (strcat "\n" item " not found"))
)
)