(
	undo "myboolean" on
	(
		if selection.count == 1 then
		(
			obj = $
			fn geomFilt o = (superClassOf o == geometryclass)
			pickobj = pickObject rubberBand:obj.pos rubberBandColor:yellow filter:geomFilt
			if pickobj != #escape AND pickobj != undefined then
			(
				ProBoolean.createBooleanObject obj pickobj 0 0 0
				ProBoolean.SetPlanarEdgeRemoval obj 3
			)
		)
	)
)