[求助]：请问有这样的插图程序吗？

cnnets

请问一下，我想将某目录下的N个DWG文件快速合并到另一个新的DWG文件中去，且要不重叠，也不要离得太开，要比例不变。有这样的Lisp或ARX程序吗？用在R14及R2002环境下。先谢谢了。

coolzhb

最初由 cnnets 发布
[B]请问一下，我想将某目录下的N个DWG文件快速合并到另一个新的DWG文件中去，且要不重叠，也不要离得太开，要比例不变。有这样的Lisp或ARX程序吗？用在R14及R2002环境下。先谢谢了。 [/B]

还是请xd等高手出马写一个程序吧，好像我批量插图的，但我没用过。

zhqchn

试一试CadAssis看

“不重叠，也不要离得太开”，你可在Excel中通过制定插入点满足！
“要比例不变”，只需在SCR面板中填写"1"、"1"就完了！

若文件名没有规律，也可用 PLgis 提供的方法得到

[QOUTE]关于文件名文件
第11楼的朋友说，"如果有几百张图的话，编辑fname这个文件工作量也太大了"
实际上，使用DOS命令dir可方便地得到所需的"文件名文件":
dir *.dwg/b>fname.txt
其中的fname.txt可以是任意合法的文件名
这工作量就不算大了，只需n秒[/QOUTE]

cnnets

CadAssis在哪下载啊？能上传吗？谢谢。

bluejan

我原来都是用块插入的，没想到还有这种方法，回去试试

cnnets

刚下载试过，我在R14内不行，要R200X以上的吗？

adian2000

某目录下的N个DWG文件快速合并到另一个新的DWG文件

让我们来看看不要程序如何实现，其实只要对excel会用和autolisp的一点点知识（这个不难吧）就可以了。这个办法可是适用于autocadR2.6……autocad 3000版（但愿到那时我还在）

excel的要求：会对各列的数据进行字符运算（简单），
autolisp的知识：了解（command “函数名称”）就可以了。

2. 
   
3.   [FONT=courier new]
   
4. 下面我们开始了：
   
5. 
   
6. 1、在第一行的各个单元格中分别填入文字（按照A,B,C,D,E,F,G的顺序，以下同这里）：
   
7. filename，X_Position，Y_Position，X_Scale，Y_Scale，Ang_Rotate，Command_String
   
8. 
   
9. 2、第一行的内容应该很清楚了，就是不同参数的名称，因此，从第二行开始就是输入不同的参数，其中文件名可以用
   
10. ”DIR /s/b>filename.txt“的命令得到，将文件filename.txt打开，copy & Paste到excel中来就可以了。
    
11. （注意：/s的参数在xp下可以得到全路径的文件名称，不知道在其他操作系统中是否也是如此，请帮忙查证。）
    
12. 反正文件名是如何得到我不管了。
    
13. 
    
14. 3、现在的关键来了，就是如何得到Command_String中的内容，请仔细看好了。在G2单元格里面填入下面的公式：
    
