启动组中的程序启动顺序问题
 

启动组中的程序启动顺序问题
www.dimcax.com
启动组中的程序启动顺序问题
启动组中有几个程序，但启动cad或新建一个文档时，它们的加载顺序是启动组看到的顺序还是随机的呀？
本人是想把我写的程序放在最后一个来加载在启动组中，因为我有些程序需要添加目录到cad的支持搜索目录中去，而且该目录我是要放在搜索目录的最前端的，所以我才想最后一个加载我的程序，这样就保证不会被其他程序后来者居上啦，希望大伙帮帮我，谢谢
d
有人帮一下吗？
d
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&加载增加目录代码&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
(vl-load-com)
(defun set_path (/ str n1 n2)
(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 (getenv "acad") ";" (vl-filename-directory str)))
)
(set_path)
(setq set_path nil)
(princ)
;;为什么这段代码在cad启动时或是新建文档时却不会自动增加到支持搜索目录中去，而只有当用appload加载时才可以，
;;;以上代码是lyy大哥给点，谢谢
d