'----------------------------------------------
'---------Creation Information-----------------
'----------------------------------------------
'
'Name: seljunc
'Author:  Cindy How
'Date:    6/23/97
'      
'----------------------------------------------
'------------Purpose/Description---------------
'----------------------------------------------
'
'This script will take select the point to be
'flagged as a junction with no manhole.  It is 
'run in conjunction with the script JUNCTION, with
'JUNCTION as the Click event and SELJUNC as the
'Apply event.
'
'FOR USE WITH OSBL UNITS
'
'-----------------------------------------------
'-------------------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("onode.shp")
TheFtab = TheTheme.GetFtab
TheField = TheFtab.Findfield("Junction")
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)



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

TheFtab.SetEditable(false)