PPT_LOGO_4b
Revit Programming Introduction <#>
Copyright © 2009 Autodesk Inc.
要素ジオメトリーを表示
»Private Sub DrawElement(ByVal elementGeom As Geometry.Element)
»  Dim geomObject As Autodesk.Revit.Geometry.GeometryObject
»  For Each geomObject In elementGeom.Objects
»    If (TypeOf geomObject Is Autodesk.Revit.Geometry.Curve) Then
»      DrawCurve(geomObject)
»    ElseIf (TypeOf geomObject Is Autodesk.Revit.Geometry.Instance) Then
»      DrawInstance(geomObject)
»    ElseIf (TypeOf geomObject Is Autodesk.Revit.Geometry.Mesh) Then
»      DrawMesh(geomObject)
»    ElseIf (TypeOf geomObject Is Autodesk.Revit.Geometry.Solid) Then
»      DrawSolid(geomObject)
»    End If
»  Next
»End Sub
»
»Private Sub DrawCurve(ByVal geomCurve As Geometry.Curve)
»  DrawPoints(geomCurve.Tessellate)
»End Sub
ジオメトリーとグループ