Curve.Point 方法 (Visio)

返回位于曲线上某个位置的点。

语法

表达式。点 (t、 x、 y)

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

参数

名称	必需/可选	数据类型	说明
t	必需	Double	要计算的位于曲线的参数域内的值。
x	必需	Double	返回 t 处曲线的 x 值。
y	必需	Double	返回 t 处曲线的 y 值。

返回值

Nothing

注解

Curve 对象是使用其参数域进行描述的，参数域为范围 [Start(),End()]。 Curve 对象的 Point 方法返回 t 位置的 x，y 坐标，即沿曲线路径的任何位置。 Point 方法可以用于将曲线的路径延伸到 [Start(),End()] 之外。

示例

此 Microsoft Visual Basic for Applications (VBA) 宏将在文档的活动页上绘制一个圆（椭圆的一个特例）。 然后，它将遍历这个圆的 Paths 集合以及每个 Path 对象，以显示曲线上各个点的坐标。 由于所绘制的形状是圆形，因此是仅具有一个路径的 Curve 对象。

 
Sub Point_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoPaths As Visio.Paths 
 Dim vsoPath As Visio.Path 
 Dim vsoCurve As Visio.Curve 
 Dim dblEndpoint As Double 
 Dim dblXCoordinate As Double 
 Dim dblYCoordinate As Double 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 'Get the Paths collection for this shape. 
 Set vsoPaths = ActivePage.DrawOval(1, 1, 4, 4).Paths 
 
 'Iterate through the Path objects in the Paths collection. 
 For intOuterLoopCounter = 1 To vsoPaths.Count 
 Set vsoPath = vsoPaths.Item(intOuterLoopCounter) 
 Debug.Print "Path object " & intOuterLoopCounter 
 
 'Iterate through the curves in the Path object. 
 For intInnerLoopCounter = 1 To vsoPath.Count 
 
 Set vsoCurve = vsoPath(intInnerLoopCounter) 
 Debug.Print "Curve number " & intInnerLoopCounter 
 
 'Display the endpoint of the curve 
 dblEndpoint = vsoCurve.End 
 Debug.Print "Endpoint= " & dblEndpoint 
 
 'Use the Point method to determine the 
 'coordinates of an arbitrary point on the curve 
 vsoCurve.Point (dblEndpoint/2), dblXCoordinate, dblYCoordinate 
 Debug.Print "Point= " & dblXCoordinate, dblYCoordinate 
 
 Next intInnerLoopCounter 
 Debug.Print "This path has " & intInnerLoopCounter - 1 & " curve object(s)." 
 
 Next intOuterLoopCounter 
 Debug.Print "This shape has " & intOuterLoopCounter - 1 & " path object(s)." 
 
End Sub

支持和反馈

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