ZZXXQQ大哥，再帮一下撒，搞了一天都不知那错啦

caoyin

(defun loaddir (d extname)
  (setq lst nil)
  (setq extname (strcase extname))
  (mapcar '(lambda (x)
             (if (= (strcase (vl-filename-extension x)) extname)
               (setq lst (cons (strcat d x) lst))
             )
             (if (vl-file-directory-p (strcat d x))
               (loaddir (strcat d x "\\") extname)
             )
           )
          (setq jj (vl-directory-files d))
  )
  lst
)

caoyin

(defun lt:path-addBackSlash (path)
  (setq path (vl-string-translate "/" "\\" path))
  (if (wcmatch path "*\\") path (strcat path "\\"))
)

;;____________________________________________________________________________________________________
;; ▓ (lt:load-allLispAtDir dir)
;; [功能] 加载指定目录中所有 LISP 程序程序
;; [参数] dir---目录
;; [测试] (lt:load-allLispAtDir "c:\\lisp")
(defun lt:load-allLispAtDir (dir)
  (setq dir (lt:path-addBackSlash dir))
  (foreach x '("*.lsp" "*.fas" "*.vlx")
             (foreach y (vl-directory-files dir x 1) (load (strcat dir y)))
  )
)

illcyt

caoyin 发表于 2008-9-6 17:31
(defun lt:path-addBackSlash (path)  (setq path (vl-string-translate "/" "\\" path))  (if ( ...

本人新手，试了您给的，一直调试不成功，请赐教

zmzk

高手在民间