| Name | Type | Description |
|---|---|---|
| x |
Double
|
|
| y |
Double
|
|
| HotArea |
Double
|
Specifies a restricted area on the curve in which to evaluate the position of a point. |
Sub OnCurve()
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
s.ConvertToCurves
ShowOnCurve 1, 1, s.Curve.IsOnCurve(1, 1)
ShowOnCurve 1, 0, s.Curve.IsOnCurve(1, 0)
ShowOnCurve 1, 3, s.Curve.IsOnCurve(1, 3)
End Sub Private Function ShowOnCurve(x As Double, y As Double, v As cdrPositionOfPointOverShape)
Dim s As String
s = "Point (" & x & "," & y & ") is "
Select Case v
Case cdrOutsideShape
s = s & "outside the shape"
Case cdrOnMarginOfShape
s = s & "over the outline"
Case cdrInsideShape
s = s & "inside the shape"
End Select
MsgBox s End Function