先在 工程－引用 里面增加 aucocad类型库然后写代码如下：

Private Sub Command1_Click()

Dim p1(2) As Double, p2(2) As Double, p3(2) As Double

Dim acad As AcadApplication

Dim adoc As AcadDocument

Dim aline As acadline

Dim dima As AcadDimAligned

Set acad = CreateObject("autocad.application.16")

acad.Visible = True

Set adoc = acad.Documents.Add

p1(0) = 100: p1(1) = 100: p1(2) = 0

p2(0) = 1000: p2(1) = 1000: p2(2) = 0

p3(0) = 500: p3(1) = 520: p3(2) = 0

Set aline = adoc.ModelSpace.addline(p1, p2)

aline.Color = acblue

Set dima = adoc.ModelSpace.AddDimAligned(p1, p2, p3)

dima.TextHeight = 15

dima.TextColor = acGreen

dima.ArrowheadSize = 10

End Sub