Public Class Command
' All Autodesk Revit external commands must support this interface
Implements Autodesk.Revit.UI.IExternalCommand
Public Function Execute(ByVal commandData As Autodesk.Revit.UI.ExternalCommandData,
ByRef message As String, ByVal elements As Autodesk.Revit.DB.ElementSet) _
As Autodesk.Revit.UI.Result Implements Autodesk.Revit.UI.IExternalCommand.Execute
' NOTES: Anything can be done in this method, such as create a message box,
' a task dialog or fetch some information from revit and so on.
' We mainly use the task dialog for example.
' Get the application and document from external command data.
Dim app As Autodesk.Revit.ApplicationServices.Application = commandData.Application.Application
Dim doc As Document = commandData.Application.ActiveUIDocument.Document
Dim uiDoc As UIDocument = commandData.Application.ActiveUIDocument
Dim unitNames As IList(Of String) = New List(Of String)()
unitNames.Add("Feet")
unitNames.Add("Inches")
Dim multipliers As IList(Of Double) = New List(Of Double)()
multipliers.Add(1)
multipliers.Add(12)
Dim resultSchema As New AnalysisResultSchema("Schema Name", "Description")
Dim sfm = SpatialFieldManager.CreateSpatialFieldManager(doc.ActiveView, 1)
resultSchema.SetUnits(unitNames, multipliers)
Dim ss As String = doc.ActiveView.AnalysisDisplayStyleId.ToString
Dim resultSchema_ewf As New AnalysisResultSchema("ef", "wefefger")
sfm.RegisterResult(resultSchema)
MsgBox(ss)
Return Result.Succeeded