В результате получим на Листе кнопку (см. рис.6), а в редакторе VBA – процедуру, выполняющуюся при нажатии на кнопку (см. рис.7). Процедура пока не имеет содержания и ничего не выполняет.

Рис.7.

3 этап. Составляем процедуру построения изображения в AutoCAD:

- добавляем в проект ссылку на библиотеку типов AutoCAD: ToolsPreferencesAutoCAD Object Library;

- далее приводим текст программы с поясняющими комментариями:

Private Sub CommandButton1_Click()

'Комментарии

'Построение головки болта (вид сверху) на поле чертежа AutoCAD

'по заданным координатам центра и размеру под ключ.

'Исходные данные на листе "Исходный".

'Программа AutoCAD должна быть запущена и находится в режиме работы

'в пространстве модели(ModelSpace)

'Описание переменных

Dim ACad As Object 'переменная связи с приложением AutoCAD

Dim ADoc As Object 'переменная связи с чертежом

Dim MSpace As Object 'переменная связи с пространством модели

Dim ObjVar As Object 'переменная связи с объектом-линией

Dim ObjArr As Object 'переменная связи с объектом-массивом

Dim ObjCircle As Object 'переменная связи с объектом-окружностью

Dim Center(0 To 2) As Double 'точка центра

Dim StartPoint(0 To 2) As Double 'точка начала линии

Dim EndPoint(0 To 2) As Double 'точка конца линии

Dim S As Double 'размер под ключ

'Описание констант

Const Color As Integer = 5 'цвет линии

Const Pi As Double = 3.14159265358979

'Чтение данных из ячеек Листа

Center(0) = Sheets("Исходный").Cells(3, 3) 'координата Х

Center(1) = Sheets("Исходный").Cells(4, 3) 'координата У

Center(2) = 0 'координата Z

S = Sheets("Исходный").Cells(7, 3) 'размер под ключ

On Error Resume Next 'Отложенный перехват ошибок.

'Связывает переменную ACad с объектом-приложением AutoCAD

Set ACad = GetObject(, "AutoCAD.Application")

'Если AutoCAD не работает, то оператор Set возвратит ошибку в

'переменную Err, о чем будет сообщено в окне-сообщении,

'и программа завершит работу

If Err.Number = 429 Then

MsgBox "AutoCAD не запущен."

Exit Sub

End If