'grid2pt

'Jeff Ardron, Living Oceans Society, BC, Canada.
'jardron@livingoceans.org
'Oct. 2000

'Creates a point theme from active grid theme cell values.
'Selected cells used, or all if none selected.
'Null cells ignored.
'Adds theme to active view.

'Useful, for example, to do a density analysis.


theView = av.GetActiveDoc

thePrj = theView.GetProjection
theGthm = theView.GetActiveThemes.Get(0)
theGrid = theGthm.GetGrid


'Prompt for theme name

ptName = FileName.GetCWD.MakeTmp("gridpt","shp")  
ptName  = FileDialog.Put(ptName, "*.shp", "Save Point Theme")
if (ptName = NIL) then
  exit
end

'Create point theme

ptName.SetExtension("shp")
ptFTab = theGrid.AsPointFTab(ptName,thePrj)
ptThm = FTheme.Make(ptFTab)

'Add the theme to the view...

theView.AddTheme(ptThm)