CATIA二次开发学习中遇到的问题

之前一直想学下CATIA的二次开发，每次刚开始按照教程更换时都出错。
参考教程是《CATIA二次开发技术基础》
第一步圆柱阵列的问题。
我录制完宏后，打算按教程做出5个圆柱阵列，但运行中出现错误，错误出现在最后段“part1.UpdateObject pad1”！下面是我录制宏的尾段程序
‘Next

sketch1.CloseEdition

part1.InWorkObject = sketch1

part1.UpdateObject sketch1

Set shapeFactory1 = part1.ShapeFactory

Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)

part1.UpdateObject pad1

End Sub’


查看教程里的例子，发现他们录制后，尾段程序是这样的。
‘    Next                    '循环体结束

    sketch1.CloseEdition

    part1.InWorkObject = body1

    part1.Update

    part1.InWorkObject = body1

    Set shapeFactory1 = part1.ShapeFactory
    Set pad1 = shapeFactory1.AddNewPad(sketch1, 20.000000)

    part1.Update

End Sub’


和我录制出来的程序不一样，而这个程序运行正常
我不太明白，哪里出错了，希望有人能耐心看下，帮帮忙，谢谢