Page.DrawSpline 方法 (Visio)

创建一个新建形状，其路径沿着给定的点序列。

语法

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

表达 一个代表 Page 对象的变量。

参数

名称	必需/可选	数据类型	说明
xyArray ()	必需	Double	一个交替出现 x 和 y 值的数组，这些值定义新建形状路径中的点。
Tolerance	必需	Double	新建形状的路径必须接近于给定点的程度。
Flags	必需	Integer	影响形状绘制方式的标志。

返回值

Shape

说明

DrawSpline 方法创建一个新建形状，其路径在一组给定点的给定公差范围内。 要与给定点完全吻合，请指定公差为零 (0)。 通常，DrawSpline 方法会使样条线段与这些点吻合，但有时也会在新建形状中生成线条或圆弧线段。

控制点和公差以在其中创建新建形状的页面、主控形状或组的坐标空间的内部绘图单位（英寸）表示。 传递的数组应该是 SAFEARRAY 类型的由引用 (VT_R8|VT_ARRAY|VT_BYREF) 传递的 8 字节浮点值。 这是 Microsoft Visual Basic 向自动对象传递数组的方式。

从这些点到结果形状路径的误差大致在公差范围之内。 点数很多时，实际的误差有时可能会超出指定的公差。

Flags 参数是一个位掩码，指定用于绘制新建形状的选项。 此参数的值应为零或下面一个或多个值的组合。

常量	值
visSplinePeriodic	1 (&H1)
visSplineDoCircles	2 (&H2)
visSplineAbrupt	4 (&H4)
visSpline1D	8 (&H8)

如果 Flags 包括 visSplinePeriodic 且满足下列条件，应用程序将尝试绘制一个周期性样条。 否则，Visio 将绘制一个非周期性样条：

• 最后一个点必须与第一个点重叠。

• 如果还包含标志 visSplineAbrupt，则由这些点勾勒出的整个封闭路径不得在方向和曲度上有突然变化。

如果 Flags 包括 visSplineDoCircles，则 Microsoft Visio 识别一组给定点中的圆弓形，并为这些圆弓形生成圆弧而不是样条行。

如果 Flags 包括 visSplineAbrupt，则每当在点的尾部检测到方向或曲度发生了突然变化时，Visio 将断开样条。 对于列表中三个连续的点 A、B、C，如果点 B 和线段 AC 之间的距离大于两倍的公差，则认为方向发生突然变化。 如果线段 AB 或 BC 中一条线段的长度超过另一条的两倍，则应用程序也认为点 B 发生了突然变化。 在检测到发生了突然变化的点上，应用程序会结束当前段（线条、弧或样条）并开始一个新段。

如果 Flags 包括 visSpline1D 且 xyArray () 中的第一个和最后一个点不一致， 则 DrawSpline 方法将生成具有一维 (1D) 行为的形状，否则将生成具有二维 (2D) 行为的形状。

如果 xyArray() 中的第一个点和最后一个点重合，则 DrawSpline 方法生成填充形状。

示例

以下示例显示如何绘制一个通过五个任意点的周期性样条，同时要求样条与各个点之间的距离在 0.25（绘图）英寸范围内。 该示例允许 Visio 在新建形状的路径上发生突然变化的点处开始新段。

 
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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。