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

citykunan

如何用vlisp得到一个目录中包含子目录的里所有*.dwg文件的目录+文件名。

nonsmall

(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
)

xshrimp

http://www.mjtd.com/BBS/dispbbs.asp?BoardID=3&replyID=87711&id=66260&skin=0

nonsmall

列出给定目录中的所有文件

(vl-directory-files  [directory pattern directories])

参数

directory

字符串，指定要收集文件的目录。如果未指定该参数或参数为 nil，vl-directory-files 使用当前目录。

pattern

字符串，包含文件名的 DOS 方式。如果未指定该参数或参数为 nil，vl-directory-files 假定为 "*.*"

directories

整数型，指定返回的表中是否包含路径名。可以指定下列值之一：

–1 仅列出目录。

0 列出文件和目录（缺省值）。

1 仅列出文件。

nonsmall

上面是获得所有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
)

xiaoquansb

……犹如滔滔江水绵绵不绝啊