Previous Document Next Document

Object Model Reference : Classes : S : SubPath : Properties : SubPath.Index


SubPath.Index

Property Index As Long

Description

Member of SubPath

The Index property returns the index number of a curve’s subpath.

The Index property returns a read-only value.

VBA example

The following VBA example place a number next to each subpath.

Sub Test()
Dim spath As SubPath
Dim x As Double, y As Double, a As Double
Dim s As Shape
For Each spath In ActiveShape.Curve.SubPaths
spath.GetPointPositionAt x, y, 0.5, cdrRelativeSegmentOffset
a = spath.GetPerpendicularAt(0.5, cdrRelativeSegmentOffset)
If a < 0 Or a > 180 Then a = a + 180
a = a * 3.1415926 / 180
x = x + 0.2 * Cos(a)
y = y + 0.2 * Sin(a)
Set s = ActiveLayer.CreateArtisticText(x, y, CStr(spath.Index))
With s.Text
.AlignProperties.Alignment = cdrCenterAlignment
.FontProperties.Name = "Arial"
.FontProperties.Size = 18
End With
Next spath
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.