Método Curve.PointAndDerivatives (Visio)

Retorna um ponto e suas derivativas em uma posição ao longo do caminho de uma curva.

Sintaxe

expressão. PointAndDerivatives (t, n, x, y, dxdt, dydt, ddxdt, ddydt)

Expressão Uma variável que representa um objeto Curve .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
T	Obrigatório	Double	O valor no domínio do parâmetro da curva a ser avaliado.
n	Obrigatório	Integer	0: ponto de obtenção; 1: ponto e primeira derivativa; 2: ponto mais primeira e segunda derivativas.
x	Obrigatório	Double	Retorna x valor da curva em t.
y	Obrigatório	Double	Retorna o valor y da curva em t.
dxdt	Obrigatório	Double	Retorna primeiro derivativo ( dx/dt) em t if n> 0.
dydt	Obrigatório	Double	Retorna primeiro derivativo ( dy/dt) em t if n> 0.
ddxdt	Obrigatório	Double	Retorna a segunda derivada ( ddx/dt) em t if n> 1.
ddydt	Obrigatório	Double	Retorna a segunda derivada ( ddy/dt) em t if n> 1.

Valor de retorno

Nada

Comentários

Use o método PointAndDerivatives do objeto Curve para obter as coordenadas de um ponto no domínio do parâmetro da curva e sua primeira e segunda derivativas.

Um objeto Curve é descrito em termos de seu domínio de parâmetro, que é o intervalo [Start(),End()]. O método PointAndDerivatives pode ser usado para extrapolar o caminho da curva fora de [Start(),End()].

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) desenha uma elipse na página ativa do documento e, em seguida, recupera a mesma através de sua coleção Paths e cada objeto Path para exibir as coordenadas de vários pontos ao longo da curva. Como a forma desenhada é uma elipse, ela contém apenas um caminho e apenas um 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.