CATIA二次开发，VB!

wang_hengheng

大侠们看看下面这段代码有什么错误啊：

Sub CreateCylinder(iCount As Integer, iDis As Integer)
   
    ' --------------------------------------------------------------
    ' 连接到CATIA，如果CATIA未启动，启动它
    ' --------------------------------------------------------------
    Dim CATIA As Object
      
    On Error Resume Next
    Set CATIA = GetObject(, "CATIA.Application")
    If Err.Number <> 0 Then
       Set CATIA = CreateObject("CATIA.Application")
       CATIA.Visible = True
    End If
    On Error GoTo 0
    ' --------------------------------------------------------------
    ' 创建一个零件文档
    ' --------------------------------------------------------------
    Set documents1 = CATIA.Documents
    Set partDocument1 = documents1.Add("Part")
    Set part1 = partDocument1.Part
    Set bodies1 = part1.Bodies
   
Set body1 = bodies1.Item("PartBody")







运行的时候提示说：上面这段代码的最后那句有问题，可是实在看不出来问题在什么地方。到这个地方就不往下运行了……各位大侠，帮帮忙啊~

zhan_xiaohua

gejiarong

青春的风