Define GeometricalSet as workobject

MyPart.InWorkObject = MyGS