Sub Example_IsPlanar()
   ' Этот пример создает объект Spline в пространстве модели и определяет,
   ' плосок ли Spline

    Dim splineObj As AcadSpline
    Dim startTan(0 To 2) As Double, endTan(0 To 2) As Double
    Dim fitPoints(0 To 8) As Double
    Dim UserMessage As String

    'Определите объект Spline
    startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
    endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
    fitPoints(0) = 0: fitPoints(1) = 0: fitPoints(2) = 0: fitPoints(3) = 5
    fitPoints(4) = 5: fitPoints(5) = 0: fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
    
    'Создайте новый объект Spline
    Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
    ThisDrawing.Application.ZoomAll
    
    'Отображение, действительно ли новый Spline плосок
    UserMessage = IIf(splineObj.IsPlanar, "является плоским", "не является плоским")
    
    MsgBox "Новый Spline " & UserMessage

End Sub