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