（CAA）如何 对当前零件Part文档进行一次刷新？

在CATIA录制的宏vb代码里面，每进行一个操作，都要刷新一次：
代码如下：
Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridShapeFactory1 = part1.HybridShapeFactory

Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0.000000, 0.000000, 0.000000)

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("零件几何体")

body1.InsertHybridShape hybridShapePointCoord1

part1.InWorkObject = hybridShapePointCoord1

part1.Update //这里就是 对当前文档进行刷新。

在CAA里面我们多对 创建的一个（点，线，面）进行Update刷新，而没有对整个part文件进行刷新，  所以想请教一下如何对整个part文件进行刷新？
谢谢 你的关注与帮助！{:soso_e176:}

坐等回复啊

CATISpecObject_var spSpecPart = spPrtContainer->GetPart();
spSpecPart ->Update();