Milli aviasiya akademiyasi

Dim moSpace As AcadModelSpace

Set moSpace = ThisDrawing.ModelSpace

startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0

endPoint(0) = 130: endPoint(1) =120: endPoint(2) = 0

Set LineObj = moSpace.AddLine(startPoint, endPoint)

End Sub

Dəyişən ölçülü massivlər isə REDİM-lə müəyyən edilir məsələn, ReDim s1 (k).

İkinci kodda

Dim moSpace As AcadModelSpace

Set moSpace = ThisDrawing.ModelSpace

Vasiəsi ilə moSpace obyekt dəyişəni yaradılmışdşr.

Ümumiyyətlə application müracət məsələn, ThisDrawing.Application.Update lə etmək olur.

ABC adında qatı axtarmaq üçün aşağıdakı koddan istifadə edilir.

Sub FindLayerABC()

On Error Resume Next

Dim ABCLayer As AcadLayer

Set ABCLayer = ThisDrawing.Layers.Item("ABC")

If Err <> 0 Then

MsgBox "Слой 'ABC' не существует"

End If

End Sub

5.