HOW TO
Modify the View.Identify system script to identify features using a rectangle or a point.
Code: theView = av.GetActiveDoc r = theView.ReturnUserRect theThemes = theView.GetActiveThemes if (r <> NIL) then if (System.IsShiftKeyDown) then op = #VTAB_SELTYPE_OR else op = #VTAB_SELTYPE_NEW end for each t in theThemes if (t.CanSelect) then t.SelectByRect(r, op) end end else p = theView.GetDisplay.ReturnUserPoint if (System.IsShiftKeyDown) then op = #VTAB_SELTYPE_XOR else op = #VTAB_SELTYPE_NEW end for each t in theThemes if (t.CanSelect) then t.SelectByPoint(p, op) end end end av.GetProject.SetModified(true) for each t in theView.GetActiveThemes if (t.Is( FTHEME )) then v = t.GetFTab recs = v.getselection for each rec in recs found = TRUE idlabel = t.GetName++"-" f = t.GetLabelField if (f = NIL) then idlabel = idlabel++rec.SetFormat("d").AsString else idlabel = idlabel++v.ReturnValueString(f,rec) end v.Identify(rec, idlabel) end end end if (not found) then System.Beep end
Note: For more information, refer to the ArcView Help topic "Customize (dialog box)."
Get help from ArcGIS experts
Download the Esri Support App