基于VBA的Auto CAD打印输出环境的定制与开发

信 息技 术 周虹 基 于 V B A的 A u t o C A D打 印输 出环境的定制与开发 基 于VB A 的 Au t o C AD 打 印 输 幽 环 境 的 定 制 与 开 炭 周 虹 山东科技大学 机械电子工程学院 山东 青岛2 6 6 5 1 0 摘要 A u t o C A D作为一个通用计算机辅助绘图与设计平台 有着强大二维 三维绘图编辑打 印功能 利用 A u t o C A D V B A开发编程功能 有针对性地进行一些开发 可以提高工作效率 介绍了一种利用 A u t o C A D V B A的编程功能 定制A u t o C A D打印输出环境的一种方法 能大大 提高 C A D图形的打印效率 可以轻松实现设计输出一体化 关键词 A u t o C A D V B A 设计输出一体化 二次开发 中图分类号 T P 3 9 1 7 2 文献标志码 B 文章编号 1 6 7 1 5 2 7 6 2 0 1 0 0 5 0 0 9 8 0 2 Cu s t o mi z e d a n d De v e l o pe d Aut o CAD i n Pr i n t a n d Out p u t S u r r o u nd i ng s Ba s e d o n VBA ZHOU Ho n g C o ll e g e o f M e c h a n ic a l a n d Be c t d c a l E n g i n e e n n g S h a n d o n g U n iv e r s it y o f S c i e n c e a n d T e c h n o lo g y Q i n g d a o 2 6 6 5 1 0 C h i n a Ab s t r a c t wh e n Au t o C AD is u s e d a s a u n iv e r s a l c o mp u t e r a id e d d r a win g a n d d e s ig n s o ft wa r e it h a s a p o we r f u l f u n c t i o n i n e d it i n g a n d pn n t i n g 2 D an d 3 D dr a wi n g It u s e s t h e p r o g r a mmin g f u n c t ion o f Au t o CADS VB A t o do s o me sp e c ial c u s t o miz a t i o n f or impr o v i n g wor k in g e ff i c ien c y A me t h o d u s i n g VB A t o c u s t o miz e t h e p r in t a n d o u t p u t e n v i r o nme n t i n Au t o CAD is in t r o du c ed wh i c h c an impr o v e t h e p r in t e fficien c y f or CAD s k e t c h an d r ea l iz e t h e i n t e gr a t ion o f de s ign a n d ou t p u t e as il y Ke y wo r ds Au t o CAD VB A un it y o f de s ig n an d o u t p u t s e c o n da r y d e v elop me n t 0 引言 在工程制图方面 A u t o C A D软件是一个通用计算机辅 助绘图和设计软件包 它在二维绘图领域拥有广泛的用户 群 A u t o C A D丰富的绘图命令 强大的编辑功能 三维造型 功能和良好的用户界面深受广大工程技术人员的普遍欢 迎 通过和绘图仪等输出设备连接可完成计算机辅助设计 绘图仪出图等一系列工作 大大提高工作效率 虽然在 A u t o C A D 2 0 0 0版本以后 A u t o C A D的打印功能显著增强 可以利用 Wi m d o w s 的系统打印机配置打印设备 还新增 了 页面设置 选项 用户可 以在 页面设 置 和 打 印 选 项中配置包括打印设备 打印样式表 打印区域 图纸旋 转 打印偏移 图纸大小和缩放比例等功能选项 但是每张 图形在输出前都需要这样的配置 将会大大影响出图打印 的速度 利用 A u t o C A D本身的开发功能配置统一的打印 环境集中打印 A 0或 A l幅面的大图 这样将会大大提高 图形打印的速度和效率 轻松实现设计输出一体化 1 A u t o C AD VB A编程语言 V B A是 A u t o d e s k 公 司于 A u t o C A D 2 0 0 0版发 布的基于 V B的一种新的面向对象的编程语言 是 A u t o C A D内嵌的 基于 A c t i v e X技术的而向对象的可视化开发编程工具 与 A u t o C A D同时运行 并通过 A c t i v e X A u t o m a t i o n接口对 A u t o C A D进行编程控制 这样就把 A u t o C A D A c t i v e X A u t o ma t i o n和 V B A紧密连接在一起 提供了一个功能强大的 接口 它不仅能控制 A u t o C A D对象 也能向其他应用程 序发送数据或从中提取数据 V B A很好地继承了 B a s i c和 V i s u a l B a s i c语言易学 易用的特点 V B A是 V B的一个子集 它们的语法结构是 相同的 V B A依附于主应用程序 A u t o C A D 由于共享 内 存 它与主应用程序的通信简单而高效 具有更快的执行 速度 且其语法结构简洁 便于用户快速高效的开发出适 用的应用软件 文中的内容完全基于 A u t o C A D 2 0 0 6中文 版的 A c t i v e X A u t o a t a t i o u对象模型 2 A u t o C A D绘图和打 印输出环境 2 1 关 于模 型空间和 图纸 空间 A u t o C A D模型空间是用于建模 是用户在其中完成 绘图和设计的工作空间 利用在模型空间建立的模型可 以完成二维或三维的造型 并且可以根据用户需求用多个 二维或三维视图来表示物体 同时配有必要的尺寸标注和 注释等完成所需要的全部绘图工作 模型空间是没有界限 的 因此绘图过程中没有比例尺的概念 在模型空间中 用户可以创建多个不重叠的 平铺 视 口以展示图形的不 同视 图 图纸空间用于图形排列 绘制局部放大图及绘制图 形 A u t o C A D为了方便用户设置打印 纸张 比例尺 图纸 布局 以及预览效果而设置了图纸空问 图纸空间与模型 空间的坐标显示是不同的 图纸空间是纸张的模拟 是二 维有界的 因此在图纸空间有比例尺的概念 作者简介 周虹 1 9 6 6 一 女 山东平度人 高级实验师 学士 从事 C A D教学 与应用和计算机管理方 面的工作 9 8 h t t p Z Z H D c h i n o u r n a 1 n e t c n E m a i l Z Z H D c h a i n a j o u r n a 1 n e t c n 机械制造与 自 动化 信息技术 周虹 基 于 V B A的 A u t o C A D打 印输 出环境 的定制 与开发 2 2 关于布局和打印选项卡 在 A u t o C A D 2 0 0 0以后 以前 的图纸空间被布局所代 替 布局是一种增强的图纸空间环境 它模拟图纸页面 在 一 个图形文件中可以设定多个图纸空问布局 每个布局都 有一个唯一的名称 布局可以复制 移动 重命名和删除 也可以保存在模板文件中为新的图形文件使用 A u t o C A D的布局设置控制了最后的打印输出 这些 设置包括纸张大小 打印比例 T F p 区域 打印原点和打印 设备的名称 了解如何运用布局设置可以确保打印出理 想的图样 而在 V B A中所有的布局设置能够通过 L a y o u t 对象的属性和命令来改变 可以按照模型空间中的显示打印图形 也可以打印其 中一个已准备好的图纸空问布局 如果在创建图纸空间 布局之前查看或验证图形 通常选择从模型空问打印 当 模型准备就绪后 可以准备并打印图纸空间布局 出图时 也可以在 打印 对话框中配置 3 基于V B A编程的A u t o C A D快速出图 3 1 配置 Wi n d o w s系统打 印机 使用 Wi n d o w s 系统中安装的打印机并将该打印机设置 为系统默认的打印机 笔者使用的是 H P D e s i g n J e t 4 3 0 E A 0 打印机 以打印 A 0幅面的图纸为例 选择 属性 打 印首选项 纸张尺寸 应用程序页面尺寸 I S O A 0 8 4 1 X 1 1 8 9 m i l l 选项 如图 l 所示 单击 确定 后这些设置通过 Wi n d o w s 的注册表文件保存在 Wi n d o w s 的系统中 图 1 在打 印机属性 中配置页面 3 2编程代码及 实现 方法 在 A u t o C A D中使用 Wi n d o w s 系统默认的打印机和打 印页面尺寸 启动 A u t o C A D 加载 V B A工程 在 V B A中通 过调用 G e t p r i n t N a m e 函数来访 问 Wi n d o w s的注册表文 件 调用 Wi n d o w s 系统打印机的配置选项 当打开需要打 Ma c h in e B u i ld i n g g A u t o m a t i o n O c t 2 0 1 0 3 9 5 9 8 9 9 1 1 1 印的图形文件后 只需选择 A u t o C A D中的 文件 菜单中 的 打印 子菜单 先设置打印 WI N D O WS的两个角坐标 出现 如图 2所示 的打印对话框配置 便 可以方便地再用 窗 口形 式选 择打印图形范 围预览打 印图形了 更 蔚设置 名称 谎 打印枫 鳢图倥 名称 坦 鳢图位 位置 说明 盱 n e l 弘ht 4 3 0 理 加 一优化豹驱动 U l 口打E 疃杖 件 图纸R寸 IS 0 0 8 41 x l 1 89 m 打E p 区域 打叩比例 打印 范围q 团 布鞴圉纸旺 窗 口 l宣旦 I 比 例嘿 打印缡移 点设置 在可打 E 呕 域 毫米 v 一 回 居中打印0 匝 l 一 固 口口雯 匦口 图 2 开发后的 打印 选项配置 代码描述如下 在模型空间打印 A 0图纸 Op t i o n Ex p l i c i t Di m P r i n t Na me As S t rin g 检 查默认 打印机并在打印开始前调用 G e t P r i n t N a m e过程 P riv a t e S u b Ac a d Do c u me n t B e g i n C o m ma n d B y V a l C o m m a n d N a me A s S t ri n g I f Co mma n d Na me P AGE S ETU P Or Co mma n d Na me PL OT T h e n Ca l l Ge t P r i n t Na me En d I f En d S u b 打 印结束后调用 S e t P r i n t N a me 过程 Pri v a t e S u b Ac a d Do c u me n t E n d C o m ma n d B y V a l C o m ma n d N a m e As S t ri n g I f C o mma n d Na me P AGES E TUP Or Co mma n d Na me P L0T Th e n Ca l l S e t P r i n t Na me En d I f En d S u b 调 用 Wi n d o w s默认 打印机配置并 配置 C AD中的打印选项 P ri v a t e S u b G e t P r i n t N a m e 检查当时空间是否为模型空间 If T h i s Dr a wi n g Ac t i v e S p a c e a c P a p e r S p a c e T h e n Th i s Dr a wi n g MS p a c e T r u e Th i s Dr a wi n g Ac t i v e S p a c e a e Mo de l S p a c e E n d I f P ri n t Na me G e t S e t t i n g MC C AD D r a w i n g S e t t i n g P r i n t N a m e I f Pr i n l Na me An d T hi s Dr a w i n g Ac t i v e I y o a t C o n fi g Na me P r i n t Na me T he n 下转第 l 1 1页 9 9 信息技术 王素粉 等 渐开线齿轮磨削成形砂轮数控修整及 V C 程序实现 从模拟的结果可以看出来 渐开线的逼近点都和理论 线上的坐标点相重合 从坐标文件可以看出来 程序所走 的实际步长和估计步基本一致 通过分析可以看出来这种 方法比以往的程序所走的节点少 耗时少且能满足加工及 精度要求 3 结语 在 V C 6 0中编制了生成数控程序的修形软件 主 要是根据前面的计算结果生成数控加工代码 以记事本的 形式保存在硬盘上 以便传人到机床数控系统中进行数控 加工 实现了自动编程 提高加工效率 实现 P c机 自动编 程和数控 自动加工的统一 参考 文献 1 赛奎春 张雨 V i s u a l C 工程应用与项 目实践 M 北京 机械工业 出版社 2 0 0 5 6 1 0 2 周济 等 数控加工技术 M 北京 国防工业 出版社 2 0 0 2 3 张彦博 时间分割圆弧插补改进算法 J 组合机床与 自动化 加工技术 2 0 0 3 1 1 5 5 5 6 收稿 日期 2 0 0 9 1 0 2 9 上接第9 9页 T h i s Dr a w i n g Ac t i v e L a y o u t Re f r e s h P l o t D e v i c e I n f o T h i s Dr a w i n g Ac t i v e L a y o u t C o n fi g N a me P r i n t Na me 设 置打印 WI N D O WS的两个角坐标 p o i n t l T h i s D r a w i n g U t i l i t y G e t P o i n t 请输入左下 角点 将第一点的三维点转化为二维点坐标 R e D i m P r e s e r v e p o i n t l 0 T o 1 p o i n t2 T h i s D r a w i n g U t i l i t y G e t P o i n t 请输入右上 角点 R e D i m P r e s e r v e p o i n t 2 0 T o 1 设置打印窗 口 T h i s Dr a w i n g Ac t i v e L a y o u t S e t W i n d o w T o P l o t p o i n t l p o i n t 2 设置打印范围为当窗口模式 窗口 使用 S e t Wi n d o w T o P I o t 属性设置打印窗口的位置 然 后使用 Wi n d o w s 系统默认的打印机及设置打印 须注意的 是 S e t Wi n d o w T o P l o t 方法只接受二维数组 所以须使用 R e D i m语句舍弃第三维坐标 并使用 P r e s e r v e 关键字保证前 两个元素的值不变 4 结语 使用 V B A进行 A u t o C AD应用程序的开发 适合于各 行业的设计人员可显著提高绘图效率 经过实际运行和 应用表明 可使 V B A快速编程优势与 A u t o C A D的图形功 能完美的结合起来 大大提高开发效率 为开发者根据 自己的优势 开发各 自领域 的 C A D软件提供 了极大的 方便 T h i s Dr a w i g Mo d e l s p a c e u P l T y p e a c w i n 参考文献 aow 设置打印比例为 布满图纸 T h i s Dr a wi n g Mo d e l S p a c e L a y o u t S t a n d a r d S c a l e S e a l e T o F i t 设置打印偏移为 居中打印 T h i s D r a w i n g Mo d e l S p a c e L a y o u t C e n t e r P l o t T r u