Sub Example_DimLineSuppress()
   ' Этот пример создает Радиальное Измерение в пространстве модели и
   ' использует свойство DimLineSuppress, чтобы переключить отображение
   ' линий измерения

    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer
    
    ' Определите измерение
    center(0) = 0: center(1) = 0: center(2) = 0
    chordPoint(0) = 5: chordPoint(1) = 5: chordPoint(2) = 0
    leaderLen = 5
    
    ' Создайте радиальное измерение в пространстве модели
    Set dimObj = ThisDrawing.ModelSpace.AddDimRadial(center, chordPoint, leaderLen)
    ThisDrawing.Application.ZoomAll
    
    MsgBox "Радиальное измерение было создано.", vbInformation
    
    dimObj.DimLineSuppress = Not (dimObj.DimLineSuppress)
    ThisDrawing.Application.ZoomAll
    
    MsgBox "Радиальный вид измерения изменился.", vbInformation
End Sub