[原创]：模型空间批量打印程序3.3.5

秋枫

以前的贴子丢了。新发一帖。

简易使用指南：
下载安装程序安装后，输入命令Bplot或Batchplot即可。
也可以从文件菜单中调用“批量打印”条目。

纯LISP程序，如不需要安装喜欢自己手工加载的可用WinRAR解压安装程序自行提取其中的文件。我提供的安装包是7z自解压包。

更详细的信息请按对话框中的“帮助”按钮。

http://fresco.yo2.cn/?s=Batchplot

[iframe h=600 w=100%]http://fresco.yo2.cn/?s=Batchplot[/iframe]

秋枫

加载方法：
命令appload, 加载附件中的BatchPlot.vlx
如需每次启动自动加载，在appload的启动组（Startup Suite）中添加这个文件即可。

使用说明：请按对话框中的“帮助”按钮。

程序：


更新，2004年2月21日14时15分

更新，2004年3月27日15时27分
修正对2005的支持。

更新：2004年6月9日20时45分
2.2版。增加图纸偏移与居中选项（6月9日）

更新：2004年6月25日19时27分
增加打印顺序调整功能（6月25日）
自动打印比例算法调整（6月25日）
支持在UCS下的图块图框（6月25日）
自动旋转设为可选。如选成不自动，可以在页面设置中调整方向（6月25日）
支持在UCS下的理正图框（6月24日）

更新：2004年6月30日20时29分
打印不出图框边线问题（6月30日）（浮点运算误差）
在DWG文件中保存上次的批量打印设置（6月28日）

更新：2004年7月31日22时12分
在状态栏显示比例与进度信息(7月5日)
BUGFIX: 图块列表(7月5日)
提供打印多个Layout的功能（7月1日）

更新：2005年2月27日17时14分
修正了一个重大的导致打印错位的bug（总算找到原因了）：
因DCS与UCS不一致而产生的Bug，Target系统变量（2005.2.24）

更新：2005年4月8日21时53分
添加支持“理正电气(ELE_TITLE)”图层的图框。(4月8日)
修正“在布局空间中强制使用模型空间线型比例”选项不起作用的问题(程序中笔误)(4月8日)

下载链接：http://quelea.w3.zccn.net/blogview.asp?logID=41

秋枫

自动安装版本：

更新：2004年6月30日20时32分

除楼上提供手动安装版本外，另提供一自动安装版本。见本贴附件。此安装程序自动把Batchplot加入支持的AutoCAD版本。并在开始菜单中创建Batchplot组。

如果理正更新后BatchPlot命令丢失，请用 开始→程序→Batchplot→修复

更新：2004年7月31日22时19分
下载：http://www.xdcad.net/forum/attachment.php?s=&postid=1184008

秋枫

说明：

fzlinrong

请问秋枫大侠，怎样提取图形中的打印边界，以及缺省的打印样式和打印机配置，我也在编一个批量打印程序，关于这个问题已经困惑了我很久，希望能从你处找到答案。谢谢！

feiyn

第一版和第二版的区别就是增加了对话框吗，第一版已很不错了。熟用键盘后很不喜欢对话框。

hcheli

请问秋枫斑竹，您这是针对哪个版本的程序——R14、R15、R16？为何我在R14中不能加载？

秋枫

最初由 fzlinrong 发布
[B]请问秋枫大侠，怎样提取图形中的打印边界，以及缺省的打印样式和打印机配置，我也在编一个批量打印程序，关于这个问题已经困惑了我很久，希望能从你处找到答案。谢谢！ [/B]

2. 
   
3. [FONT=courier new]
   
4. ;;;取得物体的包围盒：（返回左下角，右上角坐标）
   
5. ;;;返回一个单独图元的范围
   
6. (defun ax:GetBoundingBox (ent / ll ur)
   
7.   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)
   
8.   (mapcar 'vlax-safearray->list (list ll ur))
   
9. )
   
10. ;;; 当前配置名
    
11. (defun getPageSetupName (layout / laydict psn dn)
    
12.     (setq dn (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT"))))
    
13.     (setq laydict (dictsearch dn layout))
    
14.     (setq psn (member '(100 . "AcDbPlotSettings") laydict))
    
15.     (if        (= (caadr psn) 1)                ; Page Setup Name exist
    
16.       (setq psn (cdadr psn))
    
17.     )
    
18. )
    
19. 
    
20. [/FONT]

<br /> [FONT=courier new]<br /> ;;;取得物体的包围盒：（返回左下角，右上角坐标）<br /> ;;;返回一个单独图元的范围 <br /> (defun ax:GetBoundingBox (ent / ll ur)<br />   (vla-getboundingbox (vlax-ename->vla-object ent) 'll 'ur)<br />   (mapcar 'vlax-safearray->list (list ll ur))<br /> )<br /> ;;; 当前配置名<br /> (defun getPageSetupName (layout / laydict psn dn)<br />     (setq dn (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT"))))<br />     (setq laydict (dictsearch dn layout))<br />     (setq psn (member '(100 . "AcDbPlotSettings") laydict))<br />     (if        (= (caadr psn) 1)                ; Page Setup Name exist<br />       (setq psn (cdadr psn))<br />     )<br /> )<br /> <br /> [/FONT]

当前样式表用layout物体的style sheet属性

zxp

请问能用在纯CAD上吗？

秋枫

最初由 feiyn 发布
[B]第一版和第二版的区别就是增加了对话框吗，第一版已很不错了。熟用键盘后很不喜欢对话框。 [/B]

主要区别是这个。另外加了一个“预设配置”。

秋枫

最初由 hcheli 发布
[B]请问秋枫斑竹，您这是针对哪个版本的程序——R14、R15、R16？为何我在R14中不能加载？ [/B]

不支持R14

秋枫

最初由 zxp 发布
[B]请问能用在纯CAD上吗？ [/B]

可以。

SONYSONY

希望早日开发出支持14的版本！请努力啊

zxp

在天正6。0+2002中有时加载后不能运行，这是为何？

fzlinrong

谢谢秋枫大侠，我要好好研究一下。