{问题}如何用lisp语言设定 支持文件搜索路径

yunkai8

请问版主如何用lisp语言设定 支持文件搜索路径

yunkai8

EA大哥能给个具体的例子吗？


比如我想把路径设到d:\wyk下，我要在acad.lsp中怎么写呢？

Ea

用环境变量        "ACAD"，将要添加的路径用 setenv 补充进来，注意环境变量是大小写敏感的。

yunkai8

我在autocad2004中试过了，可行的方案！谢谢Ea大哥，不过，不知道autocad2000是否支持 (setenv        "acad" "....")的命令？

meflying

支持,不过好象要大写ACAD

yunkai8

问题又来了，setenv        "acad" "...." 命令是完全替代当前的路径，


这样一来，原来的路径就没了，怎么办啊

mccad

先GetEnv取得路径，然后在后面加上你的路径后再SetEnv。

yunkai8

找到完美解决方案与大家分享

(defun Example_SupportPath ()

;;;这个范例返回

;;;SupportPath的当前设定值，接着改变它的值，最后恢复初始值

(VL-LOAD-COM)

(setq AcadObject (vlax-get-acad-object)

AcadDocument (vla-get-ActiveDocument AcadObject)

mSpace (vla-get-ModelSpace AcadDocument)

)

(setq preferenceSel (vla-get-Preferences AcadObject))

(setq fileSel (vla-get-Files preferenceSel))

;;;取出当前的SupportPath值

(setq currSupportPath (vla-get-SupportPath fileSel))

(princ "SupportPath的值当前设定为: ")

(princ currSupportPath)

(princ " SupportPath范例\n")

(PROMPT "<Enter>进行:")

(VL-CMDF pause)

;;;改变SupportPath的值

(vla-put-SupportPath fileSel "TestSupportPath")

(setq newSupportPath (vla-get-SupportPath fileSel))

(princ "SupportPath的新值设定为: ")

(princ newSupportPath)

(princ " SupportPath范例\n")

(PROMPT "<Enter>进行:")

(VL-CMDF pause)

;;;将 SupportPath 重设为原来的值

(vla-put-SupportPath fileSel currSupportPath)

(vla-Regen AcadDocument acAllViewports)

(princ "SupportPath的值已经重设为: ")

(princ currSupportPath)

(princ " SupportPath范例\n")

(princ)

)