draw a line in the point line style

[rwbaker54]

I need to be able to draw a line in the point line style
here is what I am currently doing to draw the line

i would like for these to be points not a line

PTb_sideC = txtradtoctr + (txtwidth / 2)
PTb_sideb_1 = (txtlength / 2) - (totalpoints * 6)
Ptb_sideA = Sqr((PTb_sideb_1 * PTb_sideb_1) + (PTb_sideC * PTb_sideC))
PTb_angle = Atn(PTb_sideb_1 / PTb_sideC)

basePnt(0) = 0#: basePnt(1) = 0#: basePnt(2) = 0#
angle = (1.5708 - (txtangle * 180 / pi)) - (PTb_angle * deckangleflat)
distance = deckflatlengthnum * Ptb_sideA
polarPnt = ThisDrawing.Utility.PolarPoint(basePnt, angle, distance)
Set lineObj = ThisDrawing.ModelSpace.AddLine(basePnt, polarPnt)

[rwbaker54]

i have come up a solution

thanks