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

yunkai8 · 发表于 2004-4-8 23:44:00

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

yunkai8 · 发表于 2004-4-9 10:53:00

EA大哥能给个具体的例子吗？
比如我想把路径设到d:\wyk下，我要在acad.lsp中怎么写呢？

yunkai8 · 发表于 2004-4-9 01:18:00

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

meflying · 发表于 2004-4-9 11:04:00

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

yunkai8 · 发表于 2004-4-9 11:06:00

支持,不过好象要大写ACAD

mccad · 发表于 2004-4-10 22:53:00

问题又来了，setenv "acad" "...." 命令是完全替代当前的路径，
这样一来，原来的路径就没了，怎么办啊

yunkai8 · 发表于 2004-4-11 07:32:00

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

yunkai8 · 发表于 2004-4-11 13:13:00

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

(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 "进行:")
   (VL-CMDF pause)
;;;改变SupportPath的值
   (vla-put-SupportPath fileSel "TestSupportPath")
   (setq newSupportPath (vla-get-SupportPath fileSel))
   (princ "SupportPath的新值设定为: ")
   (princ newSupportPath)
   (princ "    SupportPath范例\n")
   (PROMPT "进行:")
   (VL-CMDF pause)
;;;将 SupportPath 重设为原来的值
   (vla-put-SupportPath fileSel currSupportPath)
   (vla-Regen AcadDocument acAllViewports)
   (princ "SupportPath的值已经重设为: ")
   (princ currSupportPath)
   (princ "    SupportPath范例\n")
   (princ)
)

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

发表回复

精选推荐

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

发表回复

精选推荐

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