View Single Post
Old 16-09-2007, 10:30
shelbym's Avatar
shelbym shelbym is offline
Senior Member
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,769
Blog Entries: 9
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default CrossPoints

Have a look at this example.
Sub FindCrossPoints()
    Dim s1 As Shape, sr As New ShapeRange
    Dim s As Shape
    Dim cps As CrossPoints
    Dim cp As CrossPoint

    sr.Add ActiveLayer.CreateEllipse2(4, 4, 3)
    sr.Add ActiveLayer.CreateEllipse2(5, 3, 2)

    Set s = sr.Combine

    Set cps = s.Curve.SubPaths(1).GetIntersections(s.Curve.SubPaths(2))

    For Each cp In cps
        ActiveLayer.CreateEllipse2 cp.PositionX, cp.PositionY, 0.1
    Next cp
End Sub
Reply With Quote