[LISP程序]：R14中用LISP如何删除一个文件？

pckite

R14中用LISP如何删除一个文件？我搜索了本论坛的相关资料，好像在R14中用那些方法都不行啊？哪些好心人知道呢？

wkai

用dos名令

2. 
   
3. (defun del_file        (filename)
   
4.   (setq fn (open "tmp.bat" "w"))
   
5.   (write-line (strcat "del %1" ) fn)
   
6.   (close fn)
   
7.   (startapp "tmp.bat" filename)
   
8. )
   
9. (defun c:tt ()
   
10.   (del_file "c:\\1.txt")
    
11. )

<br /> (defun del_file        (filename)<br />   (setq fn (open "tmp.bat" "w"))<br />   (write-line (strcat "del %1" ) fn)<br />   (close fn)<br />   (startapp "tmp.bat" filename)<br /> )<br /> (defun c:tt ()<br />   (del_file "c:\\1.txt")<br /> )

pckite

好像不行啊？运行不下去？

ll_j

直接使用 (command "sh" "del c:\\1.txt") 试试。

pckite

试了好多方法，可就是没能把文件删除啊！！救救我啊

在AutoCAD 2004下面　(command "DEL" "c:\\test.txt")　没问题，可在R14下手工输入del命令也可以，但用与2004同样的LISP程序却不能删除文件，为什么？有谁能解决吗？谢谢了

梦断江南

楼上的,是不是2004的pgp里面没有定义好 del 啊?
DEL,       DEL,            0,File to delete: ,

下面的for 200x
(vl-file-delete filename)

Arguments

filename

A string containing the name of the file to be deleted. If you do not specify a full path name, vl-file-delete searches the AutoCAD startup directory.

Return Values

T if successful; nil if delete failed.

Examples

Delete newauto.bat:

_$ (vl-file-delete "newauto.bat")
nil
Nothing was deleted because there is no newauto.bat file in the AutoCAD startup directory.

Delete the newauto.bat file in the c:\ directory:

_$ (vl-file-delete "c:/newauto.bat")
T
The

aidraft

try the following lines

(setq fname "E:\\TEST.DWG")
(setq cmd (strcat "DEL " fname))
(command "SHELL" cmd)

zxq0220

在R14版上用(command "del" "文件名")可以删除指定文件。
但文件名长度不能超过DOS规定的8个字符！

pckite

哦，怪不得，文件名太长了，谢谢　了！！！！