'------ Script: VIEW.BMPMULTOTOOLAPPLY
theView = av.GetActiveDoc
found = FALSE
listofFieldNames = {"floorplan1","floorplan2","floorplan3","floorplan4",
"floorplan5","floorplan6","floorplan7","floorplan8","floorplan9","floorplan10",
"floorplan11","floorplan12","floorplan13","floorplan14"}
'--- Edit the field names above to match yours
listofValues = {}
p = theView.GetDisplay.ReturnUserPoint
t = theView.GetActiveThemes.Get(0)
  if (t.Is(FTheme))
    then
      found = TRUE
      theFtab = t.GetFTab
      rec = t.FindByPoint(p).Get(0)
        for each f in listofFieldNames
          theVal = theFTab.ReturnValueString(theFTab.FindField(f),rec)
            if (theVal <> NIL)
              then
                listofValues.Add(theVal)
              else
                listofValues.Add("a")
            end
        end
  end
av.Run(t.GetHotScriptName,listofValues)
if (not found)
  then
    System.Beep
end    
'
'------ End of Script: VIEW.BMPMULTITOOLAPPLY