得到目录和子目录的*.dwg的文件名和目录
 

得到目录和子目录的*.dwg的文件名和目录
www.dimcax.com
得到目录和子目录的*.dwg的文件名和目录如何用vlisp得到一个目录中包含子目录的里所有*.dwg文件的目录+文件名。
且放白鹿青崖间，须行即骑访名山。
安能摧眉折腰事权贵，使我不得开心颜！
d
好像caoyin版主发过
d
d
列出给定目录中的所有文件
(vl-directory-files [directory pattern directories])参数
directory
字符串，指定要收集文件的目录。如果未指定该参数或参数为 nil，vl-directory-files 使用当前目录。
pattern
字符串，包含文件名的 dos 方式。如果未指定该参数或参数为 nil，vl-directory-files 假定为 "*.*"
directories
整数型，指定返回的表中是否包含路径名。可以指定下列值之一：
–1 仅列出目录。
0 列出文件和目录（缺省值）。
1 仅列出文件。
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(defun child_folder(folder / dwgs file fo)
(setq folder (strcat (vl-string-right-trim "\\" folder) "\\"))
(foreach fo (cdr (cdr (vl-directory-files folder nil -1)))
(setq dwgs (append dwgs (child_folder (strcat folder fo))))
)
(foreach file (vl-directory-files folder "*.dwg" 1)
(setq dwgs (append dwgs (list (strcat folder file))))
)
dwgs
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
上面是获得所有dwg
这个是获得所有子目录
(defun child_folder(folder / fo folders)
(setq folder (strcat (vl-string-right-trim "\\" folder) "\\"))
(foreach fo (cdr (cdr (vl-directory-files folder nil -1)))
(setq folders (append folders (list (strcat folder fo)) (child_folder (strcat folder fo))))
)
folders
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我