I'm trying to display a new family on a sheet. It doesn't display. How do I do that? This is my sample code:
Public Function Execute(ByVal commandData As Autodesk.Revit.UI.ExternalCommandData, ByRef message As String, ByVal elements As Autodesk.Revit.DB.ElementSet) As Autodesk.Revit.UI.Result Implements Autodesk.Revit.UI.IExternalCommand
.Execute
Dim fileName As String ="C:\Users\cpo\my documents\titleblock.rfa"
TaskDialog.Show("Title", fileName.ToString)
m_rvtUIApp = commandData.Application
TaskDialog.Show(m_rvtUIApp.ToString, "")
m_rvtUIDoc = m_rvtUIApp.ActiveUIDocument
TaskDialog.Show(m_rvtUIDoc.ToString, "")
m_rvtApp = m_rvtUIApp.Application
TaskDialog.Show(m_rvtApp.ToString, "")
m_rvtDoc = m_rvtUIDoc.Document
TaskDialog.Show(m_rvtDoc.ToString, "")
Dim family As Family = Nothing
If Not m_rvtDoc.LoadFamily(fileName, family) Then
Throw New Exception("Unable to load "+ fileName)
EndIf
TaskDialog.Show(family.ToString, "")
Dim symbolItor As FamilySymbolSetIterator = family.Symbols.ForwardIterator()
Dim x As Double = 0, y As Double= 0
While symbolItor.MoveNext()
Dim symbol As FamilySymbol = TryCast(symbolItor.Current, FamilySymbol)
Dim location As New Autodesk.Revit.DB.XYZ(x, y, 10)
Dim instance As Autodesk.Revit.DB.FamilyInstance = m_rvtDoc.Create.NewFamilyInstance(location, symbol, Autodesk.Revit.DB.Structure.StructuralType.NonStructural)
TaskDialog.Show(symbol.ToString, "")
x += 10
EndWhile
Return Result.Succeeded
End Function
