Sub Example_HatchObjectType()
    ' Этот пример изменяет значение свойства HatchObjectType.
    ' Пример требует, чтобы активный рисунок содержал существующую штриховку.
    
    Dim ent As AcadHatch ' AcadEntity
    Dim util As AcadUtility
    Set util = ThisDrawing.Utility
    Dim pt As Variant
    Call util.GetEntity(ent, pt, "Выберите штриховку:")
    With ent
        MsgBox "Начальное значение HatchObjectType = " & .HatchObjectType
        .HatchObjectType = acGradientObject
        .GradientAngle = 3.1415 / 4
        .GradientCentered = False
        .GradientName = "SPHERICAL"
        Dim col1 As AcadAcCmColor, col2 As AcadAcCmColor
        Set col1 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
        Set col2 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
        Call col1.SetRGB(255, 0, 0)
        Call col2.SetRGB(0, 255, 0)
        .GradientColor1 = col1
        .GradientColor2 = col2
        MsgBox "Новое значение HatchObjectType = " & .HatchObjectType
    End With
End Sub