向多个dwg文件中插入同一个块的lisp
现手上有一千多个图纸，这些图纸里面的坐标都是一样的，也就是说如果要插入外部块的话，那么插入点应该都是一致的，现在想求高手帮忙写个程序，可以批量向这一千多个图纸中插入相同的一个块啊。急求啊，一个一个的打开插入太让人恼火了啊这玩艺挺高明啊，可惜不会啊 打开图形，插入块，存图，关闭图形，多文档操作，全部要用 VLA方法。
用DBX方法更快。 byghbcx 发表于 2011-11-13 21:03 static/image/common/back.gif
打开图形，插入块，存图，关闭图形，多文档操作，全部要用 VLA方法。
用DBX方法更快。
大侠，我根本不知道vla是啥啊，更不晓得dbx是啥啊，可否帮编个程序用用。多谢了 shalei021647 发表于 2011-11-13 23:15 static/image/common/back.gif
大侠，我根本不知道vla是啥啊，更不晓得dbx是啥啊，可否帮编个程序用用。多谢了
给你个实用程序：
命令：BatchIns
Gu_xl 发表于 2011-11-14 13:16 static/image/common/back.gif
给你个实用程序：
命令：BatchIns
版主v5,先下下来试试。 不管咋说还是谢谢版主，不过这个试用了一下，似乎不能满足要求哦，虽然图纸都是一个模板出来的，但是有一部分图纸里面的图框整个移动了位置的，插入的地方出现不同。另外，我将所有文件的坐标点都点为一样，也还是不行。照样出现插入的地方不对。 shalei021647 发表于 2011-11-14 16:03
不管咋说还是谢谢版主，不过这个试用了一下，似乎不能满足要求哦，虽然图纸都是一个模板出来的，但是有一部 ...
一楼说的就是一千多个文件的插入同一位置啊!提问要把你的需求详细说清楚！否则别人无法帮你！ shalei021647 发表于 2011-11-14 16:03 static/image/common/back.gif
不管咋说还是谢谢版主，不过这个试用了一下，似乎不能满足要求哦，虽然图纸都是一个模板出来的，但是有一部 ...
给你个程序，可将每个图纸左下角点移动到WCS原点。其余的自己参考着改一下。
(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)
)
在同一点有办法，如果不在同一点，无法给你定位
页:
[1]
2