基于VBA的AutoCAD二次开发及应用实例

基于AutoCAD-VBA的批量文字替换方法探讨

郑宾

【摘 要】通过VBA对AutoCAD的二次开发,设计了一个可以选择多个图形文件,并同时进行批量文字查找和替换的应用程序.比较之前通过命令行对话框的操作,解决了一次只能选择一个图形文件的问题,提高了工作效率,实际应用效果良好.

【期刊名称】《湖州职业技术学院学报》

【年(卷),期】2017(015)001

【总页数】3页(P89-91)

【关键词】AutoCAD;VBA;文字替换;批量

【作 者】郑宾

【作者单位】陕西铁路工程职业技术学院 电气工程系,陕西 渭南 714099

【正文语种】中 文

【中图分类】TP391.72

AutoCAD是一款用于二维、三维绘图、设计文档的计算机辅助设计软件。AutoCAD绘图功能强大，但在数据处理、文档操作等方面有局限性[1]82。Visual

Basic for Applications是Visual Basic的一种宏语言[2]564，可以通过VBA编程操作CAD的绘图对象[3]45-46，通过对AutoCAD的二次开发，避免绘图过程中的重复性工作，简化流程，使CAD准确、快速的优势得到最大的发挥。

在AutoCAD中，对文字查找和替换是通过打开文件标准对话框实现的，但每次只能选择一个文件，操作很不便捷。本文设计的程序仍然使用打开文件标准对话框这一功能，但是却允许同时选择多个文件，能够同时对多个图形进行文字查找和替换的操作，这在工程设计的过程中是一个非常实用的工具。

本文通过AutoCAD-VBA设计一个批量文字替换的应用程序。

(1)运行AutoCAD2016，在【VBA管理器】中创建一个全局工程并选择保存路径，进行保存。

(2)选择【插入/用户窗体】菜单项，在程序中创建一个窗体frmMain，并添加以下控件：一个列表框控件用于显示选择的图形文件名称，两个文本框控件用来输入查找和替换的文字，四个命令按钮分别是添加、删除、取消、确定。

CAD_VBA_二次开发中的所有方法的中文翻译

A 

Activate 激活指定的图形。 

Add 创建成员对象并将它添加到适当的集合中。 

Add3DFace 以给定的四个顶点创建 3DFace 对象。 

Add3DMesh 以给定的 M 和 N 方向上点的数目和坐标创建自由格式的三维网格。 

Add3DPoly 以给定的一组坐标创建三维多段线。 

AddArc 以给定的圆心、半径、起点角度和端点角度创建圆弧。 

AddAttribute 以指定的特性在给定的位置创建属性定义。 

AddBox 创建边与 WCS 轴平行的三维实心立方体。 

AddCircle 以给定的圆心和半径创建圆。 

AddCone 创建底面在 WCS 的 XY 平面上的三维实心圆锥体。 

AddCustomInfo 添加自定义属性字段到字段现有列表的尾部。(2005新增) 

AddCustomObject 创建自定义对象。 

AddCylinder 创建底面在 WCS 的 XY 平面上的三维实心圆柱体。

AddDim3PointAngular 使用三点创建角度标注。 

AddDimAligned 创建对齐标注对象。 

AddDimAngular 创建圆弧、两条直线或圆的角度标注。 

AddDimArc 创建圆弧的弧长标注。(2006新增) 

AddDimDiametric 以给定的直径上两个点和引线长度创建圆或圆弧的直径标注。 

AddDimOrdinate 以给定的定义点和引线端点创建坐标标注。 

AddDimRadial 在给定位置创建选定对象的半径标注。 

AddDimRadialLarge 创建圆弧、圆或多段线弧段的折角半径标注。(2006新增) 

AddDimRotated 创建旋转线性标注。 

AddEllipse 以给定的中心点、长轴上的点和半径比例在 WCS 的 XY 平面上创建椭圆。 

AddEllipticalCone 以给定的中心点、长轴、短轴和高度创建底面在 WCS 的 XY 平面上的三维实心椭圆形圆锥体。 

Ｖｏｌ　２Ｏ　Ｎｏ　４　

２０ｏ７．（）８　机械研究与应用　ＭＥＣＨＡＮＩＣＡＬ　ＲＥＳＥＡＲＣＨ＆ＡＰＰＬＩＣＡＴＩＯＮ　第２Ｏ卷第４期　２００７年８月　

基于Ａｕｔｏ　ＣＡＤ　ＶＢＡ的带传动应用模块开发　

胡琚，万宇杰，刘志刚　

（江汉大学机电与建筑工程学院，湖北武汉４３００５６）　

