© 2010 Autodesk
Introduction to Revit 2011 API
§Examples:
Command Data
Access to the Revit Object Model
''  access to the version of Revit and the title of the document currently in use
Dim versionName As String = _
    commandData.Application.Application.VersionName
Dim documentTitle As String = _
    commandData.Application.ActiveUIDocument.Document.Title
''  print out wall types available in the current rvt project
Dim wallTypes As WallTypeSet = _
            commandData.Application.ActiveUIDocument.Document.WallTypes
Dim s As String = ""
    For Each wType As WallType In wallTypes
        s = s + wType.Name + vbCr
    Next