;自动加载文件夹中的lsp,fas,vlx文件
(defun loadlspfile(Folder_path / nn f1)
(if Folder_path
(vl-catch-all-apply
'(lambda ( / nn f1)
(setq nn
(append
(xingle_GetFile Folder_path "*.lsp")
(xingle_GetFile Folder_path "*.fas")
(xingle_GetFile Folder_path "*.vlx")
)
)
(foreach f1 nn
(vl-catch-all-apply 'load (list (strcat Folder_path "\\" f1)))
)
)
)
)
)
;语法(vl-directory-files [directory pattern directories])
;功能:列出给定目录中的所有文件
;说明
;1)参数 directory 为字符串，指定要收集文件的目录。若未指定该参数或参数为 nil，那么vl-directory-files 使用当前目录。
;2)参数 pattern 为字符串，包含文件名的 DOS 方式。如果未指定该参数或参数为 nil，vl-directory-files 假定为 "*.*"。
;3)directories 为整数型，指定返回的表中是否包含路径名。可以指定下列值之一：
;-1 仅列出目录。
;0 列出文件和目录(缺省值)。
;1 仅列出文件。
;返回值：
;文件和路径列表。若没有符合指定方式的文件，则返回 nil。
;;pattern类型为list
(defun xingle_GetFile (Dire pattern / SubFile)
(setq SubFile (vl-remove-if
(function (lambda (x) (member x '(".." "."))))
(vl-directory-files Dire pattern 1)
)
)
)
;(xingle_GetFile "Z:\\CAD图库" "*.lsp")
(defun load_Folder_app (path)
(if (findfile path)
(progn
(loadlspfile path)
(princ (strcat path "\n中的lsp,FAS,VLX文件已加载完成>>>>>>>>"))
)
(princ (strcat "\n错误!!!\n请检查路径" path "是否正确<<<<<<<
)
(princ)
)
;;
(defun c:tt()(load_Folder_app "Z:\\mini\\Autoload\\liuxin"));;设置快捷命令,手动加载
(C:tt);;这样写,程序加载这个段代码时,自动激活命令
)
)
