Description

When used in conjunction with SetUserDefinedRayPathMode, this command deletes all paths from either the raytrace path list or the user-defined ray path list.

Syntax

PathDeleteAll

Parameters

None

Example

The example below deletes all paths from the raytrace path list before accumulating a new set of raytrace paths.

Sub Main()

    'Delete any existing raytrace paths

    SetUserDefinedRayPathMode(False)

    PathDeleteAll()

    'Number of raytrace loops we would like to take

    Dim loopCount As Long

    loopCount = 3

    'Advanced raytrace initialization

    Dim tAdv As T_ADVANCEDRAYTRACE

    InitAdvancedRaytrace( tAdv )

        tAdv.draw     = False

        tAdv.rayPaths = True

        tAdv.rayPathsMergeExisting = True

    'Raytrace loop

    Dim curLoop As Long

    For curLoop = 1 To loopCount

        AdvancedRaytrace( tAdv )

    Next

End Sub

See Also

Path Commands