秋枫 发表于 2003-11-21 22:03:46

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

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

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

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

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

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

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

秋枫 发表于 2003-11-21 22:04:52

加载方法:
命令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

秋枫 发表于 2003-11-21 22:06:51

自动安装版本:

更新: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

秋枫 发表于 2003-11-21 22:08:24

说明:

fzlinrong 发表于 2003-11-22 23:32:49

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

feiyn 发表于 2003-11-23 02:12:12

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

hcheli 发表于 2003-11-23 18:24:44

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

秋枫 发表于 2003-11-24 12:24:59

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


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


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

zxp 发表于 2003-11-24 12:29:50

请问能用在纯CAD上吗?

秋枫 发表于 2003-11-24 12:31:51

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

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

秋枫 发表于 2003-11-24 12:32:56

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

不支持R14

秋枫 发表于 2003-11-24 12:33:21

最初由 zxp 发布
请问能用在纯CAD上吗?

可以。

SONYSONY 发表于 2003-11-24 17:48:20

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

zxp 发表于 2003-11-24 19:13:56

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

fzlinrong 发表于 2003-11-24 21:55:27

谢谢秋枫大侠,我要好好研究一下。
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: [原创]:模型空间批量打印程序3.3.5