如何使用vlisp将目录加入CAD支持路径中

zcmfk

请教各位：使用vlisp如何判断某目录存在，并设置其为CAD支持目录？

hhc

这个我也不会,也需要

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=33150 搜索功能很重要啊,

CADghost

我觉得写注册表的方法也不错吧~

north911

CADghost发表于2005-4-19 8:37:00我觉得写注册表的方法也不错吧~

给点例子看看吧。

hagoodyear

;;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)
转自

shlisp Cad 的博客

jmkite

hagoodyear 发表于 2008-11-5 10:45
;;lyy 支持appload加载、命令行(load "xx")加载和直接拖曳加载(vl-load-com)(defun set_path (/ str n1 n2) ...

appload加载不行。