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

songshunguang

各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，
5 z+ E5 J  M1 P' q例如我写了一段程序
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")
  b8 [% d/ E1 ?7 f# P' ~  MFile=App.Path+"\1.asm"
0 X4 d& L, l  H4 VSet objPart=objDoc.Occurrences.AddByFilename(file)
set objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)
; \1 Z$ p2 f+ nSet objRef=objDoc.CreateReference(objPart,objFace)
但是运行的时候objRef的结果为Nothing这是怎么回事呢