kass中lisp文件_自动加载文件目录下的lsp、vlx和fas文件

;自动加载文件夹中的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   列出文