Sub Example_AddPoint()
    ' Этот пример создает точку в пространстве модели.
    Dim pointObj As AcadPoint
    Dim location(0 To 2) As Double
    
    ' Определите местоположение точки
    location(0) = 5#: location(1) = 5#: location(2) = 0#
    
    ' Создайте точку
    Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
    ZoomAll
    
End Sub