// Split Polyobject, delete selected Polys and perform an optimize to delete points

fullsplit(doc,op) { // this is the function performing the actual fullsplit
try {

var bc=new(BaseContainer);
SendModelingCommand(MCOMMAND_SPLIT,doc,op,bc,MODIFY_POLYGONSELECTION);
SendModelingCommand(MCOMMAND_DELETE,doc,op,bc,MODIFY_POLYGONSELECTION);
bc->SetData(MDATA_OPTIMIZE_TOLERANCE,0.1);
bc->SetData(MDATA_OPTIMIZE_POINTS,FALSE);
bc->SetData(MDATA_OPTIMIZE_POLYGONS,FALSE);
bc->SetData(MDATA_OPTIMIZE_UNUSEDPOINTS,TRUE);

SendModelingCommand(MCOMMAND_OPTIMIZE,doc,op,bc,MODIFY_POLYGONSELECTION);
}
catch(ExLastException) {
TextDialog("Ha! That won't work. Please select one single editable polygon object.",DLG_OK);
}
}

main(doc, op) {
doc->StartUndo();
doc->AddUndo(UNDO_OBJECT,op);
try {
StatusSetText("Expanding selection...");

fullsplit(doc,op);
StatusClear();
}
catch(ExLastException){
TextDialog("No can do. Please select one single editable polygon object.",DLG_OK);
}
doc->EndUndo();



}