转载：直接解压ZIP文件

yanshengjiang

https://www.theswamp.org/index.php?topic=58631.0

1. (Defun EXTRACTZIP (ZIP DIR DEL / FSO SRC TAR)
   
2.   (and (null DIR)
   
3.        (setq DIR (vl-filename-mktemp))
   
4.        (vl-mkdir DIR)
   
5.   )
   
6.   (and (findfile ZIP)
   
7.        (vl-file-directory-p DIR)
   
8.        (setq FSO (vlax-create-object "Shell.Application")
   
9.              TAR (vlax-invoke-method FSO "NameSpace" DIR)
   
10.        )
    
11.        (setq SRC (vlax-invoke-method FSO "NameSpace" ZIP)
    
12.              SRC (vlax-invoke SRC "Items")
    
13.        )
    
14.        (vlax-invoke-method TAR "CopyHere" SRC 20)
    
15.   )
    
16.   (and DEL (vl-file-delete ZIP))
    
17.   (and FSO (vlax-release-object FSO))
    
18. )

(Defun EXTRACTZIP (ZIP DIR DEL / FSO SRC TAR)<br />   (and (null DIR)<br />        (setq DIR (vl-filename-mktemp))<br />        (vl-mkdir DIR)<br />   )<br />   (and (findfile ZIP)<br />        (vl-file-directory-p DIR)<br />        (setq FSO (vlax-create-object "Shell.Application")<br />              TAR (vlax-invoke-method FSO "NameSpace" DIR)<br />        )<br />        (setq SRC (vlax-invoke-method FSO "NameSpace" ZIP)<br />              SRC (vlax-invoke SRC "Items")<br />        )<br />        (vlax-invoke-method TAR "CopyHere" SRC 20)<br />   )<br />   (and DEL (vl-file-delete ZIP))<br />   (and FSO (vlax-release-object FSO))<br /> )

kozmosovia

rar不是windows内置支持的压缩格式，必须用7z或者inwrar等软件解压。

yanshengjiang

AI给了一段解压带密码的  居然成功了  不敢相信

1. (Defun EXTRACTZIP (ZIP DIR DEL PASSWD / cmd ret)
   
2.   ;; 处理和准备目录（这部分逻辑与原代码相同）
   
3.   (and (null DIR)
   
4.        (setq DIR (vl-filename-mktemp))
   
5.        (vl-mkdir DIR)
   
6.   )
   
7.   ;; 核心：构建并执行命令行
   
8.   (if (and (findfile ZIP) (vl-file-directory-p DIR))
   
9.     (progn
   
10.       ;; 构建7z命令字符串
    
11.       (setq cmd (strcat "7z x \""
    
12.                         (findfile ZIP)  ; 确保使用完整路径
    
13.                         "\" -p" PASSWD  ; -p 参数指定密码
    
14.                         " -o\"" DIR "\" -y"  ; -o 指定输出目录，-y 表示全部同意
    
15.              )
    
16.       )
    
17.       ;; 执行命令。返回值ret为0通常表示成功
    
18.       (setq ret (vlax-invoke-method (vlax-create-object "WScript.Shell") "Run" cmd 0 :vlax-true))
    
19.       
    
20.       (if (= ret 0)
    
21.         (princ (strcat "\n解压成功！文件位于: " DIR))
    
22.         (princ "\n解压失败！请检查密码是否正确，或ZIP文件是否损坏。")
    
23.       )
    
24.       ;; 根据DEL参数决定是否删除原ZIP文件
    
25.       (and DEL (vl-file-delete ZIP))
    
26.     )
    
27.     (princ "\n错误：未找到ZIP文件或目标目录无效。")
    
28.   )
    
29.   (princ) ; 静默退出
    
30. )
    
31. &#8203;使用此方法前的准备工作：&#8203;&#8203;
    
32. 
    
33. &#8203;安装7-Zip&#8203;：确保您的计算机上安装了7-Zip。
    
34. 
    
35. &#8203;确认命令可用&#8203;：在Windows的命令提示符（CMD）中直接输入7z，如果能看到帮助信息，说明可以直接调用。如果不行，可能需要提供7z.exe的完整路径（例如"C:\\Program Files\\7-Zip\\7z.exe"）来替换上面命令中的7z。
    
36. 
    
