[求助]如何得到abc.dat的完整的路径

yshf

[求助]如何得到abc.dat的完整的路径
各位高手，在硬盘中有一名为abc.dat的文件，它不位于AutoCAD的启动路径中，请问在LISP程序中如何得到(搜索到)它的完整路径名。

小伯乐

以前在网上找的，不记得是哪位大侠的作品了。需要Doslib支持。

2. 
   
3. ;;在硬盘上搜索文件
   
4. (defun search (pattern / filefound)
   
5.   (dos_waitcursor t)
   
6.   (command "modemacro" "正在搜索文件，请稍候...")
   
7.   (setq filefound (findfile pattern))
   
8.   (if (not filefound)
   
9.     (foreach drv (dos_drives)
   
10.       (if (setq found (dos_find (strcat drv "\" pattern)))
    
11. (setq filefound (append filefound found))
    
12. )
    
13.       )
    
14.     )
    
15.   (if (listp filefound)
    
16.     (setq filefound
    
17.     (vl-remove-if '(lambda (e) (wcmatch e "*\\RECYCLER\\*"))
    
18.     filefound
    
19.     )
    
20.    )
    
21.     )
    
22.   (dos_waitcursor)
    
23.   (command "modemacro" " ")
    
24.   filefound
    
25.   )
    

<br /> ;;在硬盘上搜索文件<br /> (defun search (pattern / filefound)<br />   (dos_waitcursor t)<br />   (command "modemacro" "正在搜索文件，请稍候...")<br />   (setq filefound (findfile pattern))<br />   (if (not filefound)<br />     (foreach drv (dos_drives)<br />       (if (setq found (dos_find (strcat drv "\" pattern)))<br /> (setq filefound (append filefound found))<br /> )<br />       )<br />     )<br />   (if (listp filefound)<br />     (setq filefound<br />     (vl-remove-if '(lambda (e) (wcmatch e "*\\RECYCLER\\*"))<br />     filefound<br />     )<br />    )<br />     )<br />   (dos_waitcursor)<br />   (command "modemacro" " ")<br />   filefound<br />   )<br />

xshrimp

Doslib?在那下载

小伯乐

到下载中心看看：http://p4.xdcad.net/down/show.php?id=169