Método Curve.PointAndDerivatives (Visio)
Devuelve un punto y sus derivadas en una posición a lo largo del trazado de una curva.
Sintaxis
expresión. PointAndDerivatives (t, n, x, y, dxdt, dydt, ddxdt, ddydt)
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. |
| n | Obligatorio | Integer | 0: obtener un punto; 1: punto y primera derivada; 2: punto más primera y segunda derivada. |
| x | Obligatorio | Double | Devuelve el valor x de la curva en t. |
| y | Obligatorio | Double | Devuelve el valor y de la curva en t. |
| dxdt | Obligatorio | Double | Devuelve el primer derivado ( dx/dt) en t si n> 0. |
| dydt | Obligatorio | Double | Devuelve el primer derivado ( dy/dt) en t si n> 0. |
| ddxdt | Obligatorio | Double | Devuelve el segundo derivado ( ddx/dt) en t si n> 1. |
| ddydt | Obligatorio | Double | Devuelve el segundo derivado ( ddy/dt) en t si n> 1. |
Valor devuelto
Nothing
Comentarios
Utilice el método PointAndDerivatives del objeto Curve para obtener las coordenadas de un punto dentro del dominio de parámetros de la curva y sus derivadas primera y segunda.
Un objeto Curve se describe en función del dominio de sus parámetros, que es el intervalo [Start(),End()]. El método PointAndDerivatives 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 una elipse en la página activa del documento y, a continuación, la recupera y recorre su colección Paths y cada objeto Path para mostrar las coordenadas de varios puntos a lo largo de la curva. Como la forma dibujada es una elipse, únicamente contiene un trazado y un solo objeto Curve.
Sub PointAndDerivatives_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 dblXCoordinate As Double
Dim dblYCoordinate As Double
Dim dblFirstDerivativeX As Double
Dim dblFirstDerivativeY As Double
Dim dblSecondDerivativeX As Double
Dim dblSecondDerivativeY 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 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
'Use the PointAndDerivatives method to obtain
'a point and the first derivative at that point.
vsoCurve.PointAndDerivatives (dblStartpoint - 1), 1, _
dblXCoordinate, dblYCoordinate, dblFirstDerivativeX, dblFirstDerivativeY, dblSecondDerivativeX, dblSecondDerivativeY
Debug.Print "PointAndDerivative= " & dblXCoordinate, dblYCoordinate, dblFirstDerivativeX, dblFirstDerivativeY
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.