37. 改进后，您可以这样调用函数（假设密码为mypassword）：
    
38. 
    
39. autolisp
    
40. 复制
    
41. (EXTRACTZIP "C:\\example.zip" "D:\\output" nil "mypassword")

(Defun EXTRACTZIP (ZIP DIR DEL PASSWD / cmd ret)<br />   ;; 处理和准备目录（这部分逻辑与原代码相同）<br />   (and (null DIR)<br />        (setq DIR (vl-filename-mktemp))<br />        (vl-mkdir DIR)<br />   )<br />   ;; 核心：构建并执行命令行<br />   (if (and (findfile ZIP) (vl-file-directory-p DIR))<br />     (progn<br />       ;; 构建7z命令字符串<br />       (setq cmd (strcat "7z x \""<br />                         (findfile ZIP)  ; 确保使用完整路径<br />                         "\" -p" PASSWD  ; -p 参数指定密码<br />                         " -o\"" DIR "\" -y"  ; -o 指定输出目录，-y 表示全部同意<br />              )<br />       )<br />       ;; 执行命令。返回值ret为0通常表示成功<br />       (setq ret (vlax-invoke-method (vlax-create-object "WScript.Shell") "Run" cmd 0 :vlax-true))<br />       <br />       (if (= ret 0)<br />         (princ (strcat "\n解压成功！文件位于: " DIR))<br />         (princ "\n解压失败！请检查密码是否正确，或ZIP文件是否损坏。")<br />       )<br />       ;; 根据DEL参数决定是否删除原ZIP文件<br />       (and DEL (vl-file-delete ZIP))<br />     )<br />     (princ "\n错误：未找到ZIP文件或目标目录无效。")<br />   )<br />   (princ) ; 静默退出<br /> )<br /> &#8203;使用此方法前的准备工作：&#8203;&#8203;<br /> <br /> &#8203;安装7-Zip&#8203;：确保您的计算机上安装了7-Zip。<br /> <br /> &#8203;确认命令可用&#8203;：在Windows的命令提示符（CMD）中直接输入7z，如果能看到帮助信息，说明可以直接调用。如果不行，可能需要提供7z.exe的完整路径（例如"C:\\Program Files\\7-Zip\\7z.exe"）来替换上面命令中的7z。<br /> <br /> 改进后，您可以这样调用函数（假设密码为mypassword）：<br /> <br /> autolisp<br /> 复制<br /> (EXTRACTZIP "C:\\example.zip" "D:\\output" nil "mypassword")

Bao_lai

很好，反过来压缩文件可好？

yanshengjiang

Bao_lai 发表于 2025-10-20 22:39
很好，反过来压缩文件可好？

诚然，deepseek一遍过

(defun ZIPFOLDER-7Z (sourceFolder targetZip / cmd ret)
  ;; 构建7z命令字符串。注意：请根据您电脑上7z的实际路径调整
  (setq cmd (strcat
              "7z a -tzip \""   ; a: 添加文件到压缩包 -tzip: 指定为zip格式
              targetZip
              "\" \""
              sourceFolder
              "\\*\" -r"         ; 压缩源文件夹下的所有内容(-r表示递归子目录)
            )
  )
  ;; 执行命令
  (setq ret (vlax-invoke-method (vlax-create-object "WScript.Shell") "Run" cmd 0 :vlax-true))
  (if (= ret 0)
    (princ (strcat "\n使用7z压缩成功！文件位于: " targetZip))
    (princ "\n压缩失败，请检查7z是否安装或命令是否正确。")
  )
  (princ)
)


(ZIPFOLDER-7Z "C:\\标准DLTB转CASS模板_FME工具(yan修改)2024-07-15" "D:\\MyProject.zip")

yanshengjiang

有没有，未安装7z的试试

使用此方法前，请确保您的计算机上已安装了 7-Zip软件，并且其命令行工具 7z.exe的路径已添加到系统的环境变量PATH中。如果没有，需要在命令中指定完整路径，例如：

"C:\\Program Files\\7-Zip\\7z.exe" a ...。

guosheyang

rar文件好像不能解压呢  即使后缀改为zip也不行

guosheyang

kozmosovia 发表于 2025-10-21 16:45
rar不是windows内置支持的压缩格式，必须用7z或者inwrar等软件解压。

好的  谢谢！

cren1128

跑过来瞅瞅