如何使用vlisp将目录加入cad支持路径中
www.dimcax.com
如何使用vlisp将目录加入cad支持路径中
请教各位:使用vlisp如何判断某目录存在,并设置其为cad支持目录?
d
这个我也不会,也需要
e_mail:
d
搜索功能很重要啊,
多动脑筋
d
我觉得写注册表的方法也不错吧~
ghost 材料表精灵 v1.0> 免费发放
<cadghost 展开精灵 v1.0> 正在制作中...
d
ghost在
d
;;lyy 支持appload加载、命令行(load "xx")加载和直接拖曳加载
(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)
转自
的博客