摘要：研究了Ａｕｔｏ　ＣＡＤ环境下实现带轮绘制以及绘图环境自动设定的详细过程，提供了一种基于ＶＢＡ及ＡｅｔｉｖｅＸ技术进行标准件　的设计方法，其方法对开发其它定型机械产品ＣＡＤ系统具有借鉴价值。　关键词：Ａｕｔｏ　ＣＡＤ；Ｖ带轮；ＶＢＡ；ＡｅｔｉｖｅＸ　中圈分类号：ＴＰ３９１．７２　文献标识码：Ａ　文章编号：１００７—４４１４（２００７）ｏ４一Ｏ１１４一Ｏ３　

Ａｐｐｌｉｃａｔｉｏｎ　ｍｏｄｅｌ　ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　ｔｈｅ　ｂｅｌｔ　ｄｒｉｖｅ　ｂａｓｅｄ　ｏｎ　Ａｕｔｏ　ＣＡＤ　ＶＢＡ　

Ｈｕ　Ｊｕｎ，Ｗａｎ　Ｙｕ—ｊｉｅ，Ｌｉｕ　Ｚｈｉ—ｇａｎｇ　

（＆ｈｏｏｌ　ｏｆｅｌｅｃｔｒｏｍｅｃｈａｎｉｃａｌ　ａｎｄ　ａｒｃｈｉｔｅｃｔｕｒａｌ　ｅｎｇｉｎｅｅｒｉｎｇ，Ｊｉａｎｇｈａｎ　ｕｎｗｅ￣ｉ＠，Ｗｕｈａｎ　Ｈｕｂｅｉ　４３００５６，Ｃｈｉｎａ）　

Ａｂｓｔｒａｃｔ：Ｓｔｕｄｙ　ｏｎ　ｔｈｅ　ｄｅｔａｉｌ　ｐｒｏｃｅｓｓｉｏｎ　ｏｆ　ｔｈｅ　ｂｅｌｔ　ｄｒｉｖｅ　ａｕｔｏｍａｔｉｃ　ｄｒａｗｉｎｇ　ａｎｄ　ｔｈｅ　ｐａｐｅｒ　ｓｅｔｔｉｎｇｓ　ｏｆ　Ａｕｔｏ　ＣＡＤ．　ｎｌｅ　ｓｔａｎｄａｒｄ　

ｐａｒｔｓ　ｄｅｓｉｇｎ　ｍｅａｓｕｒｅｓ　ａｒｅ　ｇｉｖｅｎ　ｏｕｔ　ｂａｓｅｄ　ｏｎ　ＶＢＡ＆Ａｃｔｉｖｅ　Ｘ　ｔｅｃｈｎｏｌｏｇｙ．Ｒｅｆｅｒｅｎｃｅ　ｖａｌｕｅ　ｉｓ　ｖａｌｉｄ　ｏｆ　ｔｈｅｓｅ　ｍｅａｓｕｒｅｓ　ｆｏｒ　ｔｈｅ　

ｏｔｈｅｒ　ｍｅｃｈａｎｉｃ　ｐｒｏｄｕｃｔｓ　ＣＡＤ　ｓｙｓｔｅｍ　ｄｅｖｅｌｏｐｍｅｎｔ．　

48-51JournalofGuangdongTechnicalCollegeofWaterResourcesandElectricEngineering，2009，Vol.7，No.2广东水利电力职业技术学院学报2009年第7卷第2期ISSN1672-2841CN44-1587/Z

对数坐标网格在股市行情分析、科学试验数据

分析、统计分析等方面应用非常广泛，但由于其专

业性较强，且绘制比较复杂，所以一般用户都会购

置现成的对数坐标纸进行手工绘制成果图，由此便

带来了绘制精度低、使用不方便等一系列问题。作

者在土工颗粒分析试验科研工作中，利用Visual

Basic编程语言对AutoCAD平台进行二次开发，编

写了土工试验计算绘图程序。利用程序自动完成试

验数据计算工作，并通过引用AutoCAD的类型库，

实现半对数坐标网格和颗粒级配曲线的批量自动化

绘制。坐标网格线条清晰，线宽和颜色可以自行设

置，成果图可以轻松插入到Word、Excel等办公软

件中，同时也可以转换成其它图片格式，使用效果

很好。本文主要介绍利用VB对AutoCAD进行二

次开发实现自动绘制半对数坐标网格的具体方法。

1开发软件及平台

VisualBasic(VB)是一种由微软公司开发的包含

协助开发环境的事件驱动编程语言，是一套可视

化、面向对象、事件驱动方式的结构化高级程序设

计语言，拥有图形用户界面(GUI)和快速应用程序

开发(RA)系统，可以轻易使用DAO、RDO、ADO

连接数据库，或者轻松创建ActiveX控件。程序员

可以轻松使用VB提供的组件快速建立一个应用程

序。基于ActiveX自动化界面技术(ActiveXautoma-

tionInterface)，VB可以通过Active对象实现对其它应用程序的控制。每个对象都有各自的方法和属

性，通过方法可以实现对对象的控制，而属性则可

以改变对象的各种状态。

AutoCAD(AutoComputerAidedDesign)是美国