#---------------------------------------------------------------
#calculate
the area for a rim found be the 'Rim' tool
#set the
result in the 'Rimarea' tool (ExternalScalar)
#get also
a count variable 'nRetry' (ExternalScalar)
#observe
that function and tag names are case-dependent
#---------------------------------------------------------------
radius =
GetValue('Rim.Radius')
area
= radius * radius * 3.14
SetValue('Rimarea.Value',area)
|