批量将一个文件夹内的所有dwg文件的图框左下角设为原点

shalei021647

xiaxiang 发表于 2011-11-15 14:38
我看你是快要急疯了!你先告诉我你的布局里是怎么回事？我已经找到了办法！

布局里面没有东西的啊

shalei021647

xiaxiang 发表于 2011-11-15 14:59
这个你可以试一下

方法是：用我那个批处理工具，执行附件的lsp文件。批量执行前请先单个测试，我已经用 ...

偶，第一次测试通过，当第二次测试时，不知道动了哪儿的东西，又不行了

shalei021647

xiaxiang 发表于 2011-11-15 14:59
这个你可以试一下

方法是：用我那个批处理工具，执行附件的lsp文件。批量执行前请先单个测试，我已经用 ...

单个测试不行啊

shalei021647

xiaxiang 发表于 2011-11-15 14:59
这个你可以试一下

方法是：用我那个批处理工具，执行附件的lsp文件。批量执行前请先单个测试，我已经用 ...

使用后，左下角点变成（75，75）了，不同的图有不同的数值，并不一定相同，都是与原点差一点。但是如果把图框给炸开，似乎就行了。不知道怎么回事啊。但是我们又要求外框是粗组，打印的时候也要显示粗

xiaxiang

你的情况太复杂。你可以把图纸批量打包传上来以供调试。

shalei021647

xiaxiang 发表于 2011-11-15 16:22
你的情况太复杂。你可以把图纸批量打包传上来以供调试。

多谢大侠的热心帮助，这个压缩包里面的几个图纸，特别是DGT(A)-30-0.35.dwg这个，无论如何我都没办法把左下角点变成原点。

shalei021647

xiaxiang 发表于 2011-11-15 16:22
你的情况太复杂。你可以把图纸批量打包传上来以供调试。

我现在改成了这样的了

1. (setvar "cmdecho" 0)

复制代码

似乎能行，但是就是那第二张图死活改不了

shalei021647

刚刚又测试了一下，又不行了，全部都不行了。真不知道是图纸有问题，还是程序有问题啊

xiaxiang

把你的布局删除，再运行程序，就好了,什么原因？

shalei021647

xiaxiang 发表于 2011-11-15 16:22  你的情况太复杂。你可以把图纸批量打包传上来以供调试。

大侠，我总结了一下，目前情况是这样的，就是那个移左下角到原点的LISP，本身似乎是没有错误的，因为我用快捷键命令MOVE00在当前打开的我最原始的文件下使用，是能正确将左下角点移动到原点的，可是用了那个批处理程序后，被批处理的文件并没有把左下角点移到精确的原点，仅仅是移到了比较接近原点的地方，并且这些经过批处理的文件，再用MOVE00也不能把左下角点移到原点了。上面我上传的压缩包里面的文件好像就有用批处理程序处理过的，所以现在不论咋弄都没法移到原点了。大侠帮忙诊断