<VB.NET>
''
e.g., an element we are given is a wall.
Dim aWall As Wall = elem
''
find a wall family type with the given name.
Dim newWallType As Element = ElementFiltering.FindFamilyType( m_rvtDoc, _
GetType(WallType), “標準壁", "外壁-レンガ")
''
assign a new family type.
aWall.WallType = newWallType
</VB.NET>
<VB.NET>
''
e.g., an element we are given is a door.
Dim aDoor As FamilyInstance = elem
''
find a door family type with the given name.
Dim newDoorType As Element = ElementFiltering.FindFamilyType( _
GetType(FamilySymbol), "片開", "w700h2000", _
BuiltInCategory.OST_Doors)
''
assign a new family type.
aDoor.Symbol = newDoorType
</VB.NET>