TitleBlock
Hi Scarta,
You can use the shared paramter name to get the parameter , then read the parameter value.
Here is the code snippet to show how to read the shared parameter value from the title block.
<TransactionAttribute(Autodesk.Revit.Attributes.TransactionMode.Manual)> _
Public Class RevitCommand2
Implements IExternalCommand
Public Function Execute(commandData As ExternalCommandData, ByRef messages As String, elements As ElementSet) As Result
Dim app As UIApplication = commandData.Application
Dim doc As Document = app.ActiveUIDocument.Document
Dim sel As Selection = app.ActiveUIDocument.Selection
Dim ref1 As Reference = sel.PickObject(ObjectType.Element, "Please pick title block")
Dim tb As FamilyInstance = TryCast(doc.GetElement(ref1), FamilyInstance)
'''title block is a FamilyInstance
If tb Is Nothing Then
Return Result.Failed
End If
'If the target shared parameter is from the family symbol/ family type.
Dim param2 As Parameter = tb.get_Parameter("SharedParameterName")
'If the target shared parameter is from the family instance.
'Parameter param = tb.get_Parameter("SharedParameterName"); //directly use the shared parameter name
'show the fire rating in task dialog
TaskDialog.Show("target shared parameter value", param2.AsString())
Return Result.Succeeded
End Function
End Class
Joe Ye
Contractor
Developer Technical Services
Autodesk Developer Network
Accepted solution
Sorry, I used the code converter to convert the C# to VB.net. The code was not converted completely correct.
Here is the one should work.
<TransactionAttribute(Autodesk.Revit.Attributes.TransactionMode.Manual)> _
Public Class RevitCommand2
Implements IExternalCommand
Public Function Execute(commandData As ExternalCommandData, ByRef messages As String, elements As ElementSet) As Result
Dim app As UIApplication = commandData.Application
Dim doc As Document = app.ActiveUIDocument.Document
Dim sel As Selection = app.ActiveUIDocument.Selection
Dim ref1 As Reference = sel.PickObject(ObjectType.Element, "Please pick title block")
Dim tb As FamilyInstance = TryCast(doc.GetElement(ref1), FamilyInstance)
'''title block is a FamilyInstance
If tb Is Nothing Then
Return Result.Failed
End If
'If the target shared parameter is from the family symbol/ family type.
Dim param2 As Parameter = tb.Parameter("SharedParameterName")
'If the target shared parameter is from the family instance.
'Parameter param = tb.Parameter("SharedParameterName"); //directly use the shared parameter name
'show the fire rating in task dialog
TaskDialog.Show("target shared parameter value", param2.AsString())
Return Result.Succeeded
End Function
End Class
Joe Ye
Contractor
Developer Technical Services
Autodesk Developer Network
Hi Scarta,
Please remove the get_ from below line.
'Parameter param = tb.get_Parameter("SharedParameterName"); //directly use the
VB.NET doesn't need the get_ for when calling the class get properties.
Regards,
Joe Ye
Contractor
Developer Technical Services
Autodesk Developer Network
Accepted solution