【求助】求一个lisp程序，可以把一个文件夹下的所有dwg文件内容放到一张图纸上

vivi8543

如题，把一个文件夹下的所有dwg文件内容放到一张图纸上， 并保持坐标不变。

我主要是把多图内容放在一起进行归并文字。

期待有高手帮我编一个，小弟万分感谢！

ZZXXQQ

不明白归并文字如何操作。
可以采用外部参照的办法将文件夹下的DWG文件按坐标(0,0)插入。

vivi8543

楼上误解了，归并的工作我自己已经做了

我是想要归并前的前处理程序，即“把一个文件夹下的所有dwg文件内容放到一张图纸上， 并保持坐标不变”

当然，CAD里的粘贴到原坐标命令也可以实现，但如果图纸数量较多时，工作量也比较大，所以才想要一个可以自动前处理的程序。

ZZXXQQ

这样试试看

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

vivi8543

感谢楼主的程序，版主就是厉害啊

纠正几个地方，一个是vl-looad-com多了个o

一个是"*.lsp" 应该是"*.dwg"

还有一个是“(strcat strpath (nth i fl))”中间漏了个“/”

我改了这几个地方就可以运行了，再次感谢楼主

不过我还是没办法和我的lisp结合起来，因为我的后续操作是要对文件里的文字进行编辑，如果是外部参照就没办法直接编辑啦，所以想再请问下版主，有没办法不要外部参照，而是直接复制过来呢？

ZZXXQQ

可以图块插入，4楼已改，再试试。
如果需要可以打散插入，将(strcat strpath "/" (nth i fl))
改成(strcat strpath "/*" (nth i fl))

vivi8543

偶也，在版主的帮助下搞定了我需要的程序。

但是对6楼的介绍还有点不明白，将(strcat strpath "/" (nth i fl))改成(strcat strpath "/*" (nth i fl))是做什么呢？这样就能打散插入吗？我试了好像不行哦，函数会出错的。我最后是加入了(command "explode" (ssget "x" '((0 . "insert"))))语句实现插入块的炸开的。

好了，把我最终的程序也贴出来吧，由于刚刚接触lisp,可能编的比较粗糙，各位高手多多指点哦~

该程序是用来把PKPM软件计算出来的各层平面计算数据进行多层归并，按最大值进行设计。如果是做结构设计的网友可能用得到。

vivi8543

另外，还想请教一下，版主上面的方法是先读取文件，然后再读取路径，

那如果是直接用对话框来选取文件夹（作为路径），然后插入文件夹中的所有文件该怎么操作呢？

teykmcqh

这帖子都好久啦，怎么没人来关注一下一步呢，工作应能经常碰到这样的问题，我也正找一个这样的程序，不过希望按文件名方式矩阵排列插入到一张图纸，还有炸开后，这插入图纸所有的块也会被炸开的啊

teykmcqh

这帖子都好久啦，怎么没人来关注一下一步呢，工作应能经常碰到这样的问题，我也正找一个这样的程序，不过希望按文件名方式矩阵排列插入到一张图纸，还有炸开后，这插入图纸所有的块也会被炸开的啊