PPT_LOGO_4b
Revit Programming Introduction <#>
Copyright © 2009 Autodesk Inc.
ファミリーとシンボルを取得
»' 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
ファミリーとタイプ
lab3-3-2
ここでは選択した要素がFamilyInstanceであれば、FamilySymbolを取得しシンボル名やファミリー名等を表示しています。