Спасибо.
Так и сделал-в списке ищу нужный тип.
 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.
Как бы осуществить одноразовую вставку?