我的这个程序为什么不行?
Set oprocessdocument = documents1.Open(App.Path + "\Process1.CATProcess")
Set oprocess = oprocessdocument.GetItem("rocess")
Dim childs As Activities
Dim child As PPRActivity
Set childs = oprocess.ChildrenActivities
Set child = childs.Item("坯料运动.1")
Set objMoveAct = child.GetTechnologicalObject("MoveHomeActivity.2")