如何获得cad支持路径！

xialiang · 发表于 2010-12-27 09:59:50

多谢指点！

Gu_xl · 发表于 2010-12-27 10:02:43

(getenv "ACAD")

xialiang · 发表于 2010-12-27 10:25:17

谢谢啦！

xialiang · 发表于 2010-12-27 11:06:24

(getenv "ACAD")
好像有点问题！如果添加了许多支持路径好像不支持啊？

qcw911 · 发表于 2010-12-27 11:14:11

在op里面追加吧第一页里面

Gu_xl · 发表于 2010-12-27 11:14:19

回复 xialiang 的帖子

什么意思？

Gu_xl · 发表于 2010-12-27 11:25:58

用下面的函数添加支持路径

(defun gxl-StrParse (Str Delimiter / SearchStr StringLen return n char nn)
(setq SearchStr Str)
(setq StringLen (strlen SearchStr) nn StringLen)
(setq return '())
(while (> StringLen 0)
(setq n 1)
(setq char (substr SearchStr 1 1))
(while (and (/= char Delimiter) (<= n nn))
(setq n (1+ n))
(setq char (substr SearchStr n 1))
) ;_ end of while
(setq return (cons (substr SearchStr 1 (1- n)) return))
(setq SearchStr (substr SearchStr (1+ n) StringLen))
(setq StringLen (strlen SearchStr))
) ;_ end of while
(if (= " " Delimiter)
(setq return (vl-remove "" return))
)
(reverse return)
)
;;;==================================================================
;;;gxl-Sys-AddSupportPath 添加文件夹到AutoCAD支持搜索路径中的指定位置
;|功能
添加文件夹到AutoCAD支持搜索路径中的指定位置
参数
文件夹路径及插入的位置(0时插入前端)
示例
(gxl-Sys-AddSupportPath "c:\\mypath" 2)
注意
位置参数为空时将文件夹添加到路径最后。位置参数为0时将文件夹添加到路径最前端。
|;
;;;==================================================================
(defun gxl-Sys-AddSupportPath (dir pos / tmp c)
(setq tmp ""
c -1
)
(if (not pos)
(setq tmp (strcat (getenv "ACAD") ";" dir))
(mapcar '(lambda (x)
(setq tmp (if (= (setq c (1+ c)) pos)
(strcat tmp ";" dir ";" x)
(strcat tmp ";" x)
)
)
)
(gxl-StrParse (getenv "ACAD") ";")
)
)
(setenv "ACAD" tmp)
(princ)
)

(defun gxl-StrParse        (Str Delimiter / SearchStr StringLen return n char nn) 
        (setq SearchStr Str) 
        (setq StringLen (strlen SearchStr) nn StringLen) 
        (setq return '()) 
 
 
        (while (> StringLen 0) 
                (setq n 1) 
                (setq char (substr SearchStr 1 1)) 
                (while (and (/= char Delimiter) (<= n nn)) 
                        (setq n (1+ n)) 
                        (setq char (substr SearchStr n 1)) 
                ) ;_ end of while 
                (setq return (cons (substr SearchStr 1 (1- n)) return)) 
                (setq SearchStr (substr SearchStr (1+ n) StringLen)) 
                (setq StringLen (strlen SearchStr)) 
        ) ;_ end of while 
     (if (= " " Delimiter) 
       (setq return (vl-remove  "" return)) 
       ) 
        (reverse return) 
) 
;;;================================================================== 
;;;gxl-Sys-AddSupportPath 添加文件夹到AutoCAD支持搜索路径中的指定位置 
;|功能 
添加文件夹到AutoCAD支持搜索路径中的指定位置 
参数 
文件夹路径及插入的位置(0时插入前端) 
示例 
(gxl-Sys-AddSupportPath "c:\\mypath" 2) 
注意 
位置参数为空时将文件夹添加到路径最后。位置参数为0时将文件夹添加到路径最前端。 
|; 
;;;================================================================== 
 
(defun gxl-Sys-AddSupportPath (dir pos / tmp c) 
  (setq        tmp "" 
        c   -1 
  ) 
  (if (not pos) 
    (setq tmp (strcat (getenv "ACAD") ";" dir)) 
    (mapcar '(lambda (x) 
               (setq tmp (if (= (setq c (1+ c)) pos) 
                           (strcat tmp ";" dir ";" x) 
                           (strcat tmp ";" x) 
                         ) 
               ) 
             ) 
            (gxl-StrParse (getenv "ACAD") ";") 
    ) 
  ) 
  (setenv "ACAD" tmp) 
  (princ) 
)

xialiang · 发表于 2010-12-27 14:29:13

谢谢！！！！

前生 · 发表于 2021-8-23 15:49:24

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