Solidedge二次开发 部件与部件装配

songshunguang

各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，
例如我写了一段程序
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")
3 l# n7 N9 U. D/ \File=App.Path+"\1.asm"
8 A9 G; z$ g9 j$ KSet objPart=objDoc.Occurrences.AddByFilename(file)
- Z$ v1 J7 O9 z# r: s, q* c! r) Sset objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)
2 z' s# }4 M/ S( tSet objRef=objDoc.CreateReference(objPart,objFace)
- Q% U6 s2 C7 y; v3 e但是运行的时候objRef的结果为Nothing这是怎么回事呢