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

songshunguang

各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，
例如我写了一段程序
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")
; y, c: K8 H" m4 z7 P4 eFile=App.Path+"\1.asm"
Set objPart=objDoc.Occurrences.AddByFilename(file)
3 \& Y# W8 l( G( [- F& _5 v& jset objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)
( D5 W& m& D4 s& l% L" \Set objRef=objDoc.CreateReference(objPart,objFace)
但是运行的时候objRef的结果为Nothing这是怎么回事呢