##
## Example script to delete all bonds within a group of selected atoms
##
## usage example:
##   mol new 1ap9
##   source deleteallbonds.tcl
##   deleteallbonds top all

proc deleteallbonds { molid seltext } {
  set sel [atomselect $molid $seltext]
  set indexlist [$sel list] 
  $sel delete 

  foreach atom $indexlist {
    set sel [atomselect $molid "index $atom"]
    $sel setbonds {{}}
    $sel delete
  }
}