Try this bit of code, I have this working with multi-solid parts in an assembly. Its searching for a named face called "Top" but you can see where you can change that. It isn't getting geometry intent but that's not too hard once you have the DrawingCurves. This is just to check that you CAN get the drawing curves of the named entities you want.
Sub Main
Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oView As DrawingView = oDoc.ActiveSheet.DrawingViews(1)
Dim oAsm As AssemblyDocument = oView.ReferencedDocumentDescriptor.ReferencedDocument
For Each oComp As ComponentOccurrence In oAsm.ComponentDefinition.Occurrences.AllLeafOccurrences
Dim oNamedEnts As NamedEntities = iLogicVb.Automation.GetNamedEntities(oComp.Definition.Document)
Try
Dim oFace As Face = oNamedEnts.FindEntity("Top")
oComp.CreateGeometryProxy(oFace, oFaceProxy)
Dim oCurves As DrawingCurvesEnumerator = oView.DrawingCurves(oFaceProxy)
MsgBox(oComp.Name & " Has " & oCurves.Count & " Visible Lines in This Drawing")
Catch
MsgBox(oComp.Name & " Has No Visible, Or Named Entities!")
End Try
Next
End Sub