自动加载并运行LSP

gaics

bai2000 发表于 2020-4-27 16:43
"一个替换图纸版本的LISP",谁有？常打不开不专业人员传的2020版cad文件，太麻烦的，

低版本打不开高版本的图纸，那也不能转换吧？没试过

gaics

erlong 发表于 2020-4-27 16:25
经测试CAD2019可用， CAD2014会出现致命错误。再请教下：
(defun c:tt(/ p1 p2)括号里加P1 P2 和不加有 ...

完全看不懂你这程序是要干嘛。给图框改版本号？A版改B版？图框是块参照？版本号是属性字？

太难猜

erlong

gaics 发表于 2020-4-27 21:31
完全看不懂你这程序是要干嘛。给图框改版本号？A版改B版？图框是块参照？版本号是属性字？

太难猜

作用是把此处的A改成B，考虑到有的图纸中A和其他部分是个块，所以要炸开。另外图框的大小有不一样的，要通过EXTMAX来定位。

erlong

bai2000 发表于 2020-4-27 16:43
"一个替换图纸版本的LISP",谁有？常打不开不专业人员传的2020版cad文件，太麻烦的，

可以使用Acme CAD Converter

gaics

erlong 发表于 2020-4-28 08:29
作用是把此处的A改成B，考虑到有的图纸中A和其他部分是个块，所以要炸开。另外图框的大小有不一样的， ...

感觉你的思路有点复杂了。建议发图上来看看。一个文件一张图？

erlong

1个文件1张图，有几百张

erlong

gaics 发表于 2020-4-28 11:17
感觉你的思路有点复杂了。建议发图上来看看。一个文件一张图？

1个文件1张图，有几百张

gaics

erlong 发表于 2020-4-28 11:25
1个文件1张图，有几百张

用脚本，批处理

erlong

gaics 发表于 2020-4-28 11:31
用脚本，批处理

感谢回复了这么多。我就是不知道怎么使用批处理脚本，能不能给个思路

gaics

erlong 发表于 2020-4-28 13:58
感谢回复了这么多。我就是不知道怎么使用批处理脚本，能不能给个思路

1、在记事本里写入下面的代码保存为bat格式文件。
dir *.dwg /s /b > list.txt
2、把上面的bat文件放在要处理的dwg文件夹内，双击运行，获取所有dwg文件的地址+文件名。如下：
D:\目录\01.dwg
D:\目录\02.dwg
......
3、借助excel生成以下文本，放入记事本中保存，后缀名改为scr，即脚本文件：
open D:\目录\01.dwg ab qsave close
open D:\目录\02.dwg ab qsave close
.......
其中ab是你的lisp命令，提前加入cad启动项。去除lisp里面的保存和关闭功能，因为脚本文件已经包含。
4、CAD中运行script命令，打开scr文件，开始批处理。scr文件需要放在CAD支持搜索路径中。