(求助)关于DPM中的Activity

songwenjuannuaa

用宏录制完建立装配仿真路径如下，红色部分说没有录到将product加入Track的方法，想请教各位如何获得Activity下move的Track
Sub CATMain()

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

Dim product3 As Product
Set product3 = products2.Item("3.5HP_ENGINE.1")

Dim products3 As Products
Set products3 = product3.Products

Dim product4 As Product
Set product4 = products3.Item("Air_Filter_Assembly.1")

Dim products4 As Products
Set products4 = product4.Products

Dim product5 As Product
Set product5 = products4.Item("Air_Filter_Cover.1")

group1.AddExplicit product5

shuttle1.AngleValidation = True

shuttle1.AngleLimit = 15#

shuttle1.Vector = CatShuttleVectorZ

' Cannot print the method call put_Object for the object Track

Dim shots1 As Shots
Set shots1 = 0 ' Cannot print the method call get_Shots for the object TrackDim shot1 As Shot
Set shot1 = shots1.CreateShot()

Dim arrayOfVariantOfDouble1(23)