iCAx开思网

标题: CATIA二次开发，VB! [打印本页]

作者: wang_hengheng 时间: 2010-5-29 12:10
标题: CATIA二次开发，VB!
大侠们看看下面这段代码有什么错误啊：

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 时间: 2010-6-2 16:19
你的CATIA是中文版还是英文版。如果是中文版最后一句需要改

作者: gejiarong 时间: 2010-6-2 19:48
最后一句改为Set body1 = bodies1.Item(1)就可以了

作者: 青春的风 时间: 2012-7-1 17:29

欢迎光临 iCAx开思网 (https://www.icax.org/)