Sub Example_AddTrace()
    ' Этот пример создает след в пространстве модели.
    
    Dim traceObj As AcadTrace
    Dim tracePts(0 To 11) As Double       ' 4 (трехмерных) точки
    
    ' Определите точки следа
    tracePts(0) = 1: tracePts(1) = 1: tracePts(2) = 0
    tracePts(3) = 3: tracePts(4) = 3: tracePts(5) = 0
    tracePts(6) = 5: tracePts(7) = 3: tracePts(8) = 0
    tracePts(9) = 5: tracePts(10) = 1: tracePts(11) = 0
    
    ' Включите системную переменную (FILLMODE)
    ' чтобы заполнить схему следа
    ThisDrawing.SetVariable "FILLMODE", 1
        
    ' Создайте объект следа в пространстве модели
    Set traceObj = ThisDrawing.ModelSpace.AddTrace(tracePts)
    ZoomAll
    
End Sub