»Private mOptions As Autodesk.Revit.Geometry.Options
»mOptions = app.Create.NewGeometryOptions
»mOptions.DetailLevel =
Geometry.Options.DetailLevels.Fine
»
»For Each elem In selSet
»
Dim geom As
Autodesk.Revit.Geometry.Element = elem.Geometry(mOptions)
» DrawElement(geom)
»Next
»
»If selSet.Size
> 0 Then
» mViewer.ShowModal()
»End If
§
§要素ジオメトリーの詳細レベルを指定
§簡略 / 標準 / 詳細
§あとはジオメトリーの表示を行うのみ