guisu771
发表于 2006-7-15 23:30:00
<P>我介绍一下我们的情况,供大家参考</P>
<P>本人在公路设计中,需要处理大量的平面图,按要求,一般按A3图幅处理,每一个*.dwg文件中,只放置一张A3(420×297或其倍数)类型的图,为方便以后工作,所有的图纸都是按坐标放置的,因此,画图时,以图中内容为主,图框为次,每张图框的左下角一般是不同的,而且每张图框的旋转角度也是不同的.</P>
<P>处理方法如下:</P>
<P>1. 设置图框外框时,将其设置为多义线,放置在一个很特别的图层(例如"TK"层),这一步很重要,必须在打印前完成,不过,我们的平面图草稿一般是用程序自动生成的,已自动完成以上的设置.</P>
<P>2. 采用VLISP编写批量打印程序,打印前,将所有平面图文件放置在一个打印目录下</P>
<P>2.1 采用VLISP的命令,获取该目录下的所有文件名表,选择打印机型</P>
<P>2.2 生成一个批处理命令文件,将文件名表中的文件逐一打开,寻找角点,打印图</P>
<P>2.3 调入刚生成的批处理命令文件,运行它.</P>
<P>2.4 搞定</P>
<P>2.5 (2.2)中的寻找角点,打印图是另外两个lisp子程序,下面介绍一下它们的情况:寻找角点在图中按多义线及"TK"图层寻找图元,然后对图元进行边长检验(即查是否满足420/297的比值)要求,然后用setq 方法输出左下角,右下角,右上角的坐标,打印图则接收三个角点坐标后,对图形进行旋转(以满足窗选打印要求)),并按角点坐标计算打印比例,宽选坐标,打印,打印完后,再执行undo命令</P>
<P>以上只是提供一个思路,建议采用2002版本,(我们目前就是用2002版,14版用不了VL命令,而2006在打印图时,出现怪毛病,)</P>
<P> </P>
y1982_0
发表于 2006-11-3 11:28:00
顶顶,还有什么方法?欢迎您提供!大家一起学习
xyghzzj
发表于 2006-12-4 23:02:00
<P>给你一个链接</P>
<P><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=56368&extra=&page=1#56368" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=56368&extra=&page=1#56368</A></P>
palagon
发表于 2006-12-27 10:53:00
本帖最后由 作者 于 2006-12-28 16:27:34 编辑 <br /><br /> ZKSJLL发表于2006-7-10 22:16:00static/image/common/back.gif现在很多图纸都画在一起,便于修改查看!!如果可以不用拆图就可以批量打印,那将是一件愉快的事情哟。。。。
<p>我这里的图纸也基本都是这样的,目前打印的时候基本都是手工选取</p><p>事实上都使用了同样的图框,正在寻求更加方便的解决方法</p>
wyj1972
发表于 2007-3-29 21:35:00
请问批量打印在哪里?
hbyu2003
发表于 2007-7-17 22:05:00
我现在都是用A4或A3纸打印,我做了一个批量打印程序,什么也不用设置,只要是标准的A3,A4尺寸都可以打印,可以批量文件打印,也可以在一个文件里打印几个图形,或在图纸中选择几个图框打印,
feng-hua
发表于 2007-7-18 16:28:00
<p>你到ksh.wx-e.com去看看,有你需要的,我本人也有一个程序,放上来大家看看...不是楼主说的批量打印,只是打印cad当前打开的图形,可以连续选择多个pline线框.....</p>
CHINESE518
发表于 2007-9-28 21:27:00
<p>请高手将源代码发给我,先谢了E-MAIL:lexola@126.com</p><p></p>
liuyang4740
发表于 2007-10-6 16:03:00
<p>向第十楼的“<strong><font face="Verdana" color="#61b713">霹雳啪啦啦</font></strong>”请教: </p><p>程序运行到下面就报错啊??“无效的过程调用或参数”</p><p>ThisDrawing.ModelSpace.Layout.SetWindowToPlot PlotLowLeft, PlotUpRight<br/></p>
guoyu450
发表于 2008-3-15 23:53:00
10楼的兄弟,谢谢你的帮助。明眼人一看就知道你就相当于把批量打印的关键源代码全分享出来了。