Dim s As ShapeDim seg As SegmentSet s = ActiveLayer.CreatePolygon(3, 6, 7, 2, 3)s.ConvertToCurvess.Curve.Nodes.Range(2, 4, 6).DeleteSet seg = s.Curve.Segments(2)seg.Previous.Type = cdrCurveSegmentseg.Next.Type = cdrCurveSegmentseg.Type = cdrCurveSegmentseg.StartNode.Type = cdrSmoothNodeseg.EndNode.Type = cdrSmoothNodeEnd Sub