Sub Example_Area()
    ' Этот пример создает объект ломаной линии и затем использует свойство
    ' области, чтобы найти область этой ломаной линии.
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 5) As Double
    Dim plineArea As Double

    ' Установите точки для Polyline
    points(0) = 3: points(1) = 7
    points(2) = 9: points(3) = 2
    points(4) = 3: points(5) = 5
    
    ' Создайте ломаную линию в пространстве модели
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
    ' Закройте ломаную линию и модифицируйте отображение
    plineObj.Closed = True
    plineObj.Update
    ZoomAll
    
    ' Получите область ломаной линии
    plineArea = plineObj.Area
    
    MsgBox "Область нового Polyline: " & plineArea, vbInformation, "Area Пример"
End Sub