利用powershell解压文件

sandyvs

如果是win10，win11就简单了


;[功能] 工具-解压zip文件（系统自带），(czx:uzipz fss path)
;[用法](czx:uzipz (getfiled "请选择压缩文件" "" "zip" 0) nil)
;[说明]fss = 要解压的文件完整路径//path = 解压路径，nil时与解压文件同目录//说明：只支持zip
(defun czx:uzipz (ffs path / cmd)
  (if (null path) (setq path (vl-filename-directory ffs)))
  (setq cmd (strcat
              "Expand-Archive -Path "
              "\'" ffs "\'"
              " -DestinationPath "
              "\'" path "\'"
              " -force";覆盖
              )
  )
  (czx:runps cmd nil)
)


(defun czx:RunPS (command flag / run)
  (setq shell (vlax-create-object "Shell.Application"))
  (if flag (setq run "runas") (setq run ""))
  (vlax-invoke-method
    shell
    'ShellExecute
    "powershell.exe"                  ; 程序路径
    (strcat "-Command \"" command "\"") ; 参数（需转义内部引号）
    ""                                ; 工作目录（空表示默认）
    run                           ; 动词，请求管理员权限
    0                                 ; 窗口模式（0= 隐藏 1=正常窗口）
  )
  (vlax-release-object shell)
)


大佬的帖子，http://bbs.mjtd.com/forum.php?mo ... hlight=%BD%E2%D1%B9
用dwx解压文件，需要系统注册  dynwrapx.dll和UnRAR64.dll。还提到了7z可以，试着弄了下，命令行工具7za，支持zip，7z等格式

;[功能] 工具-解压文件，(czx:uzip fss path)
;[用法](czx:uzip (getfiled "请选择压缩文件" "" "zip" 0) nil)
;[说明]fss = 要解压的文件完整路径//path = 解压路径，nil时与解压文件同目录//说明：支持zip，7z等格式
(defun czx:uzip (ffs path / 7zapath cmd)
        (setq 7zaPath (findfile "7ZA.exe")))
        (if  7zaPath
                (progn
                        (if (null path) (setq path (vl-filename-directory ffs)))
                        
                        (setq cmd (strcat
                                                                  "& \"" 7zaPath "\""
                                                                        " x "
                                                                        "\'" ffs "\'"
                                                                        " -o"
                                                                        "\'" path "\'"
                                                                        " -y";覆盖
                                                                        )
                        )
                        (czx:runps cmd nil)
                )
                (princ " \n 请将 7ZA.exe 放到CAD搜索路径！")
        )
)

WinRAR.exe也是可以的，powershell里面 "E:\桌面\WinRAR.exe" x "e:\桌面\2.zip" "e:\桌面"

至于用途，我是把插件用的的支持文件打一个压缩包，然后生成vlx，http://bbs.mjtd.com/forum.php?mo ... hlight=%B4%F2%B0%FC
需要的时候释放出来，再解压，把解压目录添加到搜索路径就行了

lxl217114

越玩越高级了，cad还可以做啥？

kozmosovia

ZIP不需要上powershell，FSO就能搞定了。