APSF
//- This script blanks the selected field in all objects in a plan document.
//- The field to blank is selected via a dialog.
//-
//- Paul Rodman, April 2008
//-
//- V1.0   9 April 2008
//-    Initial release

dim i,fld as integer

// Get the field to be blanked
SetChoiceParameter("Field to delete",0,"None","User Field 1","User Field 2","User Field 3","User Field 4","Name","Notes")
if not EditParameters("Blank Object Fields") then return
fld=GetChoiceParameter("Field to delete")
if fld<=0 then return

// Blank the field for each object
for i=1 to nObj
  select case fld
  case 1,2,3,4
    Obj(i).User(fld)=""
  case 5
    Obj(i).Name=""  
  case 6
    Obj(i).Notes=""
  end select
next