Description

This subroutine retrieves the  lengths of an individual pixel along the A and B axes of an ARN from which the pixel area can be computed.

Syntax

ARNGet2DPixelSize( arnNode, aInc, bInc )

Parameters

arnNode As Long

The node number of the ARN being queried.

aInc As Double

Length of a pixel along the A axis direction of the ARN.

bInc As Double

Length of a pixel along the B axis direction of the ARN.

Example

The following script loops over all valid ARN and prints the individual pixel information to the output window.

Sub Main

    Dim curArn As Long, arnMaxNode As Long

    Dim aInc As Double, bInc As Double

    Print "Node" & vbTab & "Name" & vbTab & "dA" & vbTab & "dB" & vbTab & "Area"

    arnMaxNode = ARNGetMaxNodeNum()

    For curArn = 0 To arnMaxNode

        If ARNIsValidNode( curArn ) Then

            ARNGet2DPixelSize( curArn, aInc, bInc )

            Print curArn;

            Print ARNGetName( curArn );

            Print aInc;

            Print bInc;

            Print aInc*bInc

        End If

    Next

End Sub

See Also

ARN Script Commands