yang686526

lyy大哥，关于自动添加搜索目录的问题，你的代码
www.dimcax.com
lyy大哥，关于自动添加搜索目录的问题，你的代码
(defun setq_path (/ n1 n2)
(vl-load-com)
(while (/= 0 (getvar "cmdactive")) (command))
(princ "\n")
(setq str (getvar "lastprompt"))
(if (wcmatch (strcase str) "*(load \"*")
(setq n1 (vl-string-search "(load \"" str)
n2 (vl-string-search "\")" str)
str (substr str (+ n1 8) (- n2 n1 7))
)
(setq str
(vl-registry-read "hkey_current_user\\software\\microsoft\\windows\\currentversion\\explorer\\comdlg32\\opensavemru\\*"
(substr (vl-registry-read "hkey_current_user\\software\\microsoft\\windows\\currentversion\\explorer\\comdlg32\\opensavemru\\*" "mrulist") 1 1)
)
)
)
(setenv "acad" (strcat (vl-filename-directory str) ";" (getenv "acad")))
)
;;以上代码上lyy前辈给的，在命令中输入appload后，加载一个含有以上代码的程序，就会自动向支持搜索目录增加这个程序所在的目录进去
(defun ltath-addbackslash (path)
(setq path (vl-string-translate "/" "\\" path))
(if (wcmatch path "*\\") path (strcat path "\\"))
)
;;____________________________________________________________________________________________________
;; ▓ (koyote->quick-load-onedirectory-allprogram-file dir)
;; [功能] 加载指定目录中所有 lisp 程序程序
;; [参数] dir---目录
;; [测试] (koyote->quick-load-onedirectory-allprogram-file "c:\\lisp")
(defun koyote->quick-load-onedirectory-allprogram-file (dir)
(setq dir (ltath-addbackslash dir))
(foreach x '("*.lsp" "*.fas" "*.vlx" "*.lsp" "*.fas" "*.vlx")
(foreach y (vl-directory-files dir x 1) (load (strcat dir y)))
)
)
(defun c:abb()
(koyote->quick-load-onedirectory-allprogram-file "e:\\gohomebrack\\cad百宝箱工具箱\\单个lsp\\加载load made persion all program vlx")
(princ)
)
;;;;;;lyy前辈，我上面的所有程序都放在一个lsp文件中，这个lsp文件的目录位置就是程序abb中所定义的目录，我想问的是，如果我在命令行中abb能向支持搜索目录增加e:\\gohomebrack\\cad百宝箱工具箱\\单个lsp\\加载load made persion all program vlx吗？
【点评】 说过多少次了，标题请注明所问问题的主要内容 [mccad |
d
【点评】 说过多少次了，标题请注明所问问题的主要内容 [mccad |
屡教不改，看来要用删帖才能记得住了
d