![]() |
lyy大哥,关于自动添加搜索目录的问题,你的代码
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 lt:path-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 (lt:path-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 |
所有的时间均为北京时间。 现在的时间是 05:53 AM. |