# unselect previously selected objects
set save_cwd = `execute("oppwf")`  # note where we were

opcf /obj

set sel_now = `opselect("/obj")`
if ( `argc($sel_now) > 0` )
  foreach obj ( `opselect("/obj")` )
    opset -p off $obj  # make sure each is unselected
  end
endif

opcf $save_cwd  # back to where we were before we got here