DNBHumanSimInterfaces HumanActivityGroupFactory (Object)

Methods

Func CreateAutoWalk( iPrevAct) As

Returns newly created AutoWalkActivity.

Parameters:

iPrevAct: previous activity

Returns:

oCreatedAutoWalk newly created AutoWalkActivity

Example:

    This example creates AutoWalk Activity on Plane 
 
   ' 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)

Func CreateCollisionFreeWalkBwdOnArrArea( iPrevAct, iArrArea, iNumPoints, iSearchInt, iClearence, iPoints) As

Returns newly created Collision free Walk Backward Activity on Arrangement Area.

Parameters:

iPrevAct: previous activity
iArrArea: Arrangment Area - Plane of Walk
iNumPoints: Number of Coplanar-Points defining the Walk Path
iSearchInt: (see for list of possible values)
iClearance: The clearance value to be used for detecting collision between objects
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... in iArrArea coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkBackward Activity on Arrangement Area
 	' 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 
   ....
   ....

Func CreateCollisionFreeWalkBwdOnPlane( iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iSearchInt, iClearence, iPoints) As

Returns newly created Collision free Walk Backward Activity.

Parameters:

iPrevAct: previous activity
iPlaneProd: Handle to Product
iPlaneDef: Walk Plane definition - 9 doubles FirstAxis(i,j,k), SecondAxis(i,j,k), OriginOfPlane(x,y,z) in iPlaneProd Coordinates
iNumPoints
iSearchInt: (see for list of possible values)
iClearance: The clearance value to be used for detecting collision between objects Number of Coplanar-Points defining the Walk Path in Plane
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... iPlaneDef coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkBackward Activity on Plane 
 	' 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 
   ....
   ....

Func CreateCollisionFreeWalkFwdOnArrArea( iPrevAct, iArrArea, iNumPoints, iSearchInt, iClearence, iPoints) As

Returns newly created Collision free Walk Forward Activity.

Parameters:

iPrevAct: Previous Activity
iArrArea: Arrangment Area - Plane of Walk
iNumPoints: Number of Coplanar-Points defining the Walk Path
iSearchInt: (see for list of possible values)
iClearance: The clearance value to be used for detecting collision between objects
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... in iArrArea coordinates

Returns:

oCreatedWalk Newly created WalkActivity

Example:

    This example creates Collision free WalkForward Activity on Arrangement Area
 	' 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 
   ....
   ....

Func CreateCollisionFreeWalkFwdOnPlane( iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iSearchInt, iClearence, iPoints) As

Returns newly created Collision free Walk Forward Activity

Parameters:

iPrevAct: previous activity
iPlaneProd: Handle to Walk plane product
iPlaneDef: Walk Plane definition - 9 doubles FirstAxis(i,j,k), SecondAxis(i,j,k), OriginOfPlane(x,y,z) in iPlaneProd Coordinates
iNumPoints: Number of Coplanar-Points defining the Walk Path in Plane
iSearchInt: (see for list of possible values)
iClearance: The clearance value to be used for detecting collision between objects
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... iPlaneDef coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkForward Activity on Plane 
 	' 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 
   ....
   ....

Func CreateMoveToPosture( iPrevAct) As

Returns newly created MoveToPostureActivity.
Current posture of Manikin is set as joint-values for created MoveToPostureActivity. Use MoveToPostureActivity APIs to change joint-values.

Parameters:

iPrevAct: previous activity

Returns:

oCreatedMTP newly created MoveToPostureActivity

Example:

    This example creates MoveToPosture Activity 
    ' 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) 
   ....
   ....

Func CreatePick( iPrevAct, iPickType, bCreateCstWithPickingHand, iPickingHand, iPickedProducts) As

Returns newly created Pick Activity.

Parameters:

iPrevAct: previous activity
iPickType: Pick Type: SINGLE_HAND or BOTH_HANDS
bCreateCstWithPickingHand: Boolean flag to indicate whether constraint has to be created between the picked object and picking hand
iPickingHand: picking hand: HAND_RIGHT or HAND_LEFT
iPickedProducts: List of picked products

Returns:

oCreatedPick newly created PickActivity

Example:

    This example creates Pick Activity
 
   ' 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)

Func CreatePlace( iPrevAct, iPickedProducts, iOffset) As

Returns newly created Place Activity.

Parameters:

iPrevAct

previous activity

iPlacedProducts

List of products to be placed

iPlaceOffset

Offset to be maintainted between the placing hand and the object. The offset has to be specified as the relative trnsformation between the placing hand and the object to be placed. The first 9 entries correspond to the rotation matrix and the next 3 entries correspond to the position vector.
R1x R1y R1z R2x R2y R2z R3x R3y R3z Px Py Pz R1x:x-component of x axis
R2x:y-component of x axis
R3x:z-component of x axis
R1y:x-component of y axis
R2y:y-component of y axis
R3y:z-component of y axis
R1z:x-component of z axis
R2z:y-component of z axis
R3z:z-component of z axis

