[求助]：请问如何改变cad的搜索路径

entrophy

我正在写一个小程序，
其中的填充部分，
我想用自己目录下的acadiso.pat代替
而不想直接覆盖原来的文件。

我知道手工的解决办法是
在cad的支持文件选项中手工调整
请问有没有什么函数或者是命令可以改变搜索顺序
如果可以改cad的配置文件就更好了

lsjjm

2. (defun loadSupportPaths (paths / files f)
   
3.   (vl-load-com)
   
4.   (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
   
5.   (vla-put-supportpath files paths)
   
6.   (princ)
   
7. )

(defun loadSupportPaths (paths / files f) <br />   (vl-load-com) <br />   (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) <br />   (vla-put-supportpath files paths) <br />   (princ) <br /> )

hqd9639

最初由 lsjjm 发布
[B][code](defun loadSupportPaths (paths / files f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (vla-put-supportpath files paths)
  (princ)
)[/c... [/B]

你这样会把原来的所有CAD路径都冲掉的，会导致CAD启动有问题，改一下吧：
(defun addSupportPaths (paths / AcadFiles oldpath newpath)
    (vl-load-com)
    (setq AcadFiles (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
    (setq oldpath (vla-get-SupportPath AcadFiles));;;获取原来的路径
    (setq newpath (strcat oldpath ";" paths))
    (vla-put-supportpath AcadFiles newpath)
    (princ)
)

lijiao

最初由 hqd9639 发布
[B][QUOTE]最初由 lsjjm 发布
[B][code](defun loadSupportPaths (paths / files f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (vla-put-support... [/B]

最好是先判断一下自己的搜索路径是否存在，然后再做处理。

entrophy

多谢各位大侠，
小弟有礼了！

eachy

刚刚写了一个添加工具箱支持路径的程序，用的是环境变量。
http://www.xdcad.net/forum/showthread.php?s=&threadid=74584