Page.DrawSpline-Methode (Visio)
Erstellt ein neues Shape, dessen Pfad einer angegebenen Sequenz von Punkten folgt.
Syntax
Ausdruck. DrawSpline( _xyArray()_ , _Tolerance_ , _Flags_ )
Ausdruck Eine Variable, die ein Page-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| xyArray() | Erforderlich | Double | Ein Array von wechselnden X- und Y-Werten, mit denen die Punkte im Pfad des neuen Shapes definiert werden. |
| Toleranz | Erforderlich | Double | Wie weit sich der Pfad des neuen Shapes an die angegebenen Punkte annähern muss. |
| Flags | Erforderlich | Integer | Kennzeichen, die beeinflussen, wie das Shape gezeichnet wird. |
Rückgabewert
Form
Bemerkungen
Mit der DrawSpline-Methode wird ein neues Shape erstellt, dessen Pfad innerhalb einer angegebenen Toleranz des angegebenen Arrays von Punkten liegt. Geben Sie eine Toleranz von Null (0) an, um eine genaue Übereinstimmung mit den Punkten zu erreichen. Üblicherweise wird bei der DrawSpline-Methode durch die Punkte eine Übereinstimmung mit Splinesegmenten erreicht, manchmal werden jedoch Liniensegmente oder kreisförmige Bogensegmente in dem neuen Shape erzeugt.
Die Kontrollpunkte und die Toleranz befinden sich in internen Zeichnungseinheiten (Zoll) in Bezug auf den Koordinatenbereich der Seite, master oder Gruppe, in der die neue Form erstellt wird. Das übergebene Array sollte ein SAFEARRAY mit 8-Byte-Gleitkommawerten sein, die als Verweis übergeben werden (VT_R8|VT_ARRAY|VT_BYREF). So übergibt Microsoft Visual Basic Arrays an Automation-Objekte.
Die Abweichung zwischen den Punkten und dem Pfad des resultierenden Shapes liegt ungefähr innerhalb der Toleranz. Wenn eine große Anzahl von Punkten angegeben wurde, kann die tatsächliche Abweichung manchmal die vorgeschriebene Toleranz überschreiten.
Das Flags-Argument ist eine Bitmaske für die Angabe von Optionen zum Zeichnen des neuen Shapes. Der Wert sollte Null oder eine Kombination aus mindestens einem der folgenden Werte sein.
| Konstante | Wert |
|---|---|
| visSplinePeriodic | 1(&H1) |
| visSplineDoCircles | 2(&H2) |
| visSplineAbrupt | 4(&H4) |
| visSpline1D | 8(&H8) |
Wenn Flags den Wert visSplinePeriodic umfasst und die folgenden Bedingungen erfüllt sind, versucht die Anwendung, einen periodischen Spline zu zeichnen. Sonst wird von Visio ein nicht periodischer Spline gezeichnet:
Der letzte Punkt muss eine Wiederholung des ersten sein.
Wenn auch das Kennzeichen visSplineAbrupt enthalten ist, muss für den gesamten geschlossenen Pfad, der von den Punkten beschrieben wird, die Richtung und die Krümmung abrupt geändert werden können.
Wenn Flags den Wert visSplineDoCircles umfasst, werden von Microsoft Visio kreisförmige Segmente im angegebenen Array von Punkten erkannt, und für diese Segmente werden anstelle von Splinezeilen kreisförmige Bogen generiert.
Wenn Flags den Wert visSplineAbrupt umfasst, wird der Spline von Visio unterbrochen, sobald eine abrupte Änderung der Richtung oder der Krümmung im Pfad des Punkts erkannt wird. Eine abrupte Änderung der Richtung wird durch drei aufeinander folgende Punkte, A, B, C, in der Liste definiert, bei denen der Abstand zwischen B und dem Liniensegment AC größer ist als die doppelte Toleranz. Von der Anwendung wird Punkt B auch als abrupte Änderung betrachtet, wenn eines der Segmente AB oder BC mehr als doppelt so lang ist wie das andere. An dem Punkt, an dem eine abrupte Änderung erkannt wird, beendet die Anwendung das aktuelle Element (Linie, Bogen oder Spline) und beginnt mit einem neuen.
Wenn FlagsvisSpline1D enthalten und der erste und letzte Punkt in xyArray() nicht übereinstimmen, erzeugt die DrawSpline-Methode eine Form, die eindimensionales (1D)-Verhalten aufweist. Andernfalls wird eine Form mit zweidimensionalen (2D)-Verhalten erzeugt.
Wenn die ersten und letzten Punkte in xyArray() übereinstimmen, erzeugt die DrawSpline-Methode ein ausgefülltes Shape.
Beispiel
Das folgende Beispiel zeigt, wie ein periodischer Spline durch fünf beliebige Punkte gezeichnet wird, wobei der Splineansatz innerhalb von 0,25 Zoll (Zeichnung) von jedem Punkt erforderlich ist. Es ermöglicht Visio, neue Segmente im Pfad der neuen Form an Punkten zu starten, die als abrupt angesehen werden.
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
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.