Returns:

oCreatedPlace Newly created PlaceActivity

Example:

    This example creates Place Activity
 
   ' 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
 'Example of 45 degree rotation around the x-axis of placing hand
	Dim iPlaceOffset(12) As Double ' 12 doubles - 0 to 11; relative transformation between hand and object	 
	' X axis rotation component
	iPlaceOffset( 0 )  = 1
	iPlaceOffset( 3 )  = 0
	iPlaceOffset( 6 )  = 0
	' Y axis rotation component
	iPlaceOffset( 1 )  =0
	iPlaceOffset( 4 )  =0.707
	iPlaceOffset( 7 )  = 0.707
	' Z axis rotation component
	iPlaceOffset( 2 )  = 0
	iPlaceOffset( 5 ) = -0.707
	iPlaceOffset( 8 ) = 0.707
	' position vector (relative vector between the hand and object)
	iPlaceOffset( 9 )  = 0
	iPlaceOffset( 10 )  = 0
	iPlaceOffset( 11 )  = 0
   Set oHumActsFactory = oHumanTask.GetTechnologicalObject("HumanActsFactory")

   ' Create Place Activity
   Set oCreatedPlace = oHumActsFactory.CreatePlace(iPrevAct,iPickedProducts, iPlaceOffset);

Func CreateSideStepOnArrArea( iPrevAct, iArrArea, iStartPt, iEndPt) As

Returns newly created Side-Step Activity.

Parameters:

iPrevAct: previous activity
iArrArea: Arrangment Area - Plane of Walk
iStartPt: Start Point - x,y,z in iArrArea coordinates
iEndPt: End Point - x,y,z in iArrArea coordinates

Returns:

oCreatedWalk newly created WalkActivity

	' 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

Func CreateSideStepOnPlane( iPrevAct, iPlaneProd, iPlaneDef, iStartPt, iEndPt) As

Returns newly created Side-Step Activity.

Parameters:

iPrevAct: previous activity
iPlaneProd: Handle to Product
iPlaneDef: Walk Plane definition - 9 doubles FirstAxis(i,j,k), SecondAxis(i,j,k), OriginOfPlane(x,y,z) in oCGRProd Coordinates
iStartPt: Start Point - x,y,z in iPlaneDef coordinates
iEndPt: End Point - x,y,z in iPlaneDef coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates SideStep Activity on Plane 
 	' 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 
   ....
   ....

Func CreateWalkBwdOnArrArea( iPrevAct, iArrArea, iNumPoints, iPoints) As

Returns newly created Walk Backward Activity on Arrangement Area.

Parameters:

iPrevAct: previous activity
iArrArea: Arrangment Area - Plane of Walk
iNumPoints: Number of Coplanar-Points defining the Walk Path
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... in iArrArea coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkBackward Activity on Arrangement Area
 	' 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 
   ....
   ....

Func CreateWalkBwdOnPlane( iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iPoints) As

Returns newly created Walk Backward Activity.

Parameters:

iPrevAct: previous activity
iPlaneProd: Handle to Product
iPlaneDef: Walk Plane definition - 9 doubles FirstAxis(i,j,k), SecondAxis(i,j,k), OriginOfPlane(x,y,z) in iPlaneProd Coordinates
iNumPoints: Number of Coplanar-Points defining the Walk Path in Plane
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... iPlaneDef coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkBackward Activity on Plane 
 	' 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 
   ....
   ....

Func CreateWalkFwdOnArrArea( iPrevAct, iArrArea, iNumPoints, iPoints) As

Returns newly created Walk Forward Activity.

Parameters:

iPrevAct: previous activity
iArrArea: Arrangment Area - Plane of Walk
iNumPoints: Number of Coplanar-Points defining the Walk Path
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... in iArrArea coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkForward Activity on Arrangement Area
 	' 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 
   ....
   ....

Func CreateWalkFwdOnPlane( iPrevAct, iPlaneProd, iPlaneDef, iNumPoints, iPoints) As

Returns newly created Walk Forward Activity

Parameters:

iPrevAct: previous activity
iPlaneProd: Handle to Walk plane product
iPlaneDef: Walk Plane definition - 9 doubles FirstAxis(i,j,k), SecondAxis(i,j,k), OriginOfPlane(x,y,z) in iPlaneProd Coordinates
iNumPoints: Number of Coplanar-Points defining the Walk Path in Plane
iPoints: Point values x1,y1,z1 , x2,y2,z2, .... iPlaneDef coordinates

Returns:

oCreatedWalk newly created WalkActivity

Example:

    This example creates WalkForward Activity on Plane 
 	' 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 
   ....
   ....