Autolisp删除文件夹

ou67169488

Autolisp 删除文件夹方法（这个库也可以同时用于删除文件。）

Autolisp 本身并没有提供直接删除文件夹的函数。为了解决这一问题，我写了一个库，使得可以通过 Autolisp 直接调用 DLL 来删除文件夹。

适用版本：

• DeleteDir3.5.dll 适用于 CAD 2010至2013
• DeleteDir4.5.dll 适用于 CAD 2014及以上版本
• 调用方法： 使用 (DeleteDir filepath) 函数，其中 filepath 为您想要删除的文件夹或文件的路径。
  返回值： 操作完成后，函数会返回以下值之一：
  
  
  • 成功删除 - 文件夹或文件已成功删除
  • 文件被占用 - 文件夹或文件当前被其他程序占用
  • 文件不存在 - 指定的路径不存在文件夹或文件
    
  
  
  
• 
  
  

  2. ; 加载 DLL 文件
     
  3. (defun c:LoadDeleteDir ()
     
  4.   (vl-load-com)
     
  5.   (setq filepath "C:\\path\\to\\directory") ; 设置文件夹路径
     
  6.   (command "_netload" "DeleteDir3.5.dll")   ; 加载对应版本的 DLL
     
  7.   (DeleteDir filepath)                       ; 调用函数删除文件夹
     
  8. )
     
  9. 
     
  10. ; 调用示例
      
  11. (c:LoadDeleteDir)
      

  ; 加载 DLL 文件<br /> (defun c:LoadDeleteDir ()<br />   (vl-load-com)<br />   (setq filepath "C:\\path\\to\\directory") ; 设置文件夹路径<br />   (command "_netload" "DeleteDir3.5.dll")   ; 加载对应版本的 DLL<br />   (DeleteDir filepath)                       ; 调用函数删除文件夹<br /> )<br /> <br /> ; 调用示例<br /> (c:LoadDeleteDir)<br />
  
  

p-3-ianlcc

满不错的…构想
下载来试试看
谢谢您的分享！

mokson

lisp 可以调用 SFO 对象（Scripting.FileSystem Object），实现删除文件/文件夹

tryhi

感谢楼主分享，不过有一个内部函数叫“rmdir”，用于删除文件夹
示例：
(try-load-hide-fun "rmdir")
(rmdir "C:\\Users\\tryhi\\Desktop\\a\\1")


如何加载看这里：[源码] 激活系统隐藏的函数

ou67169488

tryhi 发表于 2024-5-7 11:48
感谢楼主分享，不过有一个内部函数叫“rmdir”，用于删除文件夹
示例：(rmdir "C:\%users\\tryhi\\Desktop ...

这个也是个解决思路，这个隐藏得太深了

ou67169488

mokson 发表于 2024-5-7 10:58
lisp 可以调用 SFO 对象（Scripting.FileSystem Object），实现删除文件/文件夹

确实是可以实现的方式，涨姿势了