Свойство Curve.Start (Visio)

Статья
04/07/2023

Возвращает начало домена параметров объекта Curve . Только для чтения.

Синтаксис

expression. Начать

Выражение Переменная, представляющая объект Curve .

Возвращаемое значение

Двойное с плавающей точкой

Замечания

Свойство Start объекта Curve возвращает значение начальной точки в домене параметров кривой. Объект Curve описывает себя с точки зрения области параметров, которая представляет собой диапазон [Start(),End()], где Start() создает начальную точку кривой. Обратите внимание, что значение Start не является парой координат. Вместо этого он представляет относительное положение вдоль кривой начальной точки. Например, для строки значение Start обычно равно 0, значение End — 1, и можно использовать метод Point объекта Curve , чтобы определить координаты любой точки вдоль кривой, определив относительное расположение точки между начальной и конечной точками.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство Start для отображения значения начальной точки кривой. Для поиска средней точки кривой используется метод Point .

 
Sub Start_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoPaths As Visio.Paths 
 Dim vsoPath As Visio.Path 
 Dim vsoCurve As Visio.Curve 
 Dim dblStartpoint As Double 
 Dim dblEndpoint As Double 
 Dim dblX As Double 
 Dim dblY As Double 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 'Draw a shape and get its Paths collection. 
 Set vsoPaths = ActivePage.DrawOval(1, 1, 4, 4).Paths 
 
 'Iterate through the Path objects in the Paths collection. 
 For intOuterLoopCounter = 1 To vsoPaths.Count 
 
 Set vsoPath = vsoPaths.Item(intOuterLoopCounter) 
 Debug.Print "Path object " & intOuterLoopCounter 
 
 'Iterate through the curves in a Path object. 
 For intInnerLoopCounter = 1 To vsoPath.Count 
 
 Set vsoCurve = vsoPath(intInnerLoopCounter) 
 Debug.Print "Curve number " & intInnerLoopCounter 
 
 'Display the start point of the curve. 
 dblStartpoint = vsoCurve.Start 
 Debug.Print "Startpoint = " & dblStartpoint 
 
 'Display the endpoint of the curve. 
 dblEndpoint = vsoCurve.End 
 Debug.Print "Endpoint = " & dblEndpoint 
 
 'Find the midpoint of the curve. 
 vsoCurve.Point ((dblEndpoint - dblStartpoint) / 2), dblX, dblY 
 Debug.Print "Midpoint: x = " & dblx; ", y = " & dblY 
 
 Next intInnerLoopCounter 
 Debug.Print "This path has " & intInnerLoopCounter - 1 & " curve object(s)." 
 
 Next intOuterLoopCounter 
 Debug.Print "This shape has " & intOuterLoopCounter - 1 & " path object(s)." 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через