PPT_LOGO_4b
Revit Programming Introduction <#>
Copyright © 2009 Autodesk Inc.
柱のジオメトリー
»' Calculate the location points for the 3 columns (assuming straight wall)
»Dim locations As New XYZArray()
»
»Dim locCurve As LocationCurve = wall.Location
»Dim ptStart As XYZ = locCurve.Curve.EndPoint(0)
»Dim ptEnd As XYZ = locCurve.Curve.EndPoint(1)
»Dim ptMid As New XYZ((ptStart.X + ptEnd.X) / 2, (ptStart.Y + ptEnd.Y) / 2, (ptStart.Z + ptEnd.Z) / 2)
»
»locations.Append(ptStart)
»locations.Append(ptMid)
»locations.Append(ptEnd)
»
»Dim sMsg As String = "Locations for the new Columns (ALWAYS reported 'raw', in inches!) are:"
»sMsg += vbCrLf & "  Start:" & ptStart.X & ", " & ptStart.Y & ", " & ptStart.Z
»sMsg += vbCrLf & "  Mid  :" & ptMid.X & ", " & ptMid.Y & ", " & ptMid.Z
»sMsg += vbCrLf & "  End  :" & ptEnd.X & ", " & ptEnd.Y & ", " & ptEnd.Z
»MsgBox(sMsg)
要素コレクション
lab2-4-1
柱のジオメトリーとタイプを取得し・・・