Public Sub Get_Families_Pathname(commandData As ExternalCommandData)
Dim uiDoc As UIDocument = commandData.Application.ActiveUIDocument
Dim Doc As Document = uiDoc.Document
Dim collector As FilteredElementCollector = New FilteredElementCollector(Doc).OfClass(GetType(Family))
For Each fam As Family In collector
Try
' Получаем документ семейства
Dim familyDoc As Document = Doc.EditFamily(fam)
If familyDoc IsNot Nothing AndAlso familyDoc.IsFamilyDocument = True Then
MsgBox(familyDoc.Title.ToString & ";" & familyDoc.PathName.ToString)
End If
Catch ex As Exception
End Try
Next
End Sub