15. ="(command ""-insert"" " & A2 & " """ & B2 & "," & C2 & """ " & D2 & " " & E2 & " " & F2 & " " & ")"
    
16. 注意了，其中的空格和三个（“”“）引号不能变哟。然后把G2的单元格往下一填充，就可以得到每一个的插入命令了。
    
17. 下面是一个例子的数据：
    
18. 其中A2到F2的数据为：
    
19. "d:\\test\\test_a1.dwg"  50        50        1        1        0
    
20. 然后G2中得到的字符串为：
    
21. (command "-insert" "d:\\test\\test_a1.dwg" "50,50" 1 1 0 )
    
22. 4、将上面得到的命令复制到记事本中，保存为以”.SCR“为后缀的文件就可以了。
    
23. 
    
24. 5、在AutoCAD中新开一张图（你应该会吧），然后执行”SCRIPT“命令，然后将刚才保存的”×××××.SCR“文件给它。
    
25. 你看到了什么？不要告诉我没有看到哟。
    
26. 
    
27. 6、大功告成！但是不要忘记了这个过程哟。其实我们灵活地运用，不需要编程也能完成许多的工作。
    
28. 你能够在其他的方面也灵活的运用吗？不然我就白写了这么多了。
    
29. 
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> 下面我们开始了：<br /> <br /> 1、在第一行的各个单元格中分别填入文字（按照A,B,C,D,E,F,G的顺序，以下同这里）：<br /> filename，X_Position，Y_Position，X_Scale，Y_Scale，Ang_Rotate，Command_String<br /> <br /> 2、第一行的内容应该很清楚了，就是不同参数的名称，因此，从第二行开始就是输入不同的参数，其中文件名可以用<br /> ”DIR /s/b>filename.txt“的命令得到，将文件filename.txt打开，copy & Paste到excel中来就可以了。<br /> （注意：/s的参数在xp下可以得到全路径的文件名称，不知道在其他操作系统中是否也是如此，请帮忙查证。）<br /> 反正文件名是如何得到我不管了。<br /> <br /> 3、现在的关键来了，就是如何得到Command_String中的内容，请仔细看好了。在G2单元格里面填入下面的公式：<br /> ="(command ""-insert"" " & A2 & " """ & B2 & "," & C2 & """ " & D2 & " " & E2 & " " & F2 & " " & ")"<br /> 注意了，其中的空格和三个（“”“）引号不能变哟。然后把G2的单元格往下一填充，就可以得到每一个的插入命令了。<br /> 下面是一个例子的数据：<br /> 其中A2到F2的数据为：<br /> "d:\\test\\test_a1.dwg"  50        50        1        1        0<br /> 然后G2中得到的字符串为：<br /> (command "-insert" "d:\\test\\test_a1.dwg" "50,50" 1 1 0 )<br /> 4、将上面得到的命令复制到记事本中，保存为以”.SCR“为后缀的文件就可以了。<br /> <br /> 5、在AutoCAD中新开一张图（你应该会吧），然后执行”SCRIPT“命令，然后将刚才保存的”×××××.SCR“文件给它。<br /> 你看到了什么？不要告诉我没有看到哟。<br /> <br /> 6、大功告成！但是不要忘记了这个过程哟。其实我们灵活地运用，不需要编程也能完成许多的工作。<br /> 你能够在其他的方面也灵活的运用吗？不然我就白写了这么多了。<br /> <br />   [/FONT]<br />

写的真是麻烦，可惜在外面出差，没有办法给一个演示。这个工作就请版主代劳了吧。
顺便给我加一些积分和￥￥￥￥￥（我不会嫌多的）。

zxj1120

看来你们真是高手啊，不过有一点奇怪，你们一般的设计工作不忙吗？我一般都没有这样的时间来研究这样的东西啊，每天忙得半死，设计工期是催了又催啊，55555555555

zhqchn

最初由 adian2000 发布
[B]某目录下的N个DWG文件快速合并到另一个新的DWG文件

让我们来看看不要程序如何实现，其实只要对excel会用和autolisp的一点点知识（这个不难吧）就可以了。这个办法可是适用于autocadR2.6……autocad 3000版（但愿?.. [/B]

我以前就是采用这种方法插图的，后来写CadAssis-->SCR，是为了简化步骤，操作更方便。

To cnnets ：我这里没有R14，你能把命令行的出错提示贴出来看一下吗？如果急，可以先用adian2000 介绍的方法。

adian2000

这个你就不明白了，我除了画图外，还兼有培训和开发的任务，所以要钻研一下。

zhqchn

每个人都有自己的工作要忙，我做设计很少知道哪天已是周末了，这些天也常常要到十点十一点，但我有兴趣，在忙也要看看XDcad，看看lisp

cnnets

最初由 zhqchn 发布
[B][QUOTE]最初由 adian2000 发布
[B]某目录下的N个DWG文件快速合并到另一个新的DWG文件

让我们来看看不要程序如何实现，其实只要对excel会用和autolisp的一点点知识（这个不难吧）就可以了。这个办法可是适... [/B]

呵呵，我按照你的步骤去做，最后按“DRAW”，却什么也没有，命令行也没什么显示，只是按了“DRAW”后，当前窗口转到ACAD。其它功能没问题，谢谢了。

zhqchn

[B]
呵呵，我按照你的步骤去做，最后按“DRAW”，却什么也没有，命令行也没什么显示，只是按了“DRAW”后，当前窗口转到ACAD。其它功能没问题，谢谢了。
[/B]

cnnets：据你的描述我估计是你在按“DRAW”之前没有在Excel中选中需要的单元格，本程序只处理当前工作表的选中区域的内容！若没有选中区域，就会出现你说的情况。

lxch

谢谢各位的指教，太增长知识，开阔眼界。

cnnets

最初由 zhqchn 发布
[B]

cnnets：据你的描述我估计是你在按... [/B]

有选呀，都是按你说的步骤去做的，就是不行。但还是谢谢你的程序。