Método Master.DrawSpline (Visio)

Cria uma nova forma cujo caminho segue uma determinada sequência de pontos.

Sintaxe

expression. DrawSpline( _xyArray()_ , _Tolerance_ , _Flags_ )

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
xyArray()	Obrigatório	Double	Uma matriz de valores x e y alternados que definem pontos no caminho da nova forma.
Tolerance	Obrigatório	Double	Quanto o caminho da nova forma deve se aproximar dos pontos determinados.
Flags	Obrigatório	Integer	Sinalizadores que influenciam a maneira como a forma é desenhada.

Valor de retorno

Forma

Comentários

O método DrawSpline cria uma nova forma cujo caminho fica dentro da tolerância determinada da matriz de pontos determinada. Para ajustar os pontos determinados exatamente, especifique uma tolerância zero (0). Normalmente, o método DrawSpline ajusta os segmentos de spline nos pontos, mas às vezes ele produz segmentos de arco lineares ou circulares na nova forma.

Os pontos de controle e a tolerância estão em unidades de desenho internas (polegadas) com relação ao espaço de coordenadas da página, mestre ou grupo no qual a nova forma é criada. A matriz passada deve ser SAFEARRAY de valores de ponto flutuante de 8 bytes passados por referência (VT_R8|VT_ARRAY|VT_BYREF). É assim que o Microsoft Visual Basic passa matrizes para objetos Automation.

O erro entre os pontos e o caminho da forma resultante está aproximadamente dentro da tolerância. Quando o número de pontos é grande, às vezes o erro real pode exceder a tolerância prescrita.

O parâmetro Flags é uma bitmask que especifica opções para desenhar a nova forma. Seu valor deve ser zero (0) ou uma combinação de um ou mais dos valores a seguir.

Constant	Valor
visSplinePeriodic	1(&H1)
visSplineDoCircles	2(&H2)
visSplineAbrupt	4(&H4)
visSpline1D	8(&H8)

Se Flags incluir visSplinePeriodic e as condições a seguir forem atendidas, o aplicativo tentará desenhar uma spline periódica. Caso contrário, o Visio desenhará uma spline não-periódica:

• O último ponto deve ser uma repetição do primeiro.

• Se o sinalizador visSplineAbrupt também estiver incluído, todo o caminho fechado delineado pelos pontos deverá estar livre de alterações abruptas na direção e na curvatura.

Se Flags incluir visSplineDoCircles, o Microsoft Visio reconhecerá segmentos circulares na matriz de pontos determinada e gerará arcos circulares em vez de linhas de spline para esses segmentos.

Se Flags incluir visSplineAbrupt, o Visio quebrará a spline onde detectar uma alteração abrupta na direção ou na curvatura na trilha do ponto. Uma alteração abrupta na direção é definida por três pontos consecutivos A, B, C na lista para os quais a distância entre B e o segmento de linha AC é mais que duas vezes a tolerância. O aplicativo também considerará o ponto B como uma alteração abrupta se um dos segmentos AB ou BC for mais que duas vezes maior que o outro. No ponto no qual uma alteração é detectada, o aplicativo finaliza a peça atual (linha, arco ou spline) e inicia uma nova.

Se Flags incluir visSpline1D e os primeiros e últimos pontos em xyArray() não coincidirem, o método DrawSpline produzirá uma forma que tem comportamento unidimensional (1D), caso contrário, produz uma forma com comportamento bidimensional (2D).

Se o primeiro e o último ponto em xyArray() coincidirem, o método DrawSpline produzirá uma forma preenchida.

Exemplo

O exemplo a seguir mostra como desenhar uma spline periódica através de cinco pontos arbitrários, exigindo que a spline se aproxime até 0,25 (desenho) polegadas de cada ponto. Ele permite que o Visio inicie novos segmentos no caminho da nova forma em pontos considerados abruptos.

 
Public Sub DrawSpline_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim intCounter As Integer 
 Dim adblXYPoints(1 To (5 * 2)) As Double 
 
 For intCounter = 1 To 5 
 
 'Set x components (array elements 1,3,5,7,9) to 1,2,3,4,5 
 adblXYPoints((intCounter * 2) - 1) = intCounter 
 
 'Set y components (array elements 2,4,6,8,10) to f(i) 
 adblXYPoints(intCounter * 2) = (intCounter * intCounter) - (7 * intCounter) + 15 
 Next intCounter 
 
 Set vsoShape = ActivePage.DrawSpline(adblXYPoints, 0.25, visSplineAbrupt) 
 
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.