如何设置CAD访问路径？

tsangbee

如题 急！！！！！！！！！！！！！！！！

caoyin

你说的访问路径是不是搜索路径

2. ;;____________________________________________________________________________________________________
3. ;; ▓ (lt:acad-SupportPath-add path position)
4. ;; [功能] 在支持路径的指定位置添加新路径
5. ;; [参数] path-------新增路径
6. ;;        position---插入位置序号(大于等于 0 的整形数、T 或 nil)
7. ;; [返回] 成功--->添加后的支持路径，反之--->nil
8. (defun lt:acad-SupportPath-add (path pos / paths p)
9.   (setq paths (getenv "ACAD"))
10.   (cond ((or (= pos T) (= pos 0)) (setq paths (strcat path ";" paths)))
11.         (T (if pos
12.              (progn
13.                (setq p 0)
14.                (repeat pos (setq p (vl-string-search ";" paths (1+ p))))
15.              )
16.            )
17.            (if p
18.              (setq paths (strcat (substr paths 1 p) ";" path ";" (substr paths (+ p 2))))
19.              (setq paths (strcat paths ";" path ";"))
20.            )
21.         )
22.   )
23.   (setenv "ACAD" paths)
24. )

;;____________________________________________________________________________________________________ ;; ▓ (lt:acad-SupportPath-add path position) ;; [功能] 在支持路径的指定位置添加新路径 ;; [参数] path-------新增路径 ;;        position---插入位置序号(大于等于 0 的整形数、T 或 nil) ;; [返回] 成功--->添加后的支持路径，反之--->nil (defun lt:acad-SupportPath-add (path pos / paths p)   (setq paths (getenv "ACAD"))   (cond ((or (= pos T) (= pos 0)) (setq paths (strcat path ";" paths)))         (T (if pos              (progn                (setq p 0)                (repeat pos (setq p (vl-string-search ";" paths (1+ p))))              )            )            (if p              (setq paths (strcat (substr paths 1 p) ";" path ";" (substr paths (+ p 2))))              (setq paths (strcat paths ";" path ";"))            )         )   )   (setenv "ACAD" paths) )

tsangbee

没错.

比如我将块文件放入E盘，但那里不是CAD指定的搜索路径。

能否不用程序，在CAD菜单中设置。。。。

caoyin

OPTIONS->文件->支持文件搜索路径

点“添加”按钮

tsangbee

谢谢啊~~~~~