基于vb二次开发autocad批量打印程序

《基于vb二次开发autocad批量打印程序》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、摘要：如采用AutoCAD的打印功能进行批量打印，则需要对每幅图进行选择、设置和打印，工作效率较低，这就需要开发一种能快速批量打印的功能。以VB为开发平台，对AutoCAD批量打印的二次开发进行了简单介绍。重点对程序编制过程中的几个关键技术进行了阐述。关键词：AutoCAD；VB；打印；批量；二次开发中图分类号：U412文献标识码：A文章编号：1009-3044(2015)09-0096-03Abstract：TakingtheexampleofprintingfunctionsOftheAuto

2、CADsoftwareinbatches，itisneededtoselect,setandprinteverydrawingsseparately,sothatit’sneededtodevelopafunctiontoprintthedrawingsinbatchesfasttoimprovetheefficiency.ThispaperintroducesthesecondarydevelopmentofAutoCADbatchplotonvisualbasicplatform.Thepap

3、erillustratesthekeytechnologyofimplementationofthesecondarydevelopment，andtheprogramwereverifiedwiththeprojects.Keywords：AutoCAD；VB；batchplot；secondarydevelopmentAutoCAD是道路与桥梁工程设计过程中最常用的工具之一，我们在设计工作中，经常需要打印大量的纸，用AutoCAD自身的打印功能打印一份新的图纸，需要设置打印机、图纸尺寸、打印范

4、围、打印偏移、打印比例、打印样式表、图形方向等选项，费时费力，AutoCAD自带布局的方法也没有方便的解决这个问题因此，需要对AutoCAD进行二次开发，自动完成打印选项的设定，提高批量打印效率。本文主要介绍了基于VB二次开发AutoCAD批量打印程序编制过程中的主要技术。1程序的主要功能根据道路与桥梁工程设计过程中的实际情况，我们开发了AutoCAD批量打印程序，如图1所示，主要具有以下功能：1）批量打印多个文件，每个文件中可以包含多个形;2）自动识别图框，图框类型可以为多段线、块或外部参照;3

5、）自动设置打印比例。2利用VB基于AutoCAD二次开发2.1开发原理ActiveXAutomation是微软公司基于组件对象模型体系结构开发的一项技术，AuotoCAD自R14版本起加入了ActiveXAutomation编程接口，通过ActiveXAutomation,AutoCAD提供了由对象模型表述的可编程对象，这些对象可由其他程序来创建、操纵和编辑。VisualBasic（以下简称VB）是微软公司推出的面向对象可视化编程工具，VB作为我们常用的支持ActiveX技术的编程开发工具，使Au

6、toCAD与其他运用程序的数据共享变得更加方便。2.2AutoCAD对象模型AutoCAD对象是采用分层方式来操作的，每一个对象就代表AutoCAD的一个元素。顶层对象为应用程序对象Application，下面是文档Document对象、参数选择Preferences对象、主菜单栏MenuBar对象及菜单工具MenuGroups对象。文档Document对象就是AutoCAD图形，包含ModelSpace、PaperSpace、Blocks、Layers、Plot与Utility等对象，它提供访问

7、所有图形对象（线、弧等）及大部分非图形对象（打印、图层、线型、字型等）。在参数选择（Preferences）对象下边为对象集，每个对象集均对应选项对话框的一个选项卡，它们共同提供访问所有的注册设置。AutoCAD对象模型如图2所示。2.2VB与AutoCAD的连接VB与AutoCAD连接的源代码如下所示：'定义AutoCAD应用程序acadApp和当前文档acaddocPublicacadAppAsObjectPublicacaddocAsObject'定义模型空间对象mospace和图纸空间对象

8、paspacePublicmospaceAsObjectPublicpaspaceAsObjectSubConnectToAcadOOnErrorResumeNext1使用Set语句及GetObject函数返回对AutoCAD对象AcadApp的引用SetacadApp=GetObject(,,,AutoCAD.ApplicationH)IfErrThen1清除错误信息Err.Clear1使用Set语句及CreateObject函数创建对AutoCAD对象AcadApp的引用Set