catia宏程序问题

294521269

Language="VBSCRIPT"

Sub CATMain()
For i = 1 To 500 Step 1
Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Item("GeometryFromExcel")

Set hybridShapes1 = hybridBody1.HybridShapes
Set hybridShapePointCoord1 = hybridShapes1.Item("点." & CStr(i))

Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1)

Set hybridShapeFactory1 = part1.HybridShapeFactory

Set hybridShapeSphere1 = hybridShapeFactory1.AddNewSphere(reference1, Nothing, 4.000000, -45.000000, 45.000000, 0.000000, 180.000000)

hybridShapeSphere1.Limitation = 1

hybridBody1.AppendHybridShape hybridShapeSphere1

part1.InWorkObject = hybridShapeSphere1

part1.Update

End Sub
这段程序麻烦哪位大神帮个忙啊，有问题啊，不知道咋修改，谢谢啦

jacker312

楼主啊，第三句自己加的吧，for语句后面是不是要跟next啊