Sub Test() Dim s As Shape Dim sp As SnapPoint, i As Long Set s = ActiveLayer.CreateRectangle2(0, 0, 2, 2, 0.5, 0.5, 0.5, 0.5) For i = 1 To s.SnapPoints.Count Set sp = s.SnapPoints(i) ActiveLayer.CreateEllipse2 sp.PositionX, sp.PositionY, 0.05 Next iEnd Sub
Sub Test() Dim s As Shape Dim sp As SnapPoint Set s = ActiveLayer.CreateRectangle2(0, 0, 2, 2, 0.5, 0.5, 0.5, 0.5) For Each sp In s.SnapPoints ActiveLayer.CreateEllipse2 sp.PositionX, sp.PositionY, 0.05 Next spEnd Sub