Спасибо.
Так и сделал-в списке ищу нужный тип.
If family IsNot Nothing Then
Dim elementSet As ISet(Of ElementId) = family.GetFamilySymbolIds()
For Each symbId In elementSet ' As ElementId
Dim cursymb As FamilySymbol = doc.GetElement(symbId)
If cursymb.Name = "L35" Then
uidoc.PromptForFamilyInstancePlacement(cursymb)
isload = True
Exit For
End If
Next
Я вставляю семейство через указание пользователем на экране.
Кстати (прошу прощения, это уже другая тема) у меня после вставки ревит продолжает дальше просить следующие точки вставки.
Приходится два раза жать Esc.
Как бы осуществить одноразовую вставку?