VB调用CAD生成凸轮机构的三维实体。如果不成功呢？

请问你用的是哪个版本的cad软件？我觉得你的程序参考的是cad 2008版的类型库，但是其他CAD版本和2008不兼容，可能画不出来。我看过程序写的代码应该没问题，因为只有一个控件事件处理代码无法调试，不知道还有什么其他问题？

问题1:你定义的拟合点数组(0到36 * 3)有问题。值的总数是36 * 3+1。用cad功能Add Spline(拟合点、起点切线、终点切线)绘图有错误，应改为拟合点(0到36*3+2)。

问题fitpoints数组的类型应该是double。

另外需要注意的是，fitpoints数组的曲线在绘制后应该是闭合的，否则调用addregion()时会出错。可以通过编辑曲线(0)来闭合多段线。关闭=真。的。样条曲线的封闭属性是只读的，不可修改，所以由于赋值过程中的数据处理，头尾顶点的坐标值是一致的；

问题3:曲线在addregion()函数中使用时应该是数组，可以定义为成员数组CURVES(0到0)。

问题4:在函数AddExtrudedSolid (region Obj (0)，Height，taperAngle)的参数中，用锥角拉伸成三维锥形物体时，指定了每边与底面的夹角。在这个程序中，样条曲线绘制的区域region不能拉伸成圆锥，所以在设置角度taperAngle = 45后出现错误，应该改为taperAngle = 0。

建议在调试时将Error Resume Next上的这句话用引号标注出来，避免调试时无法提示错误信息。