»' Now loop the selection set and check for standard
»' Family Instances of "Windows" category
»For Each elem In doc.Selection.Elements
» If TypeOf elem Is FamilyInstance Then
» Dim inst As
FamilyInstance = elem
» Dim catInst As Category = Nothing
» Try ' just in case
» catInst = inst.Category
» Catch
» End
Try
» If (Not catInst Is Nothing) AndAlso catInst.Equals(catWindows) Then
» sMsg = "Selected Window Id=" & elem.Id.Value.ToString
& vbCrLf
» Dim fs1 As FamilySymbol
= inst.Symbol
» sMsg += "
FamilySymbol = " & fs1.Name & ";
Id=" _
» & fs1.Id.Value.ToString
& vbCrLf
» Dim f1 As Family =
fs1.Family
» sMsg += "
Family = " & f1.Name & ";
Id=" & f1.Id.Value.ToString
» End If
» End
If
» ' Report each Window data
» MsgBox(sMsg)
»Next