基于VBA的AutoCAD二次开发及应用实例
cad二次开发基础教程和实例档
大家知道什么是宏吗？说白它就是VBA过程。
看下面的代码：Public Sub MacroDemo()MsgBox "Hello,Welcome to AutoCAD VBA!"End Sub这就是宏。
打开CAD输入命令vbaide回车会出现VBA的编辑界面，双击ThisDrawing在右侧的代码区输入上面的代码。
如下图：然后按F5键会出现宏窗口，如下图：点击运行，大家看到什么？这就是一个最简单的一个用VBA对CAD进行二次开发的程序，也就是宏那什么是VBA呢？VBA就是VB的一个子集它的全称是Visual Basic For Application,它具有VB的大部分功能。
既然我们选择了VBA，我们首先要知道VBA能操作CAD里的哪些对象呢？打开VBAIDE窗口按下F2键会出现对象浏览器。
如下图库选择AutoCAD,这时下面显示的就是CAD为VBA提供的可操作的对象的类了。
这时有的人因没有基础，所以还是一头雾水，别怕，选中一个类图标后按F1，这时会弹出AutoCAD ActiveX and VBA Reference,选择最上面的一个子项Object Model(对象模型)，这个就是在CAD里那些对象的关系，如下图：如果英文不好的话，可以安装CAD2000,它的这个部分是中文的。
为想学好VBA二次开发这个是必需的，而且VBA对Office的二次开发也是这样的。
这个在编程界叫做Active X,包括Active X控件、Active X DLL、和Active X EXE就好比一个程序为其它程序提供的一个后门一样下面我就给大家讲一下菜单吧。
因为我们用到的其它公司做CAD二次开发的插件，从直观上首先接触的就是它的菜单，刚开始用的时候就是从它的菜单开始接触的。
我经常用到的做菜单的方法有两种，一种是用CAD的菜单文件，另一种就是用VBA代码直接长成菜单。
我先介绍第一种，CAD的菜单文件它是文本文件，我们用记事本就可打开并编辑它，或者再重新创建一个说到这里有的人可能要问了，我应该从何处开始入手呢，要怎样做呢？别急，CAD本身就有现成的供我们参考，就放在CAD的安装文件夹下的Support文件夹内，或者其它插件的文件夹内，找不到可以按F3搜一下，扩展名分别为.mnu .mns ,mnc默认的菜单文件是acad.mnu。
基于VBA的AutoCAD二次开发在图纸明细表中的应用
解 决 上 述 问 题 成 为 构 建 应 用 项 制 作 成 属 性 块 ， 程 序 调 用 插 入 时 ， 程 序 的 关 键 ， 应 用 程 序 设 计 的 基 根 据 用户 输 入 的表 项 内容 ，程 序 自动
关键 词 ： 总装 图 ； 明细 表 ；Ａ ｔ Ｃ Ｄ ｕ ｏ Ａ ；二 次 丌 发 ；Ｖ Ａ Ｂ
Ｏ引 言
图 纸 文 件 中 总 装 图 是 产 品 必 不 可
多 条 表 项 时 ， 需 要 手 工 调 整 表 项 位 置 Ｆ ｒ ｐ ｉ ａ ｏ ）、Ｏ ｅ ｔ Ｒ 等 ， ｏ Ａ ｐｌ ｃ ｔｉ ｎ ｂｊ ｃ Ａ Ｘ 并 重 新 编 辑 表 项 的 序 号 值 ： ３ 明 细 ） 利 用 这 些 开 发 工 具 用 户 可 以方 便 地 自
间 ， 而 且 易 出 错 。Ａ ｔ Ｃ Ｄ 于 Ｔ ｇ 建 ｕｏ Ａ 中 ．， Ｊ 装 图 中 引 用 了 子 部 件 ， 子 部 件 同样 有
述 的手 工 操 作 完 成 的 种 种 不 足 之 处 。
明 细 表 的 一 般 方 法 是 表 项 采 用 属 性 块
生成 ，指 引线采 用Ｌ ａ ｅ 命令 生成 ， ｅｄｒ
对 象 的 关 键 不 是 如 何 创 建 、 编 辑 对 象 表 头 、 明 细 表 表 项 等 对 象 。 指 引 线 由 及 其 后 处 理 ， 问题 的关 键 在 于 ： １ 明 点 、 直 线 或 圆 单 行 文 字 等 组 成 ， ） 、 用 札 ＋ Ｄ ＋ 细 表 对 象 创 建 后 如 何 存 储 在 图 形 文 件 户 选 择 点 后 由程 序 自动 生 成 ， 生 成 后
基于VBA的AUTOCAD二次开发及应用实例
基于VBA的AutoCAD二次开发及应用实例时间：2011-10-0318:25:09来源：作者：1引言AutOCAD2005是AutOdesk公司的系列产品，该软件从其使用和设计思路上都秉承了工程制图人员的绘图习惯，能够非常轻松地绘制出带有平面视图和三维渲染效果的工程图纸，是绘图人员的一个理想工具。
随着CAD基础理论和应用技术的不断发展，对CAD系统的功能要求也越来越高。
因而AutoCAD 不可能完全满足每个用户的具体而特定的要求。
设计人员希望它能从本质上减轻大量简单烦琐的工作量，使他们能集中精力于那些富有创造性的高层次思维活动中。
AutoCAD提供的开放式体系结构允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求，更方便、更规范、更专业的实现设计和绘图中的应用。
VBA最早是建立在0ffice97中的标准宏语言，由于它在开发方面的易用性及具有的强大功能，许多软件开发商都将其嵌入自己的应用程序中，作为一种开发工具提供给用户使用。
AutOdeSk公司自从Aut0CADRl4．0l版开始，内置了VBA开发工具。
新一代程序开发工具ViSual BaSic，不仅继承了面向对象方法的特性，同时具备可视化程序语言及程序产生器的概念。
VBA(visual Basic For Apphcation)是AutoCAD R12以后推出的一种新的编程环境，提供了以Visual Basic为基础的面向对象的开发特征及程序接口，能真正快速地访问AutOCAD图形数据库，能明显提高软件开发和维护的效率。
2VBA的技术特性2．1VBA开发AUTOCAD的技术特点VBA是微软开发出来的应用程序共享一种通用的自动化语言，它可以使常用的程序自动化，并可以创建自定义的解决方案。
VBA被集成到AutoCAD中，VBA和AutoCAD中强大的Activex自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。
基于VBA在AutoCAD中自动绘图的应用
基于VBA在AutoCAD中自动绘图的应用------李广亚随着电脑技术的飞速发展，目前大多数企业都采用AutoCAD制图、绘图，在工程施工领域也是采用AutoCAD进行二维工程绘图。
GPS的应用使的施工现场坐标的采集非常方便，通常便于直观，监理、业主会要求将GPS采集的坐标绘制在CAD图上。
对于一个熟悉CAD的人来说，将10几个坐标数据手工录入坐标绘制到CAD中是比较容易的，但如果是几十个点，上百个点，甚至几百个点，对于一个施工技术员来说一个一个坐标的手工录入，就成了一个比较有难度的工作，主要因为手工录入会比较繁琐、耗费时间长还特别容易出错。
在这方面如何能提高技术人员的工作效率？基于此，我们采用AtuoCAD中的VBA技术，进二次开发，可以方便的将大量的坐标自动绘制到CAD图中。
下面通过一个简单事例来说明AtuoCAD中VBA技术的二次开发自动绘图程序的过程： 事件介绍：2012年业主在场区开挖一不规则多边形鱼塘，要求我单位将鱼塘进行测量并标注在总平面图上。
1、数据采集：使用GPS现场进行数据采集，在鱼塘周边从一点开始，顺时针方向进行，在不规则鱼塘的所有角点拐点均采集坐标，并保存在GPS中。
2、导出坐标：将GPS中采集的坐标导出到文本文档，如下图：3、数据处理：将导入的坐标使用EXCEl文档打开并编辑处理，高程全设为0，表单重命名为“SJ”，保存EXCEl文档到D盘，文档名称为“GPS导入坐标绘图”如下图：4、VBA跨平台技术二次开发：（1）、打开AutoCAD，选择工具->宏->VBA编辑器，打开VBA编辑器。
在VBA编缉器中插入用户窗体，在窗体上插入按钮组件，如图：（2）、双击按钮，打开代码编辑窗口，编缉代码如下：Private Sub CommandButton1_Click()Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSet xlapp = CreateObject("excel.application")Set xlbook = xlapp.workbooks.Open("D:\GPS导入坐标绘图.xls")'打开的EXCEL路径xlapp.Visible = FalseSet xlsheet = xlbook.worksheets("sj") '打开EXCEL中的sj工作表i = xlsheet.Cells(1, 2) 'i为线条线数For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(3 + p, 3) '将表格第3行第3列内数值赋值给K1，X坐标值h1 = xlsheet.Cells(3 + p, 2)k3 = xlsheet.Cells(3 + p, 4)k2 = xlsheet.Cells(4 + p, 3)h2 = xlsheet.Cells(4 + p, 2)h3 = xlsheet.Cells(4 + p, 4)Dim 点 As AcadLineDim 起点(2) As DoubleDim 端点(2) As Double起点(0) = k1 '将K1值贱赋值给起点数组内第一个值，即起点X坐标。
基于VBA的AutoCAD二次开发及其应用
基于VBA的AutoCAD二次开发及其应用
韩成龙;吕志鹏;廖燕
【期刊名称】《机械工程师》
【年(卷),期】2007(000)005
【摘要】利用AutoCAD的VBA技术开发的任意闭合图形面积的计算功能,弥补了AutoCAD面积查询功能的不足,并且实现了该VBA程序的菜单发布,有利于用户的操作.由实例可知,计算精度非常高,能够满足工程需要.
【总页数】2页(P36-37)
【作者】韩成龙;吕志鹏;廖燕
【作者单位】长江大学,机械工程学院,湖北,荆州,434023;长江大学,机械工程学院,湖北,荆州,434023;长江大学,机械工程学院,湖北,荆州,434023
【正文语种】中文
【中图分类】TB237
【相关文献】
1.基于VBA的AutoCAD二次开发在地质图中的应用 [J], 邓国成;王莉;朱宏
2.基于VBA的AutoCAD二次开发在图纸明细表中的应用 [J], 任中海
3.基于VBA的AutoCAD二次开发及应用实例 [J], 王若慧
4.基于VBA的AutoCAD二次开发在矿图中的应用 [J], 张涛;汪云甲
5.基于VBA的AutoCAD二次开发在巷道断面参数化建模中的应用 [J], 张杰因版权原因，仅展示原文概要，查看原文内容请购买。
autocad二次开发(VBA)就这么简单
autocad二次开发(VBA)就这么简单autocad二次开发(VBA)就这么简单运行autocad，创建一个新文件，Alt+F11（或者在菜单栏点“工具”→“宏”→“Visual Basic 编辑器”），在新出现的窗口菜单栏点“插入”→“模块”，输入下面的代码：Sub 我的第一个程序()Dim 直线1 As AcadLineDim 起点(0 TO 2) As DoubleDim 端点(0 TO 2) As Double起点(0) = 10起点(1) = 20端点(0) = 80端点(1) = 100Set 直线1 = ThisDrawing.ModelSpace.AddLine(起点, 端点)End Sub检查一下，确信没有问题后按F5回到autocad窗口，看见了吗？一条直线，起点坐标(10,20)，端点坐标(80,100) 这个程序的第一行里，“SUB”和“()”是必须有的（人家微软就是这么规定的，我也没办法），“我的第一个程序”是这个程序的名字（如果你不喜欢也可以改个别的名字，我无所谓）。
第二行里，“Dim”是定义一个变量，“直线1”是要画的直线的名字（随便改，中英文都行），后面的英文必须有，意思是说：这是一条autocad直线。
第三行里，“起点(2)”是一个数组（因为我要用它给直线赋予起点，所以取了个直观的名字，又因为点的坐标是三维的，所以必须用能容纳三个数据的数组），后面的英文意思是“这个数据是双精度类型”。
第四行和第三行差不多，是用来给直线赋予端点的。
第五行和第六行是分别赋值给起点的x和y坐标（因为起点的z坐标是0，而定义这个数组的时候，默认数据就是(0,0,0)，所以就不用管z坐标了）。
第七行、第八行赋值给端点x和y坐标。
第九行画直线，在“当前文件”的“模型空间”“画直线（按起点和端点）”。
第十行，完事了。
有的网友一看见英文，头就会变大。
别怕，如果你是用“复制/粘贴”把这段代码拷贝到VB编辑器里，就不会知道autocad有多么友善。
AutoCAD二次开发的方法与实例
AutoCAD二次开发的方法与实例AutoCAD是一款广泛应用的CAD软件，具有二次开发的能力。
AutoCAD二次开发是将AutoCAD的API和开发工具与其他软件的API和工具结合使用，并将AutoCAD的功能与其他应用程序的功能集成。
AutoCAD二次开发可以自动化绘制过程，节省时间和人力，提高生产率。
AutoCAD二次开发的方法：1.使用ObjectARX进行自定义编程ObjectARX是一种C ++编程接口，可用于开发自定义应用程序和高级命令。
ObjectARX可以让程序员使用全局变量、类和函数等等。
使用这些概念来创建与AutoCAD交互的自定义应用程序。
ObjectARX还提供了一些命令、选项和工具来帮助程序员将其自定义代码集成到AutoCAD中。
2.使用Visual Basic for Applications (VBA)进行自定义编程VBA是一种广泛使用的面向对象编程语言，是Microsoft Office的一部分。
通过在AutoCAD的VBA编辑器中编写代码，程序员可以创建自定义命令和功能，以满足其特定的绘图需求。
VBA还提供了一些内置函数和对象，使编程更加简单和直观。
3.使用.NET Framework进行自定义编程使用.NET Framework，程序员可以使用多种编程语言（如C#、、F#等）来编写与AutoCAD交互的应用程序。
通过将.NET程序集嵌入到AutoCAD中，程序员可以创建自定义工具栏、菜单和命令。
.NET Framework还提供了大量的功能和类库，使得开发更加高效和简单。
AutoCAD二次开发的实例：1. 使用VBA实现批量修改AutoCAD文件名Sub BatchRename()Dim sDir As StringDim sOldName As StringDim sNewName As StringDim sMessage As StringsDir = InputBox(\。
基于VBA的AutoCAD二次开发及其应用(1)
具体代码如下： Ｓｕｂ ＣａｌｃｕｌａｔｅＤｅｆｉｎｅｄＡｒｅａ（ ） Ｄｉｍ ｎ Ａｓ Ｌｏｎｇ ｎ＝ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．Ｃｏｕｎｔ Ｄｉｍ ｐｔ Ａｓ Ｖａｒｉａｎｔ ｐｔ＝ＴｈｉｓＤｒａｗｉｎｇ．Ｕｔｉｌｉｔｙ．ＧｅｔＰｏｉｎ（ｔ ， ＂ａｓｓａｉｎ ｔｈｅ ｉｎｗｏｒｄ ｐｏｉｎｔ＂） ＴｈｉｓＤｒａｗｉｎｇ．ＳｅｎｄＣｏｍｍａｎｄ ＂ｈｐｂｏｕｎｄ＂ ＆ ｖｂＣｒ ＆ ０ ＆ ｖｂＣｒ ＴｈｉｓＤｒａｗｉｎｇ．ＳｅｎｄＣｏｍｍａｎｄ ＂－ ｂｏｕｎｄａｒｙ＂ ＆ ｖｂＣｒ ＆ ｐ（ｔ ０） ＆ ＂， ＂ ＆ ｐｔ （ １） ＆ ｖｂＣｒ ＆ ｖｂＣｒ Ｄｉｍ ｏｂｊｐｏｌｙ Ａｓ ＡｃａｄＲｅｇｉｏｎ Ｉｆ ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．Ｃｏｕｎｔ ＞ ｎ Ｔｈｅｎ Ｓｅｔ ｏｂｊｐｏｌｙ＝ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ．Ｉｔｅｍ（ ＴｈｉｓＤｒａｗｉｎｇ．ＭｏｄｅｌＳｐａｃｅ． Ｃｏｕｎｔ－ １） ＭｓｇＢｏｘ ＂所选图形的面积为： ＂ ＆ ｏｂｊｐｏｌｙ．Ａｒｅａ ｏｂｊｐｏｌｙ．Ｄｅｌｅｔｅ Ｅｌｓｅ ＭｓｇＢｏｘ ＂没有找到封闭的图形！ ＂ Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ ４ ＶＢＡ 程序的发布
在保存好菜单文件后， 用户可以通过选择“工具”“｜ 自 定义”“｜ 菜单”来加载用户自定义的菜单。本文所加载的菜 单如图 １ 所示。
首先点击该菜单， 然后在所要计算的任意闭合图形
的内部单击鼠标即可弹出如图 ２ 所示显示面积的对话
框。图 ２ 是计算的长半轴为 １０， 短半轴为 ５ 的椭圆的面
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
基于VBA的AutoCAD二次开发及应用实例时间：2011-10-03 18:25:09 来源：作者：1引言AutOCAD2005是AutOdesk公司的系列产品，该软件从其使用和设计思路上都秉承了工程制图人员的绘图习惯，能够非常轻松地绘制出带有平面视图和三维渲染效果的工程图纸，是绘图人员的一个理想工具。
随着CAD基础理论和应用技术的不断发展，对CAD系统的功能要求也越来越高。
因而AutoCAD不可能完全满足每个用户的具体而特定的要求。
设计人员希望它能从本质上减轻大量简单烦琐的工作量，使他们能集中精力于那些富有创造性的高层次思维活动中。
AutoCAD提供的开放式体系结构允许用户和开发者采用高级编程语言对其进行扩充和修改，即二次开发，能最大限度地满足用户的特殊要求，更方便、更规范、更专业的实现设计和绘图中的应用。
VBA最早是建立在0ffice97中的标准宏语言，由于它在开发方面的易用性及具有的强大功能，许多软件开发商都将其嵌入自己的应用程序中，作为一种开发工具提供给用户使用。
AutOdeSk公司自从Aut0CADRl4．0l版开始，内置了VBA开发工具。
新一代程序开发工具ViSual BaSic，不仅继承了面向对象方法的特性，同时具备可视化程序语言及程序产生器的概念。
VBA(visual Basic For Apphcation)是AutoCAD R12以后推出的一种新的编程环境，提供了以Visual Basic为基础的面向对象的开发特征及程序接口，能真正快速地访问AutOCAD图形数据库，能明显提高软件开发和维护的效率。
2 VBA的技术特性2．1 VBA开发AUTOCAD的技术特点VBA是微软开发出来的应用程序共享一种通用的自动化语言，它可以使常用的程序自动化，并可以创建自定义的解决方案。
VBA被集成到AutoCAD中，VBA和AutoCAD中强大的Activex自动化对象模型的结合，代表了一种新型的定制AutoCAD的模式构架。
通过VBA，我们可以操作AutoCAD2004，控制ActiveX和其它一些应用程序，使之相互之间发生互易活动下面就是VBA的主要功能：(1)VBA提供强大的窗体创建功能，为应用程序建立对话框及其他屏幕界面。
(2)可以创建自己的工具条。
(3)可以创建功能强大的模块级宏指令，宏名实质上就是模块的过程名。
(4)提供建立类模块的功能，这对开发大型工程非常有用，因此类可以提供重用组。
(5)具备完善的数据访问和管理能力，通过ADO(ActivexData Objects)，可以对Access数据库或其他外部数据库(像dBase，FoxPro等)实现访问和管理。
此功能比直接使用AutoCAD的数据库管理系统要方便，且功能强大。
2．2 VBA AutoCAD ActiveX Automation对象模型VBA是通过AutoCAD ActiveX Automation接口来建立和AutoCAD对象问的联系。
ActiveX是建立在COM对象模型之上的一个标准通信协议，它允许对象之间通过一定的接口相互通信。
AutoCAD Activex使用户能够从AutoCAD的内部或外部以编程方式来操作AutoCAD。
它是通过将AutoCAD对象显示到“外部世界”来做到这一点的。
这些对象被显示后，许多不同的编程语言和环境以及其他应用程序(例如Microsonword VBA或Excel VBA)就可以访问它们。
如图1是编程语言和应用程序通过AutoCAD ActiveX访问AutoCAD。
图1 编程语言和应用程序通过AutoCAD AcfiveX访问AutoCAD在AutoCAD中实现ActiveX接口有两大优点：·更多的编程环境可以编程访问AucOCAD图形。
在ActiveXAutomation 出现以前，开发人员只能使用AutoLISP或C++接口。
·与其他windows应用程序(如Microsoft ACCESS和Word)共享数据变得更加容易。
对象是所有Activex应用程序的主要构造块。
每一个显示的对象均精确代表一个AutoCAD组件。
AutoCAD ActiveX接口中有许多不同类型的对象。
例如：·直线、圆弧、文字和标注等图形对象都是对象。
·线型与标注样式等样式设置都是对象。
·图层、编组和块等组织结构都是对象。
·视图与视口等图形显示都是对象。
·甚至图形、AutoCAD应用程序本身也是对象。
AutoCAD对象是通过分层方式来组织的，应用程序对象为根对象。
这种分层结构的视图被归结为对象模型。
对象模型提供了用户访问下一层对象的途径。
用户可直接通过用户定义变量引用对象。
直接引用对象，应包括对象的层次。
举一个最简单的例子，在VBA中要利用圆心和半径创建圆可以使用以下代码：Sub drawcircle()* Dim ptl(2)As DoubleDim radius As Doubleptl(0)=23ptl(1)=78Dtl(2)=67radius=56’调用Addcircle方法绘制圆ThisDrawing．Modelspace．addcircle ptl，radiusEnd Sub3 AUTOCAD VBA实例应用这个实例，介绍了VBA开发AUTOCAD实现参数化绘图的编程思路与实际应用，是CAD系统中很重要的环节。
3．1绘制三维图形实例说明(1)．本程序运行界面如图2所示，用户可以指定中心点，桌面及桌腿半径，桌子的高度，系统就能根据用户指定的参数在三维空间中创建出一个桌子。
(2)．编程思路核心问题是创建大小圆的面域，复制出来的桌腿，角度的旋转及最后的合并着色。
3．2 VBA开发AutoCAD2005的技术流程(1)首先在AUTOCAD2004中，选择[工具／宏／VBA管理器]菜单项，在弹出的[VBA管理器]对话框中单击[新建]按钮，将其保存在适当的位置。
(2)在[VBA管理器]对话框中单击[Visual Basic编辑器]按钮，进入VBA 集成开发环境，选择[插入／用户窗体]菜单项，向工程中添加一个用户窗体。
图2 创建桌子运行界面(3)在用户窗体上插入如图2所示的相关控件，并按下表分别设置它们的相关属性。
(4)相关代码：l>．在Cammandbutton2命令按钮的单击Click事件的代码为：图3桌子的参数化绘图(2)在AutoCAD2004中，选择[视图／着色／体着色]菜单项，对生成的模型进行着色，所得结果，如图4所示图4 创建桌子运行界面该实例可以连接上数据库，使用时可以直接调用数据库中的参数，直接运行得出所需的图形。
4 AUTOCAD VBA数据库连接技术4.1 ADO数据库访问技术别随着CAD技术的发展，在CAD软件中使用数据库的场合越来越多,数据库连接方法ADO是Microsoft AcciveX Data ObjeCts的简称，ADO作为一种更新的数据库访问技术，“扩展”了DA0和RD0所使用的对象模型，包含较少的对象和更多的属性、方法、事件。
本节仅介绍ADO控件连接MICROSOFT、ACCESS数据库的基本操作，桌子的各个参数，存放在数据库DESK．mdb中，可以用于浏览数据库中的各条记录，还可以完成记录的添加，修改和删除操作。
在使用ADO对象之前，需要在VBA集成开发环境中，选择[工程／引用]菜单项，从弹出的对话框中选中[microsoft ActiveX Data Objects 2.5 Livrary]选项，引用ADO的对象模型，如图5所示图5 引用ADO的对象模型4．2 ADO编程在编程过程中使用AD0的一个典型的存取数据的步骤为：(1)连接数据源。
可以使用连接对象的Open方法打开数据库对象，例如：adoCon．Open“Provider=Microsoft．Jet．OLEDB．4．0；DataSource=“&_Left(strPath，Len(strPam)一6)&”＼DESK．mdb；”(2)打开记录集对象。
可以使用记录集对象的Open方法打开记录集对象，例如：adoRs．Open“biaoData2”，adoCon，adOpenDynamic，adLockOptimiStic(3)使用记录集。
在各个记录集之间切换一般可以使用记录集对象的Move、MoveFirst、MoveNext、MovePrevious和MoveLast方法，添加新的记录可以使用记录集对象的AddNew方法，修改当前记录的内容只需对数据库记录集中的对象重新赋值即可，删除当前的记录可以使用记录集的Delete方法。
其中，记录集在进行添加的操作之后，必须使用Update方法更新数据库。
(4)断开连接。
使用close方法能够关闭记录集和数据库连接对象，在退出程序之后，必须用close方法关闭这两个对象。
向工程中添加一个用户窗体，并在窗体中放置如图6所示的控件。
向工程中添加一个用户窗体，并在窗体中放置如图6所示的控件。
图6桌子的数据库连接5 结束语基于VBA的AutoCAD二次开发技术，可以实现AUTOCAD功能的拓展及参数化没计，如零件标准图库的建立等各个方面，更好的满足机械电子行业等系列化产品的专业设计。
对于大型CAD应用软件的开发，能发挥极大的作用。
各大企业也在开发自己的CAD系统，具有很好的实用价值。