Public Sub lookupelem()
Dim uidoc As UIDocument = ActiveUIDocument
Dim sl As Selection =uidoc.Selection
Dim collection As ElementSet =uidoc.Selection.Elements
If collection.size = 0 Then
TaskDialog.Show ("revit","未选择对象")
Else
For Each elem As Element In collection
elem.Parameter("实例编号-B").Set("123")