lyy大哥，在我的程序中帮我加一点代码让它被加载后，可以这样子

linhui12

这样设置就可以了嘛

dinosaurhxe2

加这个路径有什么用呢？前一段时间我也在想这个问题。

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)

mccad

以前版本的AutoCAD支持路径有字节数限制，不知现在的版本是否修正，所以尽量不要搞那么多的支持目录。

狂刀无痕

先搜索一下论坛吧，几百年前就有了