几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   lyy大哥,关于自动添加搜索目录的问题,你的代码 (http://www.dimcax.com/hust/showthread.php?t=10665)

yang686526 2009-04-25 08:40 PM

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.