VB调用CAD生成凸轮机构的3维实体，不出图怎么办？

我是在用VB编写的凸轮机构的参数化设计的程序，然后调用CAD出图。VB的程序运行都没有问题，也在picturebox里看到了静态的凸轮。但CAD里却没有任何的图形和线段。
不知道问题出在那里了，各位大侠给我那个主吧！

我程序是参考别人编的。

Private Sub Command5_Click()

'首先引用 acad 2008 Object Library类型库
Dim myAcadApp As autocad.AcadApplication
Dim activeDoc As autocad.AcadDocument
Dim acMS As autocad.AcadModelSpace
On Error Resume Next
Set myAcadApp = GetObject(, "Autocad.Application") '检查AutoCAD是否已经打开
If Err Then '没有打开
Err.Clear
Set myAcadApp = CreateObject("Autocad.Application") '打开CAD
If Err Then
MsgBox ("不能运行AUTOCAD，请检查")
Unload Me
Exit Sub
End If
End If
myAcadApp.WindowState = autocad.acMin

'1.创建样条曲线
Dim curves As autocad.AcadSpline
Dim fitPoints(0 To 360 * 3) As Variant
Dim startTangent(0 To 2) As Double
Dim endTangent(0 To 2) As Double
Dim noOfpoints As Single

For i = 0 To 360

我想问一下你使用的是cad哪个版本的软件，我看你的程序是引用了CAD2008版本的类型库，肯能别的cad版本与2008不兼容，所以可能造成无法出图。我看过程序编写的代码应该没问题，由于只有一个控件事件处理代码无法调试，也不知还有什么其它问题？
问题一、你定义的fitpoints（0 to 36＊3）的数组有问题总数值数为36＊3＋1个值，在用cad的函数AddSpline(fitPoints, startTangent, endTangent)进行绘图时出错，应该改为fitpoints(0 to 36*3+2)
问题二、fitpoints数组的类型应为double类型
另外应注意fitpoints数组的曲线绘制完成后应注意为闭合的否则调用addregion()时出错。可用curves(0).closed=ture编辑多段线方式进行闭合。样条曲线的.closed属性为只读属性，不能修改，因此因在赋值过程中处理数据使头尾两顶点的坐标值一致；
问题三、curves用于addregion（）函数时应为数组，可定义成一个成员的数组CURVES(0 TO 0)
问题四、在函数AddExtrudedSolid(regionObj(0), height, taperAngle)的参数中taperAngle用于拉伸为三维锥形物体时，指定各个侧面与底面的夹角，在此程序中样条曲线绘制的region面域无法拉伸为锥体，因此设置了角度taperAngle = 45后出错，应改为taperAngle = 0。
建议调试过程中把这句On Error Resume Next用引号先做注释，避免调试过程无法提示错误信息。

凸轮机构的设计 vb 调用 cad问题 凸轮机构实现锁定的原理 关于vb生成的dll无法调用问题（急！） 变行程凸轮机构 实际运行中的凸轮机构,其从动件的运动规律是由什么确定的? java如何调用3DS MAX生成的形体 VB如何调用ACCESS数据库？如何生成EXCEL表？ vb 生成26字母 给出调用了多少次随机数 在VB中如何实现相对路径调用CAD应用程序~~~~