Sub Example_LinetypeScale()
    ' Этот пример создает линию и находит масштаб типа линии для линии.
    ' Затем изменяет масштаб типа линии и наконец сбрасывает тип линии
    ' к оригинальному значению.

    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    Dim lineObj As AcadLine
    Dim currLTScale As Double

    'Создайте объект Line в пространстве модели
    startPoint(0) = 2#: startPoint(1) = 2#: startPoint(2) = 0#
    endPoint(0) = 4#: endPoint(1) = 4#: endPoint(2) = 0#
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    lineObj.Update
    currLTScale = lineObj.LinetypeScale
    MsgBox "Масштаб типа линии для линии:" & lineObj.LinetypeScale, vbInformation, "Linetypes Пример"


    'Установите масштаб типа линии Line к 0.5
    lineObj.LinetypeScale = 0.5
    lineObj.Update
    MsgBox "Новый масштаб типа линии для линии:" & lineObj.LinetypeScale, vbInformation, "Linetypes Пример"
    
    'Сбросьте масштаб типа линии Line
    lineObj.LinetypeScale = currLTScale
    lineObj.Update
    MsgBox "Масштаб типа линии для линии сброшен к:" & lineObj.LinetypeScale, vbInformation, "Linetypes Пример"
End Sub