[hamipers]

Hi,

When I try to set Hatch on a shape, it displays a small window asking for HatchD, HAngle, Inside, Border and Mask. I need to set Hatch of a shape without asking the end user the above properties and I use properties that I wish. How would I bypass this window?

[Athanasios Gardos]

    Dim xV() As Single, yV() As Single, zV() As Single
    Dim HDist As Single, Angle As Single
    Dim Hin As Integer, HBrd As Integer
    Dim HMask As String
    Dim oMath As Object 'avMath.dll
    Set oMath = CreateObject("avMath.cAvaxMath")
    Dim x1() As Single, y1() As Single, z1() As Single
    Dim x2() As Single, y2() As Single, z2() As Single
    If oMath.GetRegularPolygonVertices(5, 5, 8, 6, xV(), yV(), zV()) = True Then
       HDist = 0.5
       Angle = 45
       Hin = 1
       HBrd = 0
       HMask = "110"
       Call oMath.GetHatchBlockLines(xV(), yV(), HDist, Angle, Hin, HBrd, HMask, x1(), y1(), z1(), x2(), y2(), z2())
       Call cAvax1.Add_BlockLines(x1(), y1(), z1(), x2(), y2(), z2())
    End If
    Set oMath = Nothing