Curve.PointAndDerivatives, méthode (Visio)

Article
04/07/2023

Renvoie un point et ses dérivées correspondant à une position donnée sur le chemin d’une courbe.

Syntaxe

expression. PointAndDerivatives (t, n, x, y, dxdt, dydt, ddxdt, ddydt)

Expression Variable qui représente un objet Curve .

Parameters

Nom	Requis/Facultatif	Type de données	Description
t	Requis	Double	Valeur à calculer dans le domaine de paramètres de la courbe.
n	Requis	Integer	0 : récupérer un point ; 1 : point et dérivée ; 2 : point, ainsi que première et deuxième dérivées.
x	Obligatoire	Double	Retourne la valeur x de la courbe à t.
y	Obligatoire	Double	Retourne la valeur y de la courbe à t.
dxdt	Requis	Double	Retourne la première dérivée ( dx/dt) à t si n> 0.
dydt	Requis	Double	Retourne la première dérivée ( dy/dt) à t si n> 0.
ddxdt	Requis	Double	Retourne la deuxième dérivée ( ddx/dt) à t si n> 1.
ddydt	Requis	Double	Retourne la deuxième dérivée ( ddy/dt) à t si n> 1.

Valeur renvoyée

Aucune

Remarques

Utilisez la méthode PointAndDerivatives de l'objet Curve pour obtenir les coordonnées d'un point dans le domaine de paramètres de la courbe et ses première et deuxième dérivées.

Un objet Curve est décrit en termes de domaine de paramètres, constitué de la plage [Start(),End()]. La méthode PointAndDerivatives peut être utilisée pour extrapoler le chemin de la courbe à l'extérieur de [Start(),End()].

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) dessine un ovale sur la page active du document, puis le récupère et effectue une itération dans sa collection Paths et dans chaque objet Path pour afficher les coordonnées de différents points sur la courbe. Étant donné que la forme dessinée est un ovale, elle ne comporte qu'un seul chemin et un seul objet 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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via