PointMixin

Dim Qty As Integer

Dim eop As Number

Dim wid As Number

Dim pit As Number

Dim i As Integer

Dim result As List

eop = 2 * fDia + 0.06

wid = width - (2 * eop)

Qty = ceiling(wid / (4 * fDia))

pit = wid / Qty

result = {}

For i = 0 To Qty

Dim len As Number

Dim o As Point

len = eop + pit * i

o = v01 - (unitY * eop)

o = o + unitX * (pit * i + eop)

result = result + {o}

Next i

Return result