用法
评论
建议
取 消
确 定
(defun vectra:file-search (path patten / r) (foreach dir (cddr (vl-directory-files path nil -1)) (setq r (append r (vectra:file-search (strcat path "\\" DIR) PATTEN)))) (FOREACH FILE (VL-DIRECTORY-FILES PATH PATTEN 0) (SETQ R (CONS (STRCAT PATH "\\" file) r))) r)
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新