tsangbee 发表于 2008-11-28 15:14:00

如何设置CAD访问路径？

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

caoyin 发表于 2008-11-28 15:31:00

你说的访问路径是不是搜索路径
;;____________________________________________________________________________________________________
;; ▓ (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 发表于 2008-11-28 15:40:00

<p>没错.</p><p>比如我将块文件放入E盘，但那里不是CAD指定的搜索路径。</p><p>能否不用程序，在CAD菜单中设置。。。。</p>

caoyin 发表于 2008-11-28 16:50:00

<p>OPTIONS-&gt;文件-&gt;支持文件搜索路径</p><p>点“添加”按钮</p>

tsangbee 发表于 2008-11-28 17:33:00

谢谢啊~~~~~
页: [1]
查看完整版本: 如何设置CAD访问路径？