[LISP函数]：獲取CAD的支持路徑列表

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;獲取CAD的支持路徑列表
   
5. (defun th-get-surportpath (/ path pathlst path-n pos)
   
6.   (setq path (getenv "ACAD"))
   
7.   (while (setq pos (vl-string-position (ascii ";") path))
   
8.     (setq path-n (substr path 1 pos)
   
9.           path (substr path (+ 2 pos))
   
10.           pathlst (cons path-n pathlst)
    
11.     )
    
12.   )
    
13.   (acad_strlsort pathlst)
    
14. )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;獲取CAD的支持路徑列表<br /> (defun th-get-surportpath (/ path pathlst path-n pos)<br />   (setq path (getenv "ACAD"))<br />   (while (setq pos (vl-string-position (ascii ";") path))<br />     (setq path-n (substr path 1 pos)<br />           path (substr path (+ 2 pos))<br />           pathlst (cons path-n pathlst)<br />     )<br />   )<br />   (acad_strlsort pathlst)<br /> )<br />   [/FONT]<br />

176489156

谢谢楼主  做什么用的

njutfyj

不错，学习了

690994

收藏了

yjch

谢谢tanger.都是基础函数

wzg356

后来才发现

laiz3000

先收藏了:)