dim pointsel,objsel9
set objsel9=getvalue("selectionlist")
logmessage getvalue("selectionlist"),siinfo
DuplicateMeshComponent objsel9, siPersistentOperation
set objsel9=getvalue("selectionlist")
SelectAdjacent objsel9 ,"Point", false
set pointsel=getvalue("selectionlist")
ApplyTopoOp "DissolveComponent", (pointsel), siUnspecified, siPersistentOperation 
DeselectAll