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

shalei021647

请求高手帮忙编一个批量一个文件夹内所有文件图框的左下角定为原点的程序。下面是高手 xiaxiang 做的将一个文件的图框左下角定为原点的源码。，请高手帮忙加一个批量啊，是不然似乎没有啥意义啊

(defun c:Move00()
(princ "nMove all from extmin to 0,0")
(setvar "cmdecho" 0)
(command "zoom" "e")
(command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
(command "zoom" "e")
(setvar "cmdecho" 1)
(princ)
)




求助啊，各位高手

softbird

xianaihua 发表于 2011-11-17 00:38
试一下我的程序

很好用，能否加一个右上角的功能？

gooday

做个标记回去试下

zhangcan0515

学习了一下批量

Gu_xl

SCRiPT命令！

shalei021647

Gu_xl 发表于 2011-11-15 07:30
SCRiPT命令！

版主，我不会用这个命令啊。另外，上面的那个程序为什么对图框是多段线的没办法真正把左下角点设为原点啊，总是差一些距离。而如果把多段线炸开的话，就可以啊。

Gu_xl

shalei021647 发表于 2011-11-15 09:46
版主，我不会用这个命令啊。另外，上面的那个程序为什么对图框是多段线的没办法真正把左下角点设为原点啊 ...

上传样图并详细说明操作目的！

shalei021647

Gu_xl 发表于 2011-11-15 10:19
上传样图并详细说明操作目的！

昨天我试了一晚上都不能正确使用，今天早上再试竟然行了，郁闷啊。多谢版主的热心回复

shalei021647

Gu_xl 发表于 2011-11-15 10:19
上传样图并详细说明操作目的！

版主，刚才测试终于发现是为什么出问题了。当我在图中进行过手动设置坐标原点为某一点之后，再用move00这个程序，就无论如何也不能把左下角移到坐标原点了。求解。下面是这个图，求老大帮忙测试。

急盼原因啊

Gu_xl

shalei021647 发表于 2011-11-15 10:40
版主，刚才测试终于发现是为什么出问题了。当我在图中进行过手动设置坐标原点为某一点之后，再用move00这 ...

zoom之前加一句(command "base" "0,0")试试！

shalei021647

Gu_xl 发表于 2011-11-15 10:48
zoom之前加一句(command "base" "0,0")试试！

我先试一下，大侠。
另外，我发现，我用网上的那个cad批处理程序2.5,然后选择多个文件，再用move00命令的话，也会出现不能真正把左下角定位到原点。老大，能否帮个忙用lisp给写一个批改多个文件图框左下角为原点啊！谢谢了先1

shalei021647

Gu_xl 发表于 2011-11-15 10:48
zoom之前加一句(command "base" "0,0")试试！

版主，刚才测试发现，当新设置了坐标原点后，再用move00命令，出错的原因可能是由于坐标系在我设置新坐标原点时候被改变了。当我把坐标系切回世界坐标系后，再用move00命令就正确了，求解决方法。并恳请楼主帮忙写个批处理n个文件的方法。不是我不想自己写，只是我真的不会啊。昨晚为这个问题，我从八点多一直熬到今天早上六点多。郁闷死我了。到现在还解决不了啊。

shalei021647

Gu_xl 发表于 2011-11-15 10:48
zoom之前加一句(command "base" "0,0")试试！

老大，我加了一句返回坐标系的命令就好了，但是不能批量做用多个dwg文件啊，求救
改成下面这样的了

(defun c:Move00()
(princ "nMove all from extmin to 0,0")
(setvar "cmdecho" 0)
(command "zoom" "e")
(command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar
"extmin")) 0.0) "0,0,0")
(command "ucs" "w")
(command "zoom" "e")
(setvar "cmdecho" 1)
(princ)
)