不仅是CATIA软件具有VBA二次开发接口，很多机械设计软件也都具有VBA二次开发接口。本期，就来为大家介绍一下Auto CAD软件的VBA二次开发，使用VisualStudio软件编写一个能够在Auto CAD软件中绘制圆的软件。

Auto CAD软件版本：Auto CAD 2018。

Visual Studio软件版本：Microsoft Visual Studio Ultimate 2010。

一、项目创建

在Microsoft Visual Studio Ultimate 2010软件中创建“Windows窗口应用程序”模板项目，项目名称为Auto CAD画图工具。

二、Auto CAD对象库引用

在添加引用对话框中选择“COM”标签，然后在其下点选“AutoCAD 2018 Type Library”对象组件，将其引用到项目中。

三、软件窗体布置与属性设置

1.设置Form1窗体属性。

2.在Form1窗体中添加两个Label控件、1个TextBox控件、2个Button控件，添加完成后分别设置控件属性。

3.控件添加与属性设置完成后，将各个控件摆放至合适位置，然后拖动Form1窗体至合适大小。

四、Auto CAD软件连接

2.在Form1窗口的Load事件中编写代码，实现画图工具软件与Auto CAD软件的控制连接。

五、新建图纸功能实现

在“新建图纸”按钮的Click事件下编写新建图纸功能代码，并在编写完成后对功能进行运行测试。

六、画圆功能实现

在“创建圆”按钮的Click事件下编写绘制圆的功能代码，本次绘制使用的是圆心与半径约束创建圆的方法。

软件完整代码如下所示。

七、软件运行测试

1.对编写的代码进行测试，在没有打开Auto CAD软件的情况下弹出提示语句“请先打开AutoCAD软件”，若是Auto CAD软件已经打开，软件则可正常启动。

2.Auto CAD软件启动后，点击画图工具中的“创建圆”按钮，若是Auto CAD软件还未添加图纸文件，此时会弹出对话框提示“请先新建一张图纸或打开一张图纸”。

3.点击画图工具中的“新建图纸”按钮，在Auto CAD软件中新建一张图纸，然后再次点击“创建圆”按钮，可以看到在Auto CAD软件中创建了一个圆心位于（100，100）位置处，半径为50mm的圆。

4.改变圆半径设定值，再次点击“创建圆”按钮，将在相同位置处绘制出设定半径值的圆。