sub main dim rep as string dim a as arc CamBamConfig.Defaults.ReloadTreeAfterScript = false dim newselection as ArrayList = new ArrayList() if view.SelectedEntities.Length > 0 then for each ent as Entity in view.SelectedEntities if typeof ent is arcentity.delete() end if next ent view.Select(newselection) view.RefreshView() end ifend sub