package require PWI_Glyph 2.17.3 proc selectBlocks { } { set conMask [pw::Display createSelectionMask -requireBlock [list] ] pw::Display selectEntities \ -description "Select the blocks you want to list" \ -selectionmask $conMask selection set doms $selection(Blocks) } set listOfBlocks [selectBlocks ] # set listOfBlocks [pw::Grid getAll -type "pw::Block" ] set thisExam [pw::Examine create BlockJacobian] $thisExam addEntity $listOfBlocks $thisExam examine set thisMinVal [$thisExam getMinimum -entity thisMinVar -location thisMinLoc] set thisMinName [$thisMinVar getName] set thisMaxLayer [$thisMinVar getLayer] puts [format " Min Block J = %s on %s at %s (layer %d)" $thisMinVal $thisMinName $thisMinLoc $thisMaxLayer ] $thisExam delete unset thisExam set thisExam [pw::Examine create BlockSkewEquiangle] $thisExam addEntity $listOfBlocks $thisExam examine set thisMaxVal [$thisExam getMaximum -entity thisMaxVar -location thisMaxLoc] set thisMaxName [$thisMaxVar getName] set thisMaxLayer [$thisMaxVar getLayer] puts [format " Max Block Equiangle Skew = %s on %s at %s (layer %d)" $thisMaxVal $thisMaxName $thisMaxLoc $thisMaxLayer ] $thisExam delete unset thisExam set thisExam [pw::Examine create BlockMaximumAngle] $thisExam addEntity $listOfBlocks $thisExam examine set thisMaxVal [$thisExam getMaximum -entity thisMaxVar -location thisMaxLoc] set thisMaxName [$thisMaxVar getName] set thisMaxLayer [$thisMaxVar getLayer] puts [format " Max Block Angle = %s on %s at %s (layer %d)" $thisMaxVal $thisMaxName $thisMaxLoc $thisMaxLayer ] $thisExam delete unset thisExam set thisExam [pw::Examine create BlockMinimumAngle] $thisExam addEntity $listOfBlocks $thisExam examine set thisMinVal [$thisExam getMinimum -entity thisMinVar -location thisMinLoc] set thisMinName [$thisMinVar getName] set thisMaxLayer [$thisMaxVar getLayer] puts [format " Min Block Angle = %s on %s at %s (layer %d)" $thisMinVal $thisMinName $thisMinLoc $thisMaxLayer ] $thisExam delete unset thisExam