在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
.........