liminnet
发表于 2008-9-6 16:19:00
caoyin
发表于 2008-9-6 16:49:00
<font color="#000000">(defun loaddir (d extname)<br/> (setq lst nil)<br/> <font color="#3809f7">(setq extname (strcase extname))<br/></font> (mapcar '(lambda (x)<br/> (if (= <font color="#f70909">(strcase (vl-filename-extension x))</font> extname)<br/> (setq lst (cons (strcat d x) lst))<br/> )<br/> (if (vl-file-directory-p (strcat d x))<br/> (loaddir (strcat d x "\\") extname)<br/> )<br/> )<br/> (setq jj (vl-directory-files d))<br/> )<br/> lst<br/>)</font><font color="#ff0000"></font>
liminnet
发表于 2008-9-6 17:05:00
caoyin
发表于 2008-9-6 17:31:00
<p>(defun lt:path-addBackSlash (path)<br/> (setq path (vl-string-translate "/" "\\" path))<br/> (if (wcmatch path "*\\") path (strcat path "\\"))<br/>)</p><p>;;____________________________________________________________________________________________________<br/>;; ▓ (lt:load-allLispAtDir dir)<br/>;; [功能] 加载指定目录中所有 LISP 程序程序<br/>;; [参数] dir---目录<br/>;; [测试] (lt:load-allLispAtDir "c:\\lisp")<br/>(defun lt:load-allLispAtDir (dir)<br/> (setq dir (lt:path-addBackSlash dir))<br/> (foreach x '("*.lsp" "*.fas" "*.vlx") <br/> (foreach y (vl-directory-files dir x 1) (load (strcat dir y)))<br/> )<br/>)</p>
illcyt
发表于 2013-8-31 00:27:58
caoyin 发表于 2008-9-6 17:31 static/image/common/back.gif
(defun lt:path-addBackSlash (path) (setq path (vl-string-translate "/" "\\" path)) (if ( ...
本人新手，试了您给的，一直调试不成功，请赐教
zmzk
发表于 2022-12-10 08:56:18
高手在民间
页:
[1]