;自動加載文件夾中的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);;這樣寫,程序加載這個段代碼時,自動激活命令

總結

以上是生活随笔為你收集整理的kass中lisp文件_自动加载文件目录下的lsp、vlx和fas文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。