[求助]：如何把程序生成的文件保存在指定的路径下？

light_dream

我以前编写的程序在保存文件是多数采用外部命令如(command "shell" "write tj.dat")来保存文件，在底版本的CAD软件中一般文件保存在CAD软件的根目录下，但现在在使用ACAD2004时，发现保存的文件路径比较乱，这样在其它程序调用该文件时往往找不到该文件，不知大虾们有何高招？

netbee

使用示例：

2. 
   
3. ;;打开文件对话框
   
4. (defun file_name (dfile)
   
5.    (setq f_name (getfiled "生成文件名:" dfile "txt" 1))
   
6. ) ;_ end of defu
   
7. ;;关闭文件
   
8. (defun        f_close        ()
   
9.    (if f_id
   
10.      (close f_id)
    
11.    )
    
12.    (if f_id_xy
    
13.      (close f_id_xy)
    
14.    )
    
15. ) ;_ end of defun
    
16. ;;=========
    
17. ;;主程序开始-
    
18. (setini)
    
19. (if (setq tmp (getreal "\n 生成比例<1000>："))
    
20.   (setq NetBee_scale (/ 1000.0 tmp))
    
21.   (setq NetBee_scale 1000.0)
    
22. ) ;_ 结束if
    
23. (setq defile (strcat
    
24.                (getvar "DWGPREFIX")
    
25.                (vl-filename-base (getvar "DWGNAME"))
    
26.              )
    
27. )
    
28. (if (and (file_name defile)
    
29.          (setq f_name_xy (GHFname f_name "PXY"))
    
30.          (setq f_id (open f_name "w"))
    
31.     )
    
32.   (progn
    
33.     (setq f_id_xy nil)
    
34.     (create_Auto)
    
35.     (f_write0 (list (/ (cadr (car PList)) NetBee_scale)
    
36.                     (/ (car (car PList)) NetBee_scale)
    
37.               ) ;_ 结束list
    
38.     ) ;_ 结束f_write0
    
39.     (f_wr)
    
40.     (setq f_id_xy (open f_name_xy "w"))
    
41.     (princ PList f_id_xy)
    
42.   )
    
43.   (progn (princ "\n不能打开：")
    
44.          (princ f_name)
    
45.          (princ "或")
    
46.          (princ f_name_xy)
    
47.          (setq f_name nil
    
48.                f_name_xy nil
    
49.          )
    
50. 
    
51.   )
    
52. )
    
53. (f_close)
    

<br /> ;;打开文件对话框<br /> (defun file_name (dfile)<br />    (setq f_name (getfiled "生成文件名:" dfile "txt" 1))<br /> ) ;_ end of defu<br /> ;;关闭文件<br /> (defun        f_close        ()<br />    (if f_id<br />      (close f_id)<br />    )<br />    (if f_id_xy<br />      (close f_id_xy)<br />    )<br /> ) ;_ end of defun<br /> ;;=========<br /> ;;主程序开始-<br /> (setini)<br /> (if (setq tmp (getreal "\n 生成比例<1000>："))<br />   (setq NetBee_scale (/ 1000.0 tmp))<br />   (setq NetBee_scale 1000.0)<br /> ) ;_ 结束if<br /> (setq defile (strcat<br />                (getvar "DWGPREFIX")<br />                (vl-filename-base (getvar "DWGNAME"))<br />              )<br /> )<br /> (if (and (file_name defile)<br />          (setq f_name_xy (GHFname f_name "PXY"))<br />          (setq f_id (open f_name "w"))<br />     )<br />   (progn<br />     (setq f_id_xy nil)<br />     (create_Auto)<br />     (f_write0 (list (/ (cadr (car PList)) NetBee_scale)<br />                     (/ (car (car PList)) NetBee_scale)<br />               ) ;_ 结束list<br />     ) ;_ 结束f_write0<br />     (f_wr)<br />     (setq f_id_xy (open f_name_xy "w"))<br />     (princ PList f_id_xy)<br />   )<br />   (progn (princ "\n不能打开：")<br />          (princ f_name)<br />          (princ "或")<br />          (princ f_name_xy)<br />          (setq f_name nil<br />                f_name_xy nil<br />          )<br /> <br />   )<br /> )<br /> (f_close)<br />

wkai

2. 
   
3. (setq f (open "d:\\1.dat" "w"))
   
4. (write-line "123456789" f)
   
5. (close f)
   

<br /> (setq f (open "d:\\1.dat" "w"))<br /> (write-line "123456789" f)<br /> (close f)<br />

light_dream

感谢上述大虾的高见，那么怎么修改CAD2004的默认搜索路径呢？我曾尝试在CAD的“支持文件搜索路径”里添加一个路径，结果发现，CAD还是没法搜索到存放在该路径下的文件，好像它的默认路径总是在变化，和CAD2002以前的版本不同！不知各位有什么高见？请指教！