Curve.PointAndDerivatives-Methode (Visio)

Artikel
04/07/2023

Gibt einen Punkt und seine Ableitungen an einer Position entlang des Pfads einer Kurve zurück.

Syntax

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

Ausdruck Eine Variable, die ein Curve-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
t	Erforderlich	Double	Der auszuwertende Wert in der Parameterdomäne für die Kurve.
n	Erforderlich	Integer	0: abzurufender Punkt; 1: Punkt und erste Ableitung; 2: Punkt und erste plus zweite Ableitung.
x	Erforderlich	Double	Gibt den x-Wert der Kurve bei t zurück.
y	Erforderlich	Double	Gibt den y-Wert der Kurve bei t zurück.
dxdt	Erforderlich	Double	Gibt die erste Ableitung ( dx/dt) bei t zurück, wenn n> 0.
dydt	Erforderlich	Double	Gibt die erste Ableitung ( dy/dt) bei t zurück, wenn n> 0.
ddxdt	Erforderlich	Double	Gibt die zweite Ableitung ( ddx/dt) bei t zurück, wenn n> 1.
ddydt	Erforderlich	Double	Gibt die zweite Ableitung ( ddy/dt) bei t zurück, wenn n> 1.

Rückgabewert

Nichts

Bemerkungen

Verwenden Sie die PointAndDerivatives-Methode des Curve-Objekts, um die Koordinaten für einen Punkt innerhalb der Parameterdomäne für die Kurve sowie die erste und zweite Ableitung zu bestimmen.

Ein Curve-Objekt wird in Bezug auf seine Parameterdomäne beschrieben, die den Bereich [Start(),End()] darstellt. Mit der PointAndDerivatives-Methode kann der Pfad einer Kurve außerhalb von [Start(),End()] erschlossen werden.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic for Applications) zeichnet ein Oval auf der aktiven Seite des Dokuments, ruft es dann ab und durchläuft die Paths-Auflistung und jedes Path-Objekt, um die Koordinaten verschiedener Punkte entlang der Kurve anzuzeigen. Da die gezeichnete Form ein Oval ist, enthält sie nur einen Pfad und nur ein Curve-Objekt .

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über