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

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.
   
   
4. Run the script by clicking the run button.