English

How To: Delay the drawing of themes in an ArcView view

Summary

This document provides Avenue code which will delay drawspeed of individual themes in a view.

Procedure

The following script must be run on an active theme which is not turned on.

  1. Open a new script window.

    A. Activate the Project window.
    B. Click the Scripts icon.
    C. Click New.

  2. Copy the code below into the new script window.

    Code:
    'This script assumes a view is the active document
    theView = av.GetActiveDoc
    theThemeList = theView.GetThemes

    themeCount = theThemeList.Count
    themeStart = themeCount - 1

    for each t in themeStart .. 0 'To draw from the bottom up
    theTheme = theThemeList.Get(t)
    theTheme.SetVisible(true)
    theView.GetDisplay.Flush

    ' Experiment with this for the delay
    numDelay = 3 'In seconds
    numStart = Date.Now.AsSeconds

    while (( Date.Now.AsSeconds - numStart ) < numDelay)
    end

    end

  3. Compile the script by clicking the compile button.
    [O-Image] Script compile button
  4. Run the script by clicking the run button.
    [O-Image] Run compiled script button