'Связывает переменную ADoc с объектом-чертежом

Set ADoc = ACad.ActiveDocument

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

Set MSpace = ADoc.ModelSpace

'Вычерчивание перекрестья в точке центра

For i = 0 To 1

Select Case i

Case 0

'Вычисление координат точек 1-й линии перекрестья

StartPoint(0) = Center(0)

StartPoint(1) = Center(1) - 2.5

StartPoint(2) = 0

EndPoint(0) = Center(0)

EndPoint(1) = Center(1) + 2.5

EndPoint(2) = 0

Case 1

'Вычисление координат точек 2-й линии перекрестья

StartPoint(0) = Center(0) - 2.5

StartPoint(1) = Center(1)

StartPoint(2) = 0

EndPoint(0) = Center(0) + 2.5

EndPoint(1) = Center(1)

EndPoint(2) = 0

End Select

'Вычерчивание линий перекрестья и задание цвета линии

With MSpace.AddLine(StartPoint, EndPoint)

.Color = Color

End With

Next i

'Вычисление координат точек отрезка шестиугольника

StartPoint(0) = Center(0) - S / 2

StartPoint(1) = Center(1) - Tan(Pi / 6) * S / 2

StartPoint(2) = 0

EndPoint(0) = Center(0) - S / 2

EndPoint(1) = Center(1) + Tan(Pi / 6) * S / 2

EndPoint(2) = 0

'Вычерчивание стороны шестиугольника

Set ObjVar = MSpace.AddLine(StartPoint, EndPoint)

'назначение цвета линии

With ObjVar

.Color = Color

End With

'Вычерчивание кругового массива

'первый параметр функции - количество сторон (шестиугольника)

'второй параметр - полный угол поворота массива (300 градусов)

'третий параметр - точка центра кругового массива

Set ObjArr = ObjVar.ArrayPolar(6, 2 * Pi - Pi / 3, Center)

'Вычерчивание окружности, вписанной в шестиугольник

'первый параметр функции - точка центра окружности

'второй параметр - радиус окружности

Set ObjCircle = MSpace.AddCircle(Center, S / 2)

'назначение цвета окружности

With ObjCircle

.Color = Color - 5

End With

End Sub

Использование VBA-приложения.

Для выполнения созданной программы следует:

- запустить программу AutoCAD;

- открыть книгу Excel с созданной программой;

- задать в ячейки Листа исходные данные и нажать кнопку «Старт»;

- перейти в окно AutoCAD и вывести указатель мыши на поле чертежа. На поле чертежа появится изображение головки болта – шестиугольник с вписанной окружностью (см. рис.8).

Если AutoCAD не запущен, то результатом работы программы будет сообщение (см. рис.9).