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

xiaxiang

昨晚为这个问题，我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点，着急是没有用的。任何人都不可能一口吃成胖子。
1.ucs与wcs的关系
2.用cad批处理程序处理图纸时，在lisp中只保留如下语句

2. 
   
3. (command "base" "0,0")
   
4. (command "zoom" "e")
   
5. (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
   
6. (command "zoom" "e")
   

<br /> (command "base" "0,0")<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 />

shalei021647

xiaxiang 发表于 2011-11-15 11:43
昨晚为这个问题，我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点，着急是没 ...

呵呵，版主说的是啊，想学这lsp啊，可是自己太笨啊

shalei021647

xiaxiang 发表于 2011-11-15 11:43
昨晚为这个问题，我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点，着急是没 ...

版主，如果只保留上面的东西，那么我在用cad批处理程序时候，怎么调用上面的lisp命令啊

shalei021647

xiaxiang 发表于 2011-11-15 11:43
昨晚为这个问题，我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点，着急是没 ...

该改的我都改了，可是下面这个图纸怎么还是不能真正的把图框左下角移到原点啊。怎么弄都不行啊


盼改进啊

xiaxiang

给你个VB的程序




下载CAD_BAT.rar这个文件，解压后按照说明文本提示注册控件，并添加注册表信息
下载1.lsp
按照贴图所示添加lsp文件，添加dwg文件列表并选中之，选择cad版本启动，执行，OK
Don't tell me you failed!

shalei021647

xiaxiang 发表于 2011-11-15 13:06
给你个VB的程序

这个是做什么用的啊，大侠

shalei021647

xiaxiang 发表于 2011-11-15 13:06
给你个VB的程序

老大，你发的这个批处理程序我用了，可以进行批处理，但是移动后，并非真正把左下角移到了原点，而是离原点有一小点的距离啊。求解啊，原本这个dwg文件我在没有进行批处理的时候，手动加载lisp运行，能够实再把左下角点真正移动到原点，可一旦用了这个批处理之后，那个左角点就离原点差那么一点点了，并且，再手动加载lisp运行，也不起作用了。
老大可以看我上面的那个附件，就是死活移动不到真正的原点

shalei021647

shalei021647 发表于 2011-11-15 13:26
老大，你发的这个批处理程序我用了，可以进行批处理，但是移动后，并非真正把左下角移到了原点，而是离原 ...

要郁闷死我啊，一千张图，移完还要插图框块啊，那还不如我直接手动插图框块算了。唉

xiaxiang

我看你是快要急疯了!你先告诉我你的布局里是怎么回事？我已经找到了办法！

xiaxiang

2. (command "base" "0,0")
   
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 "base" "0,0")
   
9. (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
   
10. (setvar "ctab" "模型")

(command "base" "0,0")<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 "base" "0,0")<br /> (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")<br /> (setvar "ctab" "模型")

这个你可以试一下

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