Drawing a Cylinder Using VB

Replies to This Discussion

Permalink Reply by Vicente Soler on August 17, 2009 at 9:08am

You have to convert the cylinder to a surface first. Try something like this:

Dim c As New OnCylinder(New OnCircle(onutil.On_xy_plane, 2), 4)
Dim srf As New OnNurbsSurface
c.GetNurbForm(srf)
a = srf

Since other primitives like spheres are passed along as surfaces automatically, i think David forgot the autoconversion for cylinders.

Permalink Reply by kermin chok on August 17, 2009 at 9:56am

Thanks.
That seem to have fixed it.

Kermin