|
|
发表于 2008-3-20 14:25:00
|
显示全部楼层
语法
object.Coordinate(index)
object
, , , , , , ,
使用该属性的对象。
Coordinate
Variant[变体] (三元素或两元素双精度数组); 可读写
指定顶点的 X、 Y 和 Z 坐标的数组。
LightweightPolyline 对象：变体为两元素，它表示 OCS 坐标系统下的 X 和 Y 坐标。
Polyline 对象：: 变体为三元素，它表示 OCS 坐标系统下的 X 和 Y 坐标。而 Z 坐标在变体中有预留但被忽略。
所有其它对象：变体为三元素，它表示 WCS 坐标系统下的 X 和 Y 坐标；而 Z 坐标在活动 UCS 上默认为 0。
Index
Integer[整数]
在顶点数组中你所要设置或查询的顶点的索引号。顶点数组的基数为 0。
说明
该属性将替换指定对象任何存在的顶点。使用标准的数组处理技术来处理包含在该属性中的值。
3DPolyline, Polyline, PolygonMesh: 对于简单的多段线 (非样条化或曲线拟合)，该属性指的是一般的顶点。对于样条化或曲线拟合的多段线，该属性指的是控制点顶点。
Polyline 和 LightweightPolyline 对象的 OCS 坐标可以使用 方法与其它坐标系统进行转换。
©2000-2006 版权所有 不得复制传播
该拷贝仅用于乐筑天下网站在线服务使用，如需要购买，请联系本站管理员：mccad，邮件地址：
Sub Example_Coordinate()
' This example creates a polyline in model space and
' queries and changes the coordinate in the first index position.
Dim plineObj As AcadPolyline
Dim points(0 To 14) As Double
' Define the 2D polyline points
points(0) = 1: points(1) = 1: points(2) = 0
points(3) = 1: points(4) = 2: points(5) = 0
points(6) = 2: points(7) = 2: points(8) = 0
points(9) = 3: points(10) = 2: points(11) = 0
points(12) = 4: points(13) = 4: points(14) = 0
' Create a lightweight Polyline object in model space
Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
ZoomAll
' Find the coordinate in the first index position
Dim coord As Variant
coord = plineObj.Coordinate(0)
MsgBox "The coordinate in the first index position of the polyline is: " & coord(0) & ", " _
& coord(1) & ", " & coord(2)
' Change the coordinate
coord(0) = coord(0) + 1
plineObj.Coordinate(0) = coord
plineObj.Update
' Query the new coordinate
coord = plineObj.Coordinate(0)
MsgBox "The coordinate in the first index position of the polyline is now: " & coord(0) & ", " _
& coord(1) & ", " & coord(2)
End Sub
|
|
置顶卡
