如何使用vlisp将目录加入CAD支持路径中
<FONT face=宋体 size=2>请教各位：使用vlisp如何判断某目录存在，并设置其为CAD支持目录？</FONT> 这个我也不会,也需要 <A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=33150" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=33150</A>搜索功能很重要啊, 我觉得写注册表的方法也不错吧~ CADghost发表于2005-4-19 8:37:00static/image/common/back.gif我觉得写注册表的方法也不错吧~
<BR>给点例子看看吧。 <p>;;lyy 支持appload加载、命令行(load "xx")加载和直接拖曳加载</p><p>(vl-load-com)<br/>(defun set_path (/ str n1 n2)<br/>(while (/= 0 (getvar "cmdactive")) (command))<br/>(princ "\n")<br/>(setq str (getvar "lastprompt"))<br/>(if (wcmatch (strcase str) "*(LOAD \"*")<br/> (setq n1 (vl-string-search "(LOAD \"" str)<br/> n2 (vl-string-search "\")" str)<br/> str (substr str (+ n1 8) (- n2 n1 7))<br/> )<br/> (setq str<br/> (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\*"<br/> (substr (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\*" "MRUList") 1 1)<br/> )<br/> )<br/>)<br/>(setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-filename-directory str)))<br/>)<br/>(set_path)<br/>(setq set_path nil)<br/>(princ)<br/>转自</p><div id="header"><div class="lc"><div class="rc"></div></div><div class="tit"><a class="titlink" title="xshrimp的空间 http://hi.baidu.com/xshrimp" href="http://hi.baidu.com/xshrimp">shlisp Cad </a>的博客</div></div> hagoodyear 发表于 2008-11-5 10:45
;;lyy 支持appload加载、命令行(load "xx")加载和直接拖曳加载(vl-load-com)(defun set_path (/ str n1 n2) ...
appload加载不行。
页:
[1]