明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4007|回复: 16

向多个dwg文件中插入同一个块的lisp

  [复制链接]
发表于 2011-11-13 11:32:09 | 显示全部楼层 |阅读模式
现手上有一千多个图纸,这些图纸里面的坐标都是一样的,也就是说如果要插入外部块的话,那么插入点应该都是一致的,现在想求高手帮忙写个程序,可以批量向这一千多个图纸中插入相同的一个块啊。急求啊,一个一个的打开插入太让人恼火了啊
发表于 2011-11-13 20:49:55 | 显示全部楼层
这玩艺挺高明啊,可惜不会啊
发表于 2011-11-13 21:03:32 | 显示全部楼层
打开图形,插入块,存图,关闭图形,多文档操作,全部要用 VLA方法。
用DBX方法更快。
 楼主| 发表于 2011-11-13 23:15:53 | 显示全部楼层
byghbcx 发表于 2011-11-13 21:03
打开图形,插入块,存图,关闭图形,多文档操作,全部要用 VLA方法。
用DBX方法更快。

大侠,我根本不知道vla是啥啊,更不晓得dbx是啥啊,可否帮编个程序用用。多谢了
发表于 2011-11-14 13:16:51 | 显示全部楼层
shalei021647 发表于 2011-11-13 23:15
大侠,我根本不知道vla是啥啊,更不晓得dbx是啥啊,可否帮编个程序用用。多谢了

给你个实用程序:
命令:BatchIns


本帖子中包含更多资源

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

x
 楼主| 发表于 2011-11-14 15:44:55 | 显示全部楼层
Gu_xl 发表于 2011-11-14 13:16
给你个实用程序:
命令:BatchIns

版主v5,先下下来试试。
 楼主| 发表于 2011-11-14 16:03:04 | 显示全部楼层
不管咋说还是谢谢版主,不过这个试用了一下,似乎不能满足要求哦,虽然图纸都是一个模板出来的,但是有一部分图纸里面的图框整个移动了位置的,插入的地方出现不同。另外,我将所有文件的坐标点都点为一样,也还是不行。照样出现插入的地方不对。
发表于 2011-11-14 16:47:14 来自手机 | 显示全部楼层
shalei021647 发表于 2011-11-14 16:03
不管咋说还是谢谢版主,不过这个试用了一下,似乎不能满足要求哦,虽然图纸都是一个模板出来的,但是有一部 ...

一楼说的就是一千多个文件的插入同一位置啊!提问要把你的需求详细说清楚!否则别人无法帮你!
发表于 2011-11-14 17:03:21 | 显示全部楼层
shalei021647 发表于 2011-11-14 16:03
不管咋说还是谢谢版主,不过这个试用了一下,似乎不能满足要求哦,虽然图纸都是一个模板出来的,但是有一部 ...

给你个程序,可将每个图纸左下角点移动到WCS原点。其余的自己参考着改一下。

  1. (defun c:Move00()
  2. (princ "nMove all from extmin to 0,0")
  3. (setvar "cmdecho" 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")
  7. (setvar "cmdecho" 1)
  8. (princ)
  9. )

点评

大侠,为什么这个程序在图框是多段线并且线宽不为零的情况下,左下角点并不能准确的移动到原点啊。相着一些距离啊,虽然很看起来很小。为什么啊,有什么方法解决吗,请大侠帮忙啊  发表于 2011-11-15 10:00
发表于 2011-11-14 22:53:10 | 显示全部楼层
在同一点有办法,如果不在同一点,无法给你定位
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-23 23:38 , Processed in 0.234995 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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