Método Curve.Point (Visio)
Devuelve un punto en una posición a lo largo del trazado de una curva.
Sintaxis
expresión. Punto (t, x, y)
Expresión Variable que representa un objeto Curve .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| t | Obligatorio | Double | Valor del dominio de parámetros de la curva que se va a evaluar. |
| x | Obligatorio | Double | Devuelve el valor x de la curva en t. |
| y | Obligatorio | Double | Devuelve el valor y de la curva en t. |
Valor devuelto
Nothing
Comentarios
Un objeto Curve se describe en función del dominio de sus parámetros, que es el intervalo [Start(),End()]. El método Point de un objeto Curve devuelve las coordenadas x,y en la posición t, que es cualquier posición a lo largo de la ruta de acceso de la curva. El método Point se puede utilizar para extrapolar el trazado de la curva fuera de [Start(),End()].
Ejemplo:
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) dibuja un círculo (un tipo especial de elipse) en la página activa del documento. A continuación recorre la colección Paths del círculo y cada objeto Path para mostrar las coordenadas de varios puntos a lo largo de la curva. Como la forma dibujada es un círculo, se trata de un objeto Curve que sólo tiene un trazado.
Sub Point_Example()
Dim vsoShape As Visio.Shape
Dim vsoPaths As Visio.Paths
Dim vsoPath As Visio.Path
Dim vsoCurve As Visio.Curve
Dim dblEndpoint As Double
Dim dblXCoordinate As Double
Dim dblYCoordinate As Double
Dim intOuterLoopCounter As Integer
Dim intInnerLoopCounter As Integer
'Get the Paths collection for this shape.
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 the Path object.
For intInnerLoopCounter = 1 To vsoPath.Count
Set vsoCurve = vsoPath(intInnerLoopCounter)
Debug.Print "Curve number " & intInnerLoopCounter
'Display the endpoint of the curve
dblEndpoint = vsoCurve.End
Debug.Print "Endpoint= " & dblEndpoint
'Use the Point method to determine the
'coordinates of an arbitrary point on the curve
vsoCurve.Point (dblEndpoint/2), dblXCoordinate, dblYCoordinate
Debug.Print "Point= " & dblXCoordinate, dblYCoordinate
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.