ThisDrawing.ModelSpace.AddCylinder

[Garrett]

 

Hello, my problem is that when i use the function:

 

Dim z As Double
Dim h As Double
Dim c4(0 To 2) As Double
z = Val(TextBox2.Text) / 2
h = Val(TextBox3.Text)
c3(0) = 0#: c3(1) = 0#: c3(2) = 1#
radius1 = z
height1 = h
Set psr = ThisDrawing.ModelSpace.AddCylinder(c3, radius1, height1)

 

 

then I draw a cilinder on both sides, I would ask for help in drawing it on one side.