Curve.Points-Methode (Visio)
Gibt ein Array von Punkten zurück, das eine Polylinie definiert, die einem Path - oder Curve-Objekt innerhalb einer bestimmten Toleranz nähert.
Syntax
Ausdruck. Punkte (Tolerance, xyArray())
Ausdruck Eine Variable, die ein Curve-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Toleranz | Erforderlich | Double | Gibt an, wie weit sich das zurückgegebene Array von Punkten an die eigentliche Strecke annähern muss. |
| xyArray() | Erforderlich | Double | Gibt ein Array wechselnder X- und Y-Werte zurück, die Punkte des Strichs einer Strecke oder einer Kurve angeben. |
Rückgabewert
Nichts
Bemerkungen
Verwenden Sie die Points-Methode des Path - oder Curve-Objekts , um ein Array von x,y-Koordinaten abzurufen, das Punkte entlang des Pfads oder der Kurve innerhalb einer bestimmten Toleranz angibt. Die Toleranz und die zurückgegebenen X, Y-Werte werden in internen Zeichnungseinheiten (Zoll) ausgedrückt.
Wenn Sie mit der Paths-Eigenschaft eines Shapes-Objekts das abgefragte Path- oder Curve-Objekt abgerufen haben, werden die Koordinaten im übergeordneten Koordinatensystem ausgedrückt. Wenn Sie mit der PathsLocal-Eigenschaft eines Shape-Objekts das Path- oder Curve-Objekt abgerufen haben, werden die Koordinaten im lokalen Koordinatensystem ausgedrückt.
Wenn die angeforderte Toleranz von Microsoft Visio nicht erreicht werden kann, werden die Punkte so nah wie möglich an die angeforderte Toleranz angenähert. Allgemein ausgedrückt, je geringer die Toleranz desto mehr Punkte werden von Visio zurückgegeben. Visio akzeptiert keine Toleranz von Null (0).
Das zurückgegebene Array enthält die Anfangs- und Endpunkte der Strecke oder Kurve, sogar wenn sie geschlossen ist.
Beispiel
Mit diesem VBA-Makro (Microsoft Visual Basic für Applikationen) wird ein Shape auf dem Zeichenblatt platziert, die Paths-Auflistung abgerufen und dann mit der Points-Methode des Path-Objekts ein Array von Punkten zurückgegeben, mit dem eine Polylinie definiert wird, die sich dem Path-Objekt annähert.
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
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.