[LISP程序]：一个可以把一个目录下的所有图形文件合并成一个文件的程序
因为我们工作中每个工程有很多卷册，每个卷册有很多张图纸。我就编了一个合并许多图纸为一个文件的程序。
按图形文件名大小排成一行。小号在前。
1。把所有的要合并文件放在一个目录下。
2。鼠标双击打开这个目录下的任意一张图纸。
3。加载这个LISP程序。
4。命令行输入“HEBING”回车。
5。任意选择这个目录下的文件（不是DWG也可以，嘿嘿。）。
6。最后结果为合并结果.dwg
感谢eachy，ll_j，cy956，陌生人。他们教会了我QAFLAGS这个变量。
这个程序我还是用得比较多的。
有兴趣的，可以下载看一下。 我是第一个下载的，我一定要向你好好学习，也向上面的几位长老与斑竹学习。
谢谢你提供！
你怎么发了两个？
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
<tr>
<td width="100%" height="489">
<iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&goto=newpost&threadid=145164">
浏览器不支持嵌入式框架或配置为不显示嵌入式框架
</iframe>
</td>
</tr>
</table>
前边那个是提问的，不算数，这个才是改良版。
学习谈不上，互相提高才是根本的。 谢谢楼主，收藏了，辛苦了！ 谢谢共享！
我这怎么用不了，有这样的提示：
Command: hebing
Unknown command "Y".Press F1 for help.
错误: null function
nil*Cancel* 去掉64行的"y"即可。当然不改也可以。
你是不是没等这个程序运行完毕就强行退出？？？还是运行的是R14版？ Command: hebing
Unknown command "Y". Press F1 for help.
错误: null function
nil*Cancel*
我用的是14版,也是楼上的情况,难道不行吗?
2002能用,需要等待 我用的2004版本，没法用，出现的提示如下：
命令: hebing
无效的选项关键字。
当前文件格式: AutoCAD 2004 图形
输入文件格式 <2004>: 2000
图形另存为 <C:\Program Files\LiZheng\LAr2004\1.dwg>: 0 回8楼，这是因为2004存不成R14，你可以把程序内的"r14"改为"2004"
(因为我们有时用到R14的图形文件。) 楼主的附件呢？ 升级 丢失了？ 没有程式，哪位好心人可以贴上来啊。 哪里有的下载啊 tanjurun 发表于 2019-1-23 22:12
哪里有的下载啊
我也想要这个。 看下大神代码是否能够满足我需求 看不到下载地方
页:
[1]
2