Sub Test() Dim s As Shape Dim n As Node Dim sp As SubPath Dim crv As Curve Dim nr1 As NodeRange Dim nr2 As New NodeRange Set crv = CreateCurve(ActiveDocument) ActiveDocument.ReferencePoint = cdrBottomLeft Set sp = crv.CreateSubPath(-1, 0.2) sp.AppendLineSegment 0.5, 1 sp.AppendCurveSegment 2, 3 sp.AppendCurveSegment 4, 1 sp.AppendCurveSegment 5, 4 sp.AppendCurveSegment 7, 2 sp.AppendLineSegment 8, 5 sp.AppendLineSegment 9, 1 sp.Nodes(2).Type = cdrSmoothNode sp.Nodes(4).Type = cdrSmoothNode Set s = ActiveLayer.CreateCurve(crv) Set nr1 = s.Curve.Nodes.All For Each n In s.Curve.Nodes If n.Type = cdrCuspNode Then nr2.Add n End If Next n nr1.RemoveRange nr2End Sub