【已解决】求一个CAD图批量转存低版本的lisp

ZCL-Maheal · 发表于 2019-4-29 11:45:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ZCL-Maheal 于 2019-5-9 10:58 编辑

高版本的CAD图纸用低版本打不开，需要用高版本的CAD转存为低版本的CAD后才能用低版本cad打开，但遇到大量图纸是一个一个转存很麻烦，现求一个能批量把高版本的CAD图纸转存为低版本的CAD图的插件。谢谢！

newer · 发表于 2019-4-29 11:47:29

这东西，用工具
搜索 cad convert
AcmeCAD Convert 2019 （快速转换CAD各版本及批量生成PDF）

6 个回复 - 132 次查看

2019-1-11 19:02 - Lisphk - 软件资源交流

ZCL-Maheal · 发表于 2019-4-29 19:22:40

问题已解决，感谢newer老师！

王鹏_pBZlo · 发表于 2019-4-29 19:57:21

本帖最后由王鹏_pBZlo 于 2019-4-29 20:07 编辑

以2008保存成2004为例
假定2008的CAD安装在C:\Program Files\AutoCAD 2008\
1) 在d:创建目录d:\temp,把文件复制到该目录,在该目录下再创建目录d:\temp\2004
2) 把下面代码复制到文件"C:\Program Files\AutoCAD 2008\Support\acad2008.lsp"最后
(if (= "D:\\TEMP\\" (strcase (getvar "dwgprefix")))
      (progn       (command "saveas" "2004" (strcat "d:\\temp\\2004\\" (getvar "dwgname")))
            (command "quit")
      )
)
3) 打开cad2004,加载下面的代码后,执行命令tt
(defun c:tt( / dwglist i)
      (setq dwglist (vl-directory-files "d:\\temp" "*.dwg" 0))
      (setq i 0)
      (while (setq cdwg (nth i dwglist))
            (startapp "C:\\Program Files\\AutoCAD 2008\\acad.exe" (strcat "\"d:\\temp\\" cdwg "\""))
            (while (not (findfile (strcat "d:\\temp\\2004\\" cdwg))) (princ))
            (setq i (1+ i))
      )
      (princ)
)

4) d:\temp目录下的文件将由acad2008依次打开并以2004版本保存到d:\temp\2004

newer · 发表于 2019-4-29 20:21:57

ZCL-Maheal 发表于 2019-4-29 19:22
问题已解决，感谢newer老师！

问题解决，请编辑下主题，前面粘贴上【已解决】

账号		自动登录	找回密码
密码			立即注册

[已解决] 【已解决】求一个CAD图批量转存低版本的lisp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

求一个CAD图批量转存低版本的lisp(已解决)

点评