Description Deletes a specific ray filter operation from a detector entity.
Syntax opCount = DEDeleteIthOp( deNode, opInd )
Parameters opCount (Long) Returned number of ray filter operations in the detector entity's ray filter operation list after deletion.
deNode As Long Node number of the detector entity whose ray filter operation list is being modified.
opInd As Long Zero-based index of the ray filter operation being deleted from the detector entity's ray filter operation list.
Example The following example demonstrates the use of the ray filter operation commands as they relate to detector entities. In this example the operation count for a detector entity is retrieved and the operation at index 0 is retrieved and modified before the analysis is performed.
Sub Main
Dim rfOp As T_RAYFILTEROP Dim deNode As Long, opCount As Long, cnt As Long, arnNode As Long Dim success As Boolean
deNode = FindFullName( "Analysis Surface(s).Cylinder Detector Entity" )
opCount = DEGetOpCount( deNode ) Print "Detector entity " & deNode & " has " & opCount & " ray filter operations."
'Get, modify, and set the 0'th operation in the list success = DEGetIthOp( deNode, 0, rfOp ) rfOp.opCode = 23 'scattered rays DESetIthOp deNode, 0, rfOp
'Perform analysis with modified ray filter cnt = DEPerformAnalysis( deNode )
Print "Detector entity analysis results stored in ARN " & DEGetMostRecentARNNum( deNode )
End Sub
See Also
|