'' 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