All Frameworks Object Hierarchy This Framework Indexes
| o Func CreateAutoWalk( | oPrevAct) As |
' Get the Human Acts factory and Human Task List
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPevAct As Activity
Dim oHT as HumanTask
Dim ActList As Activities
Dim iPrevAct As Activity
Dim oHumTaskList As HumanTaskList
Set oHT = oHumTaskList.Item(1)
Set ActList = oHT.ChildrenActivities
Set iPrevAct = ActList.Item(2) ' MoveToPosture.1
Dim oCreatedAutoWalk as AutoWalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create AutoWalk Activity
Set oCreatedAutoWalk = oHumActsFactory.CreateAutoWalk(iPrevAct)
| o Func CreateCollisionFreeWalkBwdOnArrArea( | iPrevAct, | |
| iArrArea, | ||
| iNumPoints, | ||
| iSearchInt, | ||
| iClearence, | ||
| iPoints) As |
' From the ProductList get the Arrangement Area
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Dim prodAreasFather As Product
Dim prodAreaFathersChildren As Products
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Set prodAreasFather = pprprodsProdList.Item(1)
Set prodAreaFathersChildren = prodAreasFather.Products
Dim iArrArea As Product
Set iArrArea = prodAreaFathersChildren.GetItem("Area1.1")
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as DNBIACollisionFreeWalk
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Collision free WalkBackward Activity on Arrangement area
Set oCreatedWalk = oHumActsFactory.CreateCollisionFreeWalkBwdOnArrArea(iPrevAct, iArrArea, iNumPoints, iSearchInt, iClearance, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateCollisionFreeWalkBwdOnPlane( | iPrevAct, | |
| iPlaneProd, | ||
| iPlaneDef, | ||
| iNumPoints, | ||
| iSearchInt, | ||
| iClearence, | ||
| iPoints) As |
' From the ProductList get the Walk Plane product
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Dim oPlaneProd As Product
Set oPlaneProd = pprprodsProdList.Item(2)
' Plane Definition.. w.r.to Product
Dim iPlaneDef(9) as Double
iPlaneDef(0) = 1.0 ' First Axis - i vec
iPlaneDef(1) = 0.0 ' First Axis - j vec
iPlaneDef(2) = 0.0 ' First Axis - k vec
iPlaneDef(3) = 0.0 ' Second Axis - i vec
iPlaneDef(4) = 1.0 ' Second Axis - j vec
iPlaneDef(5) = 0.0 ' Second Axis - k vec
iPlaneDef(6) = 0.0 ' Origin - X
iPlaneDef(7) = 0.0 ' Origin - Y
iPlaneDef(8) = 0.0 ' Origin - Z
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as DNBIACollisionFreeWalk
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Collision free WalkBackward Activity on Plane
Set oCreatedWalk = oHumActsFactory.CreateCollisionFreeWalkBwdOnPlane(iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iSearchInt, iClearance, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateCollisionFreeWalkFwdOnArrArea( | iPrevAct, | |
| iArrArea, | ||
| iNumPoints, | ||
| iSearchInt, | ||
| iClearence, | ||
| iPoints) As |
' From the ProductList get the Arrangement Area
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Dim prodAreasFather As Product
Dim prodAreaFathersChildren As Products
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Set prodAreasFather = pprprodsProdList.Item(1)
Set prodAreaFathersChildren = prodAreasFather.Products
Dim iArrArea As Product
Set iArrArea = prodAreaFathersChildren.GetItem("Area1.1")
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as DNBIACollisionFreeWalk
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
Dim iClearance as Double
iClearance = 170
Dim iSearchInt as Long
iSearchInt = 1
' Create Collision free WalkForward Activity on Arrangement area
Set oCreatedWalk = oHumActsFactory.CreateCollisionFreeWalkFwdOnArrArea(iPrevAct, iArrArea, iNumPoints, iSearchInt, iClearance, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateCollisionFreeWalkFwdOnPlane( | iPrevAct, | |
| iPlaneProd, | ||
| iPlaneDef, | ||
| iNumPoints, | ||
| iSearchInt, | ||
| iClearence, | ||
| iPoints) As |
' From the ProductList get the Walk Plane product
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Dim oPlaneProd As Product
Set oPlaneProd = pprprodsProdList.Item(2)
' Plane Definition.. w.r.to Product
Dim iPlaneDef(9) as Double
iPlaneDef(0) = 1.0 ' First Axis - i vec
iPlaneDef(1) = 0.0 ' First Axis - j vec
iPlaneDef(2) = 0.0 ' First Axis - k vec
iPlaneDef(3) = 0.0 ' Second Axis - i vec
iPlaneDef(4) = 1.0 ' Second Axis - j vec
iPlaneDef(5) = 0.0 ' Second Axis - k vec
iPlaneDef(6) = 0.0 ' Origin - X
iPlaneDef(7) = 0.0 ' Origin - Y
iPlaneDef(8) = 0.0 ' Origin - Z
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as DNBIACollisionFreeWalk
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Collision free WalkForward Activity on Plane
Set oCreatedWalk = oHumActsFactory.CreateCollisionFreeWalkFwdOnPlane(iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateHumanActivityGroup( | iPrevAct) As |
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
...
Dim iPrevAct As Activity
Dim oCreatedHAG as DNBIAHumanActivityGroup
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Human Activity Group
Set oCreatedHAG = oHumActsFactory.CreateHumanActivityGroup(iPrevAct)
| o Func CreateHumanCallTask( | iPreviousActivity, | |
| iCalledTask) As |
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask ' The parent task that will have the call task activity as child
...
Dim iPrevAct As Activity
Dim iCalledTask As HumanTask ' The human task that will be called from CallTask activity
...
Dim oCreatedHumanCallTaskAct as DNBIAHumanCallTaskActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Human Call Task Activity
Set oCreatedHumanCallTaskAct = oHumActsFactory.CreateHumanCallTask(iPrevAct, iCalledTask)
| o Func CreateMoveToPosture( | iPrevAct) As |
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedMTP as MoveToPostureActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create MoveToPosture Activity
Set oCreatedMTP = oHumActsFactory.CreateMoveToPosture(iPrevAct)
....
....
| o Func CreatePick( | iPrevAct, | |
| iPickType, | ||
| bCreateCstWithPickingHand, | ||
| iPickingHand, | ||
| iPickedProducts) As |
' Get the Human Acts factory and Human Task List
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim oHT as HumanTask
Dim ActList As Activities
Dim iPrevAct As Activity
Dim oHumTaskList As HumanTaskList
Set oHT = oHumTaskList.Item(1)
Set ActList = oHT.ChildrenActivities
Set iPrevAct = ActList.Item(2) ' MoveToPosture.1
Dim oCreatedPick as PickActivity
....
' Specify the picked products
Dim iPickedProds(1) As AnyObject
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Set pprprodsProdList = oPPRDoc.Products
Set iPickedProducts = pprprodsProdList.Item(2)
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Pick Activity
Set oCreatePick = oHumActsFactory.CreatePick(iPrevAct,SINGLE_HAND, TRUE, HAND_RIGHT, iPickedProducts)
| o Func CreatePlace( | iPrevAct, | |
| iPlacedProducts, | ||
| iOffset) As |
' Get the Human Acts factory and Human Task List
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim oHT as HumanTask
Dim ActList As Activities
Dim iPrevAct As Activity
Dim oHumTaskList As HumanTaskList
Set oHT = oHumTaskList.Item(1)
Set ActList = oHT.ChildrenActivities
Set iPrevAct = ActList.Item(2) ' MoveToPosture.1
Dim oCreatedPlace as Placectivity
....
' Get the list of picked products from the Pick Activity
Dim iPickedProducts As AnyObject
Dim iPlaceOffset(12) As Double ' 12 doubles - 0 to 11; relative transformation between hand and object
' position vector (relative vector between the hand and object)
iPlaceOffset( 0 ) = 10
iPlaceOffset( 1 ) = 20
iPlaceOffset( 2 ) = 30
' X axis rotation component
iPlaceOffset( 3 ) = -0.707
iPlaceOffset( 4 ) = 0.707
iPlaceOffset( 5 ) = 0
' Y axis rotation component
iPlaceOffset( 6 ) = 0
iPlaceOffset( 7 ) = 0
iPlaceOffset( 8 ) = 1
' Z axis rotation component
iPlaceOffset( 9 ) = 0.707
iPlaceOffset( 10 ) = 0.707
iPlaceOffset( 11 ) = 0.0
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create Place Activity
Set oCreatedPlace = oHumActsFactory.CreatePlace(iPrevAct,iPickedProducts, iPlaceOffset);
| o Func CreateSideStepOnArrArea( | iPrevAct, | |
| iArrArea, | ||
| iStartPt, | ||
| iEndPt) As |
' From the ProductList get the Arrangement Area
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Dim prodAreasFather As Product
Dim prodAreaFathersChildren As Products
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Set prodAreasFather = pprprodsProdList.Item(1)
Set prodAreaFathersChildren = prodAreasFather.Products
Dim iArrArea As Product
Set iArrArea = prodAreaFathersChildren.GetItem("Area1.1")
' Specify the Start and End points for the side step walk activity
Dim iStart(3) as Double
Dim iEnd(3) as Double
iStart(0) = 0
iStart(1) = 0
iStart(2) = 0.0
iEnd(0) = 2000
iEnd(1) = 0
iEnd(2) = 0.0
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as WalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create SideStep Activity on Arrangement area
oCreatedWalk = oHumActsFactory.CreateSideStepOnArrArea(iPrevAct, iArrArea, iStartPt, iEndPt)
' Generate constituting MTPs
oCreatedWalk.Update
| o Func CreateSideStepOnPlane( | iPrevAct, | |
| iPlaneProd, | ||
| iPlaneDef, | ||
| iStartPt, | ||
| idEndPt) As |
' From the ProductList get the Walk Plane product
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Dim oPlaneProd As Product
Set oPlaneProd = pprprodsProdList.Item(2)
' Plane Definition.. w.r.to Product
Dim adPlaneDef(9) as Double
adPlaneDef(0) = 1.0 ' First Axis - i vec
adPlaneDef(1) = 0.0 ' First Axis - j vec
adPlaneDef(2) = 0.0 ' First Axis - k vec
adPlaneDef(3) = 0.0 ' Second Axis - i vec
adPlaneDef(4) = 1.0 ' Second Axis - j vec
adPlaneDef(5) = 0.0 ' Second Axis - k vec
adPlaneDef(6) = 0.0 ' Origin - X
adPlaneDef(7) = 0.0 ' Origin - Y
adPlaneDef(8) = 0.0 ' Origin - Z
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim adStart(3) as Double
Dim adEnd(3) as Double
adStart(0) = 0
adStart(1) = 0
adStart(2) = 0.0
adEnd(0) = 2000
adEnd(1) = 0
adEnd(2) = 0.0
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPeviousActivity As Activity
Dim oCreatedWalk as WalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create SideStep Activity on Plane
oCreatedWalk = oHumActsFactory.CreateSideStepOnPlane(iPrevAct, iPlaneProd, iPlaneDef, iStartPt, iEndPt)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateWalkBwdOnArrArea( | iPrevAct, | |
| iArrArea, | ||
| iNumPoints, | ||
| iPoints) As |
' From the ProductList get the Arrangement Area
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Dim prodAreasFather As Product
Dim prodAreaFathersChildren As Products
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Set prodAreasFather = pprprodsProdList.Item(1)
Set prodAreaFathersChildren = prodAreasFather.Products
Dim iArrArea As Product
Set iArrArea = prodAreaFathersChildren.GetItem("Area1.1")
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as WalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create WalkBackward Activity on Arrangement area
Set oCreatedWalk = oHumActsFactory.CreateWalkBwdOnArrArea(iPrevAct, iArrArea, iNumPoints, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateWalkBwdOnPlane( | iPrevAct, | |
| iPlaneProd, | ||
| iPlaneDef, | ||
| iNumPoints, | ||
| iPoints) As |
' From the ProductList get the Walk Plane product
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Dim oPlaneProd As Product
Set oPlaneProd = pprprodsProdList.Item(2)
' Plane Definition.. w.r.to Product
Dim iPlaneDef(9) as Double
iPlaneDef(0) = 1.0 ' First Axis - i vec
iPlaneDef(1) = 0.0 ' First Axis - j vec
iPlaneDef(2) = 0.0 ' First Axis - k vec
iPlaneDef(3) = 0.0 ' Second Axis - i vec
iPlaneDef(4) = 1.0 ' Second Axis - j vec
iPlaneDef(5) = 0.0 ' Second Axis - k vec
iPlaneDef(6) = 0.0 ' Origin - X
iPlaneDef(7) = 0.0 ' Origin - Y
iPlaneDef(8) = 0.0 ' Origin - Z
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as WalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create WalkBackward Activity on Plane
Set oCreatedWalk = oHumActsFactory.CreateWalkBwdOnPlane(iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateWalkFwdOnArrArea( | iPrevAct, | |
| iArrArea, | ||
| iNumPoints, | ||
| iPoints) As |
' From the ProductList get the Arrangement Area
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Dim prodAreasFather As Product
Dim prodAreaFathersChildren As Products
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Set prodAreasFather = pprprodsProdList.Item(1)
Set prodAreaFathersChildren = prodAreasFather.Products
Dim iArrArea As Product
Set iArrArea = prodAreaFathersChildren.GetItem("Area1.1")
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as WalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create WalkForward Activity on Arrangement area
Set oCreatedWalk = oHumActsFactory.CreateWalkFwdOnArrArea(iPrevAct, iArrArea, iNumPoints, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
| o Func CreateWalkFwdOnPlane( | iPrevAct, | |
| iProd, | ||
| iPlaneDef, | ||
| iNumPoints, | ||
| iPoints) As |
' From the ProductList get the Walk Plane product
Dim oPPRDoc As PPRDocument
Dim pprprodsProdList As PPRProducts
Set oPPRDoc = DELMIA.ActiveDocument.PPRDocument
Set pprprodsProdList = oPPRDoc.Products
Dim oPlaneProd As Product
Set oPlaneProd = pprprodsProdList.Item(2)
' Plane Definition.. w.r.to Product
Dim iPlaneDef(9) as Double
iPlaneDef(0) = 1.0 ' First Axis - i vec
iPlaneDef(1) = 0.0 ' First Axis - j vec
iPlaneDef(2) = 0.0 ' First Axis - k vec
iPlaneDef(3) = 0.0 ' Second Axis - i vec
iPlaneDef(4) = 1.0 ' Second Axis - j vec
iPlaneDef(5) = 0.0 ' Second Axis - k vec
iPlaneDef(6) = 0.0 ' Origin - X
iPlaneDef(7) = 0.0 ' Origin - Y
iPlaneDef(8) = 0.0 ' Origin - Z
' Specify the number of coplanar points defining the walk path
Dim iNumPoints as Long
iNumPoints = 2
' Specify the point values for the walk path in oArrArea co-ordinates
Dim iPoints(6) as Double
iPoints(0) = 0.0 ' Point1 - X
iPoints(1) = 0.0 ' Point1 - Y
iPoints(2) = 0.0 ' Point1 - Z
iPoints(3) = 2000.0 ' Point2 - X
iPoints(4) = 0.0 ' Point2 - Y
iPoints(5) = 0.0 ' Point2 - Z
' Get the Human Acts factory
Dim oHumActsFactory As HumanActsFactory
Dim oHumanTask As HumanTask
Dim iPrevAct As Activity
Dim oCreatedWalk as WalkActivity
....
....
Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")
' Create WalkForward Activity on Plane
Set oCreatedWalk = oHumActsFactory.CreateWalkFwdOnPlane(iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iPoints)
' Generate constituting MTPs
oCreatedWalk.Update
....
....
Copyright © 2003, Dassault Systèmes. All rights reserved.