| Name | Type | Description |
|---|---|---|
| x |
Double
|
|
| y |
Double
|
|
| HotArea |
Double
|
Specifies a restricted area on the subpath in which to evaluate the position of the point. |
Public Sub Test()
Dim s As Shape, spath As SubPath
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
s.ConvertToCurves
Set spath = s.Curve.Subpaths(1)
ShowOnCurve 1, 1, spath.IsOnSubPath(1, 1)
ShowOnCurve 1, 0, spath.IsOnSubPath(1, 0)
ShowOnCurve 1, 3, spath.IsOnSubPath(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 subpath"
Case cdrOnMarginOfShape
s = s & "over the outline"
Case cdrInsideShape
s = s & "inside the subpath"
End Select
MsgBox s End Function