namespace FSharpDemo

open System.Diagnostics

open Autodesk.Revit.Attributes

open Autodesk.Revit.DB

open Autodesk.Revit.UI.Selection

open JetBrains.Annotations

open Nice3point.Revit.Toolkit.External

type FaceVisualization() =

inherit ExternalCommand()

override this.Execute() =

try

let faceRef = this.Application.ActiveUIDocument.Selection.PickObject(ObjectType.Face, "Select Face")

let face = this.Application.ActiveUIDocument.Document.GetElement(faceRef).GetGeometryObjectFromReference(faceRef) :?> Face

Trace.Write(face)

with

| ex -> Trace.TraceError($"Error in FaceVisualization: {ex.Message}")

type FacesVisualization() =

inherit ExternalCommand()

override this.Execute() =

try

let faceRefs = this.Application.ActiveUIDocument.Selection.PickObjects(ObjectType.Face, "Select Faces")

let faces =

[ for faceRef in faceRefs do

match this.Application.ActiveUIDocument.Document.GetElement(faceRef).GetGeometryObjectFromReference(faceRef) with

| :? Face as face -> yield face

| _ -> Trace.TraceWarning($"Face not found for reference: {faceRef}") ]

Trace.Write(faces)

with

| ex -> Trace.TraceError($"Error in FacesVisualization: {ex.Message}")