Método Path.Points (Visio)
Devuelve una matriz de puntos que define una polilínea que se aproxima a un objeto Path o Curve dentro de una tolerancia determinada.
Sintaxis
expresión. Puntos (tolerancia, xyArray())
Expresión Variable que representa un objeto Path .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Tolerance | Obligatorio | Double | Especifica cuánto debe aproximarse la matriz de puntos devuelta a la ruta verdadera. |
| xyArray() | Obligatorio | Double | Parámetro de salida. Devuelve una matriz de valores x e y alternos que especifican los puntos a lo largo del trazo de una ruta o de una curva. |
Valor devuelto
Nothing
Comentarios
Utilice el método Points del objeto Path o Curve para obtener una matriz de coordenadas x,y que especifique puntos a lo largo de la ruta de acceso o la curva dentro de una tolerancia determinada. Tanto la tolerancia como los valores x,y devueltos se expresan en unidades de dibujo internas (pulgadas).
Si utilizó la propiedad Paths de un objeto Shapes para obtener el objeto Path o Curve al que se hace la consulta, las coordenadas se expresarán en el sistema de coordenadas principal. Si utilizó la propiedad PathsLocal de un objeto Shape para obtener el objeto Path o Curve, las coordenadas se expresarán en el sistema de coordenadas local.
Si Microsoft Visio no puede alcanzar la tolerancia solicitada, aproximará los puntos a dicha tolerancia tanto como sea posible. En términos generales, cuanto menor sea la tolerancia, mayor será el número de puntos que devolverá Visio. Visio no acepta una tolerancia de cero (0).
La matriz devuelta incluye los puntos inicial y final de la ruta o la curva, incluso si está cerrada.
Ejemplo:
Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) coloca una forma en la página, recupera su colección Paths y, a continuación, utiliza el método Points del objeto Path para devolver una matriz de puntos que define una polilínea que se aproxima al objeto Path.
Public Sub Points_Example()
Dim vsoShape As Visio.Shape
Dim adblXYPoints() As Double
Dim strPointsList As String
Dim intOuterLoopCounter As Integer
Dim intInnerLoopCounter As Integer
Set vsoShape = ActivePage.DrawOval(1, 1, 4, 4)
For intOuterLoopCounter = 1 To vsoShape.Paths.Count
vsoShape.Paths(intOuterLoopCounter).Points 0.1, adblXYPoints
For intInnerLoopCounter = LBound(adblXYPoints) To UBound(adblXYPoints)
strPointsList = strPointsList & adblXYPoints(intInnerLoopCounter) & Chr(10)
Next intInnerLoopCounter
Next intOuterLoopCounter
Debug.Print strPointsList
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.