'----------------------------------------------
'---------Creation Information-----------------
'----------------------------------------------
'
'Name: select
'Author:  Cindy How
'Date:    5/97
'      
'----------------------------------------------
'------------Purpose/Description---------------
'----------------------------------------------
'
'This script will take select the point to be
'flagged as a manhole.  It is called by the 
'script Sortpoint.
'
'-----------------------------------------------
'-------------------Input-----------------------
'-----------------------------------------------
'
'1.  Node theme
'2.  Attribute table of the Node theme
'
'-----------------------------------------------
'------------------Output-----------------------
'-----------------------------------------------
'
'1.  Selected record
'
'-----------------------------------------------
'---------Get Initial Information---------------
'-----------------------------------------------

TheProject = av.GetProject
TheView = av.GetActiveDoc
TheTheme= TheView.FindTheme("inodes.shp")
TheFtab = TheTheme.GetFtab
TheField = TheFtab.Findfield("Manhole")
ShpFld = TheFtab.FindField("Shape")
TheFtab.SetEditable(true)

NewPt = TheView.GetDisplay.ReturnUserPoint
PtOnTheme = Thetheme.FindByPoint(NewPt)
  If (PtOnTheme.isEmpty) then
    Msgbox.error("That point is not found, try again","Not found")
    exit
  end
rec=PtOnTheme.get(0)



Mhole = GraphicShape.Make(TheFtab.ReturnValue(ShpFld,rec))
NewSym = Mhole.GetSymbol
NewSym.SetSize(8)
NewSym.SetColor(color.getRed)
Theview.GetGraphics.Add(Mhole)
TheFtab.SetValue(TheField,rec,1)

TheFtab.SetEditable(false)