Load lisp

(defun c:loadall (/ duongdan lstLsp lstArx)
(setq duongdan (vl-filename-directory (getfiled "Chon 1 file VLX,LSP,FAS,ARX bat ki trong thu muc" "" "LSP;VLX;FAS;ARX" 0))
lstLsp (append (ST:File_GetAll duongdan "*.lsp")(ST:File_GetAll duongdan "*.vlx")(ST:File_GetAll duongdan "*.fas"))
lstArx (ST:File_GetAll duongdan "*.arx"))

(mapcar 'Load lsp)
(mapcar 'arxLoad lstArx)
)

(defun ST:File_GetAll ( Dir typ ) ;@ketxu
(append (mapcar '(lambda ( x ) (strcat Dir "\\" x)) (vl-directory-files Dir typ 1))
(apply 'append
(mapcar '(lambda ( x ) (ST:File_GetAll (strcat dir "" x) typ))
(cddr (vl-directory-files dir "" -1))
)
)
)
)


https://www.cadviet.com/forum/topic/50984-%C4%91%C3%A3-xong-chia-s%E1%BA%BB-b%E1%BB%99-lisp-r%E1%BA%A5t-hay-%E2%80%9Dkho-b%C3%A1u-c%E1%BB%A7a-minh%E2%80%9D/