关于添加支持路径在WIN7下失效，怎么解决？

ambox · 发表于 2013-8-7 08:30:02

;; 添加支持路径。这里只添加一条。多条的话自行修改。
  (Xman_AddSupportPath (GetXmanPath) nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS") nil)
;;--------------------------------------------------------------
(setq acadver (atof (getvar "acadver")))
(cond
   ((and (>= acadver 16.0) (<= acadver 16.2))
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS16") nil)
   )
   ((and (>= acadver 17.0) (<= acadver 17.2))
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS17") nil)
   )
   ((> acadver 17.2)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\SYS18") nil)
)
  )
;;--------------------------------------------------------------
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\APS有雪") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\Dwb") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\MSteel") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\常用程序") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\高山流水") nil)
  (Xman_AddSupportPath (strcat (GetXmanPath) "\\小伙拾遗") nil)
  (Xman_AddSupportPath (strcat "E:\\结构电子书籍") nil)

上面的函数在XP下运行没有问题，但是在WIN7下无法增加搜索路径？什么问题？
还有一个问题，我想把这些路径前置到搜索路径的最上方，要怎么写？

luowy · 发表于 2013-8-7 14:17:11

本帖最后由 luowy 于 2013-8-7 14:20 编辑

有那么复杂么？？？？
lsp
(setq fileSupportPath (getenv "ACAD"))
(setq fileSupportPath (strcat yourFileSupportPathHere fileSupportPath))
(setenv "ACAD" fileSupportPath)

账号		自动登录	找回密码
密码			注册

[提问] 关于添加支持路径在WIN7下失效，怎么解决？

浏览过的版块