10.2. Вычерчивание точек

Ниже представлена простейшая программа для вставки точки в чертеж. Пользователь щелчком мыши указывает место на чертеже, где должна быть точка.

Пример 2.

Sub point1()

Dim pointM As ACAD_POINT

Dim Coord(2) As Double

Do

On Error GoTo Err

X = ThisDrawing.Utility.GetPoint(, «Укажите точку:»)

Set pointM = ThisDrawing.ModelSpace.AddPoint(X)

Loop

Err:

MsgBox «Ввод данных прерван!»

End Sub

Данный цикл продолжается бесконечно, пока пользователь не нажмет клавишу Enter, Esc ли недопустимое значение (строку). В этом случае генерируется ошибка ввода данных и цикл прекращается.

В AutoCAD ось X располагается горизонтально, а ось Y вертикально, что создает некоторые неудобства при вводе данных. Следующая программа исправляет этот недостаток. Правда вводить данные можно только с клавиатуры.

Пример 3.

Sub point2()

Dim pointM As ACAD_POINT

Dim Coord(2) As Double

Do

On Error GoTo Err

X = ThisDrawing.Utility.GetDistanse(, «Введите координату X:»)

Y = ThisDrawing.Utility.GetDistanse(, «Введите координату Y:»)

Coord(0) = Y ‘координата X

Coord(1) = X ‘координата Y

Coord(2) = 0 ‘координата Z

Set pointM = ThisDrawing.ModelSpace.AddPoint(Coord)

Loop

Err:

MsgBox «Ввод данных прерван!»

End Sub

Данная программа просто меняет местами данные в массиве.

Помимо простой точки можно вставлять и целые блоки. Например, необходимо нанести на чертеж точки теодолитного хода. Условный знак для них следующий:

Для этого открываем новый чертеж. Рисуем этот

условный знак. Знак должен быть небольшого размера

(диаметр круга в данном случае 10 см). Далее

в командной строке набираем wblock, нажимаем

Enter.

Появится диалоговое окно Write Block

(записать блок). Щелчком мыши нажимаем на кнопке

Select Object (Выбрать объекты) и

выбираем те объекты, которые необходимы для

составления блока. Нажимаем на кнопку Pick Point

и указываем на чертеже базовую точку вставки.

Обычно это центр знака. Если для составления блока нужны абсолютно все элементы, то можно поставить опцию Entire Drawing. В поле File Name and pach укажем имя блока и папку где они будут хранится. Нажимаем ОК.

Вот текст макроса, рисующего данный блок.

Пример 4.

Sub point3()

Dim pointM As ACAD_POINT

Dim blk As AcadBlock

Dim Coord(2) As Double

Do

On Error GoTo Err

X = ThisDrawing.Utility.GetDistanse(, «Введите координату X:»)

Y = ThisDrawing.Utility.GetDistanse(, «Введите координату Y:»)

Coord(0) = Y

Coord(1) = X

Coord(2) = 0

InsertPoint = Coord

strBlkName = “E:\Uznak\TP.dwg”

XScale = 1’масштаб по оси X

YScale = 1’масштаб по оси Y

ZScale = 1’масштаб по оси Z

Angle = 0 ‘угол поворота блока

Set pointM = ThisDrawing.ModelSpace.AddPoint(Coord)

ThisDrawing.ModelSpace.InsertBlock InsertPoint, strBlkName, XScale,YScale,ZScale, Angle

Loop

Err:

MsgBox «Ввод данных прерван!»

End Sub

Можно определить любое количество блоков, сохранить их в данном каталоге. Таким образом можно создавать свои библиотеки условных знаков.