关于添加支持路径函数在WIN7下失效问题。
;; 添加支持路径。这里只添加一条。多条的话自行修改。(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下无法增加搜索路径？什么问题？
还有一个问题，我想把这些路径前置到搜索路径的最上方，要怎么写？
页:
[1]