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

shalei021647

望大侠帮忙诊断一下，何故啊

shalei021647

另外，我想是不是与这个批处理程序有关啊，我电脑上装有04和08，但是我选用04的启动的时候，提示出错，只能用08的。并且我在论坛上下了1.2版批处理程序安装上后还是这样。

shalei021647

另外，我没有在布局里面做什么东西，应该与布局没啥关系吧，望大侠讲解下弄那个布局是起什么作用的，多谢，盼回复

shalei021647

xiaxiang 发表于 2011-11-15 17:27  把你的布局删除，再运行程序，就好了,什么原因？

那个默认布局似乎是删不掉的吧，删了还是有啊

xiaxiang

“布局1里面有两个视口，是这个的问题”
以上还是不能确定

xiaxiang

经非严谨测试，如下代码似乎可行。请再测试

2. 
   
3. (command "zoom" "e")
   
4. (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
   
5. (command "zoom" "e")
   
6. 
   
7.   (setvar "ctab" "布局1")
   
8.   (command "move" (ssget "x") "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
   
9. (setvar "ctab" "模型")

<br /> (command "zoom" "e")<br /> (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")<br /> (command "zoom" "e")<br /> <br />   (setvar "ctab" "布局1")<br />   (command "move" (ssget "x") "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")<br /> (setvar "ctab" "模型")

shalei021647

xiaxiang 发表于 2011-11-16 11:24
经非严谨测试，如下代码似乎可行。请再测试

多谢大侠，下下来测试下先。

shalei021647

xiaxiang 发表于 2011-11-16 11:24
经非严谨测试，如下代码似乎可行。请再测试

大侠，请教一下，在模型空间和布局空间中都是用MOVE命令把图形移以图框左下角移动到原点，我想弄明白命令MOVE后面跟的ALL与SSGET有啥区别啊，不都是选择所有图形的嘛，可以互换吗。

shalei021647

xiaxiang 发表于 2011-11-16 11:24
经非严谨测试，如下代码似乎可行。请再测试

另外再请教大侠，GETWAR获取了EXTMIN的坐标后，为什么不直接用啊，还非要用LIST跟CAR涵数进行调用啊。

shalei021647

xiaxiang 发表于 2011-11-16 11:24
经非严谨测试，如下代码似乎可行。请再测试

还有个我想不明白的问题就是，为什么不考虑直接用新建坐标系（命令UCS）的方法把，把坐标原点定到获取到的左下角点呢。重建坐标系后，图形如果有坐标注的话，是不是其标注值在新定的坐标下发生变化，我想应该是会变化的，因此是不是如果图形中有坐标标注的情况下，这种移动左下角到原点的方法跟建个以左下角为原点的新坐标系的方法都会改变原本形的内容啊