[LISP程序]：一个可以把一个目录下的所有图形文件合并成一个文件的程序

张世杰

因为我们工作中每个工程有很多卷册，每个卷册有很多张图纸。
我就编了一个合并许多图纸为一个文件的程序。
按图形文件名大小排成一行。小号在前。
1。把所有的要合并文件放在一个目录下。
2。鼠标双击打开这个目录下的任意一张图纸。
3。加载这个LISP程序。
4。命令行输入“HEBING”回车。
5。任意选择这个目录下的文件（不是DWG也可以，嘿嘿。）。
6。最后结果为  合并结果.dwg
感谢eachy，ll_j，cy956，陌生人。他们教会了我QAFLAGS这个变量。
这个程序我还是用得比较多的。
有兴趣的，可以下载看一下。

lt_zzy

我是第一个下载的，我一定要向你好好学习，也向上面的几位长老与斑竹学习。
谢谢你提供！

你怎么发了两个？

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&goto=newpost&threadid=145164">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

张世杰

前边那个是提问的，不算数，这个才是改良版。
学习谈不上，互相提高才是根本的。

andyhua5240

谢谢楼主，收藏了，辛苦了！

hnfsf

谢谢共享！
我这怎么用不了，有这样的提示：
Command: hebing
Unknown command "Y".  Press F1 for help.

错误: null function
nil*Cancel*

张世杰

去掉64行的"y"即可。当然不改也可以。
你是不是没等这个程序运行完毕就强行退出？？？还是运行的是R14版？

jxsqq

Command: hebing
Unknown command "Y". Press F1 for help.

错误: null function
nil*Cancel*

我用的是14版,也是楼上的情况,难道不行吗?
2002能用,需要等待

ywx0576

我用的2004版本，没法用，出现的提示如下：

命令: hebing

无效的选项关键字。

当前文件格式: AutoCAD 2004 图形
输入文件格式 [2000(LT2000)/2004/标准(S)/DXF/样板(T)] <2004>: 2000
图形另存为 <C:\Program Files\LiZheng\LAr2004\1.dwg>: 0

张世杰

回8楼，这是因为2004存不成R14，你可以把程序内的"r14"改为"2004"
(因为我们有时用到R14的图形文件。)

口味虾

楼主的附件呢？ 升级 丢失了？

sicky111

没有程式，哪位好心人可以贴上来啊。

tanjurun

哪里有的下载啊

sicky111

tanjurun 发表于 2019-1-23 22:12
哪里有的下载啊

我也想要这个。

boss20022006

看下大神代码是否能够满足我需求

杨张张

看不到下载地方