明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: shalei021647

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

  [复制链接]
发表于 2011-11-15 11:43:52 | 显示全部楼层
昨晚为这个问题,我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点,着急是没有用的。任何人都不可能一口吃成胖子。
1.ucs与wcs的关系
2.用cad批处理程序处理图纸时,在lisp中只保留如下语句

  1. (command "base" "0,0")
  2. (command "zoom" "e")
  3. (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
  4. (command "zoom" "e")
 楼主| 发表于 2011-11-15 12:16:07 | 显示全部楼层
xiaxiang 发表于 2011-11-15 11:43
昨晚为这个问题,我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点,着急是没 ...

呵呵,版主说的是啊,想学这lsp啊,可是自己太笨啊
 楼主| 发表于 2011-11-15 12:19:55 | 显示全部楼层
xiaxiang 发表于 2011-11-15 11:43
昨晚为这个问题,我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点,着急是没 ...

版主,如果只保留上面的东西,那么我在用cad批处理程序时候,怎么调用上面的lisp命令啊
 楼主| 发表于 2011-11-15 13:04:48 | 显示全部楼层
xiaxiang 发表于 2011-11-15 11:43
昨晚为这个问题,我从八点多一直熬到今天早上六点多。郁闷死我了。
您未掌握的知识不是一点半点,着急是没 ...

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


盼改进啊

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2011-11-15 13:06:36 | 显示全部楼层
给你个VB的程序




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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2011-11-15 13:09:07 | 显示全部楼层
xiaxiang 发表于 2011-11-15 13:06
给你个VB的程序

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

点评

没看懂?批量执行lisp程序,即为每个dwg文件执行一遍加载的lisp程序,VB编制  发表于 2011-11-15 13:17
 楼主| 发表于 2011-11-15 13:26:50 | 显示全部楼层
xiaxiang 发表于 2011-11-15 13:06
给你个VB的程序

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

点评

手动移吧  发表于 2011-11-15 14:03
 楼主| 发表于 2011-11-15 14:24:48 | 显示全部楼层
shalei021647 发表于 2011-11-15 13:26
老大,你发的这个批处理程序我用了,可以进行批处理,但是移动后,并非真正把左下角移到了原点,而是离原 ...

要郁闷死我啊,一千张图,移完还要插图框块啊,那还不如我直接手动插图框块算了。唉
发表于 2011-11-15 14:38:01 | 显示全部楼层
本帖最后由 xiaxiang 于 2011-11-15 15:00 编辑

我看你是快要急疯了!你先告诉我你的布局里是怎么回事?我已经找到了办法!
发表于 2011-11-15 14:59:38 | 显示全部楼层
本帖最后由 xiaxiang 于 2011-11-15 15:17 编辑
  1. (command "base" "0,0")
  2. (command "zoom" "e")
  3. (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
  4. (command "zoom" "e")

  5.   (setvar "ctab" "布局1")
  6. (command "base" "0,0")
  7. (command "move" "all" "" (list (car (getvar "extmin"))(cadr (getvar "extmin")) 0.0) "0,0,0")
  8. (setvar "ctab" "模型")

这个你可以试一下

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-24 04:21 , Processed in 0.158395 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表