一、必不可少的對象引用

使用activex需要在項目屬性中勾選以下兩個引用，若找不到，則瀏覽定位直接添加下面兩個文件，可以看到位于cad的安裝路徑下，圖中的3個mgd.dll也可以勾選。

C:\Program Files\Autodesk\AutoCAD 2024\Autodesk.AutoCAD.Interop.dll

C:\Program Files\Autodesk\AutoCAD 2024\Autodesk.AutoCAD.Interop.Common.dll

二、新建一個窗體和按鈕，并在代碼窗口，輸入如下代碼

Imports Autodesk.AutoCAD.Interop

Imports Autodesk.AutoCAD.Interop.Common

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim ta As New AcadApplication'定義并實例化一個cad對象，會在后臺啟動cad

dim aLin As AcadLine, ms As AcadModelSpace'定義一個直線和模型空間對象

Dim pt1(0 To 2) As Double'定義起終點數組

Dim pt2(0 To 2) As Double

pt1(0) = 0 : pt1(1) = 0 : pt1(2) = 0'給起終點數組賦值

pt2(0) = 10 : pt2(1) = 10 : pt2(2) = 0

ta.Visible = True'顯示cad窗口

ta.ActiveDocument.Utility.Prompt("hello cad")'命令行顯示提示信息

ms = ta.ActiveDocument.ModelSpace'獲取當前模型空間

aLin = ms.AddLine(PT1, PT2)'在當前模型空間創建一條直線

End Sub

End Class

先引用cad定義文件，再用New關鍵字實例化，屬于先期綁定，也可用getobject（）和createobject（）進行后期綁定，具體哪種可根據需要調整。

程序運行結果如下，當然這只是一個非常基本非常簡單的框架，隨后可以在此基礎上按需添加更多的代碼實現更多的功能！