Context Object Parameters
Parameter Name | Type | Read/Write | Comments |
---|
Name | String |
Read/Write | Name of the plane. |
Distance | Length | Read | Absolute distance from the plane system origin. |
Sample
The following sample shows the business rule for mapping the name of the planes.
/*
ThisObject Type = VPMReference
Parameters Type = RuleContext
*/
/* Inputs */
let CurrentPlane(RFGGridFace)
let NewPlaneList(List)
/* Outputs */
let NewPlane(RFGGridFace)
/* Local Usage */
let i(Integer)
let nbPlanes (Integer)
/* Getting input parameters */
set NewPlaneList= Parameters.GetAttributeObject("NewPlaneList")
set CurrentPlane= Parameters.GetAttributeObject("CurrentPlane")
nbPlanes = NewPlaneList.Size()
i=1
for i while i <= nbPlanes
{
set NewPlane= NewPlaneList.GetItem(i)
if NewPlane.Name == CurrentPlane.Name
{
Parameters.SetAttributeObject("NewPlane", NewPlane)
exit
}
}
The following sample shows the business rule for mapping the distance between the current plane and a new plane.
/*
ThisObject Type = VPMReference
Parameters Type = RuleContext
*/
/* Inputs */
let CurrentPlane(RFGGridFace)
let NewPlaneList(List)
/* Outputs */
let NewPlane(RFGGridFace)
/* Local Usage */
let i(Integer)
let nbPlanes (Integer)
/* Getting input parameters */
set NewPlaneList= Parameters.GetAttributeObject("NewPlaneList")
set CurrentPlane= Parameters.GetAttributeObject("CurrentPlane")
nbPlanes = NewPlaneList.Size()
i=1
for i while i <= nbPlanes
{
set NewPlane= NewPlaneList.GetItem(i)
if NewPlane.Distance == CurrentPlane.Distance
{
Parameters.SetAttributeObject("NewPlane", NewPlane)
exit
}
}