求助：在VB中调用opengl画空心圆柱

shanzi

求助：在VB中调用opengl画空心圆柱

zhuml001007

Dim obj As String
    obj = gluNewQuadric
gluCylinder obj, 1.0, 1.0, 5.0, 20, 10
第一个1.0表示底面半径，第二个1.0表示顶面半径
5.0表示圆柱的高度，20表示绕底面环向划分的份数，10表示高度方向的划分，如果划分比较粗的话，就是棱柱了。
半径高度尺寸根据你自己的尺寸标准重新设置就好了。

laibh2006

GLUquadricObj* quadObj;
glNewList(5,GL_COMPILE);
       glColor3f(0.5f,0.5f,0.5f);        
             quadObj=gluNewQuadric();
                 //gluQuadricDrawWtyle(quadObj,GLU_FILL);
                 gluQuadricNormals(quadObj,GLU_SMOOTH);
                 gluCylinder(quadObj,1,1,3.5,64,16);//画二次曲面
                 glTranslatef(0.0f,0.0f,3.5f);
                 gluDisk(quadObj,0.0f,1.0f,64,16);//画圆盘
                 glTranslatef(0.0f,0.0f,-3.5f);
         gluDisk(quadObj,0.0f,1.0f,64,16);
    glEndList();
画空心圆柱由一个曲面和两个圆盘构成