Sub Test() Const Steps As Long = 50 Dim s As Shape, sp As SubPath Dim x As Double, y As Double Dim t As Double Set s = ActiveLayer.CreateEllipse(0, 0, 5, 5) For Each sp In s.DisplayCurve.Subpaths For t = 0 To Steps - 1 sp.GetPointPositionAt x, y, t / Steps ActiveLayer.CreateEllipse2 x, y, 0.05 Next t Next spEnd Sub