cad中vba编程代码大全（AutoCAD二次开发基于VBA语言的画圆软件开发）

不仅是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软件连接

1.双击Form1窗体控件，在代码编辑区的最前面添加Auto CAD对象库引用代码。

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

五、新建图纸功能实现

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

六、画圆功能实现

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

软件完整代码如下所示。

Imports AutoCAD Public Class Form1 Dim AcadApp As AcadApplication Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Try '获取AutoCAD软件COM对象 AcadApp = GetObject(, "AutoCAD.Application") Catch ex As Exception '未打开AutoCAD软件时提示打开软件 MsgBox("请先打开AutoCAD软件。") End End Try End Sub Private Sub CmdCreateDrawing_Click(sender As System.Object, e As System.EventArgs) Handles CmdCreateDrawing.Click '创建新图纸 AcadApp.Documents.Add() End Sub Private Sub CmdCreateCircle_Click(sender As System.Object, e As System.EventArgs) Handles CmdCreateCircle.Click Dim CircleObj As AcadCircle Dim CenterPoint(0 To 2) As Double Dim Radius As Double '定义圆心坐标数据 CenterPoint(0) = 100.0 : CenterPoint(1) = 100.0 : CenterPoint(2) = 0.0 '获取圆半径数据 Radius = Val(CircleRadiusTextBox.Text) Try '创建圆 CircleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle(CenterPoint, Radius) '显示整个图形 AcadApp.ZoomAll() '更新视图 CircleObj.Update() Catch ex As Exception MsgBox("请先新建一张图纸或打开一张图纸。") End Try End Sub End Class

七、软件运行测试

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

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

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

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

The End

---

上一篇：CATIA软件二次开发：焊点小球生成工具应用程序编写

,