© 2010 Autodesk
Introduction to Revit 2011 API
§
<VB.NET>
    ''  show the location information of the given element.
    Public Sub ShowLocation(ByVal elem As Element)
        Dim s As String = “位置情報: " + vbCr + vbCr
        Dim loc As Location = elem.Location
 
        If TypeOf loc Is LocationPoint Then
            '' (1) we have a location point
            Dim locPoint As LocationPoint = loc
            Dim pt As XYZ = locPoint.Point
            Dim r As Double = locPoint.Rotation
            ... 
        ElseIf TypeOf loc Is LocationCurve Then
            '' (2) we have a location curve
            Dim locCurve As LocationCurve = loc
            Dim crv As Curve = locCurve.Curve
            ...
                       s = s + “終点(0)/始点 = " + PointToString(crv.EndPoint(0))
            s = s + “終点(1)/終点 = " + PointToString(crv.EndPoint(1))
            s = s + “長さ = " + crv.Length.ToString + vbCr
        End If
               … 
    End Sub
 </VB.NET>
要素
位置 情報の取得
このサンプルは 渡された要素のLocation プロパティの値を取得し、それが座標点か曲線かをランタイプタイプ識別で判定して位置情報を取得しています。