高手赐教：在DELMIA DPM中 GetItem("PPRProduct") 出错。

mk365

在DELMIA  DPM中
用宏录制完装配仿真路径如下：
在vba编辑调试到
“Dim product1 As Product
   Set product1 = processDocument1.GetItem("PPRProduct")
”时，弹出“对象不支持该动作”，无法调用产品。望高手赐教！！
.........
Dim processDocument1 As ProcessDocument
Set processDocument1 = DELMIA.ActiveDocument

Dim fittingWorkbench1 As FittingWorkbench
Set fittingWorkbench1 = processDocument1.GetWorkbench("FittingWorkbench")

Dim shuttles1 As Shuttles
Set shuttles1 = fittingWorkbench1.Shuttles

Dim shuttle1 As Shuttle
Set shuttle1 = shuttles1.AddFromSel()

Dim group1 As Group
Set group1 = shuttle1.Group


Dim product1 As Product
Set product1 = processDocument1.GetItem("PPRProduct")
’后面就过不去了，不知道怎么解决


Dim products1 As Products
Set products1 = product1.Products

Dim product2 As Product
Set product2 = products1.Item("Item.1")

Dim products2 As Products
Set products2 = product2.Products
.........