»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