liminnet
发表于 2008-7-13 18:44:00
linhui12
发表于 2008-7-13 19:31:00
<p></p><p>这样设置就可以了嘛</p>
liminnet
发表于 2008-7-13 22:08:00
dinosaurhxe2
发表于 2008-7-13 22:28:00
加这个路径有什么用呢？前一段时间我也在想这个问题。
liminnet
发表于 2008-7-13 22:44:00
liminnet
发表于 2008-7-14 17:28:00
lyy
发表于 2008-7-14 21:31:00
本帖最后由 作者 于 2008-7-14 22:17:47 编辑 <br /><br /> <p>;;支持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)</p>
mccad
发表于 2008-7-14 21:33:00
以前版本的AutoCAD支持路径有字节数限制，不知现在的版本是否修正，所以尽量不要搞那么多的支持目录。
狂刀无痕
发表于 2008-7-14 21:48:00
先搜索一下论坛吧，几百年前就有了
liminnet
发表于 2008-7-15 08:38:00