|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，8 S! q+ }6 {1 E- L
例如我写了一段程序1 i9 @6 h, ^% L5 r
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")
5 U ^" `- {' pFile=App.Path+"\1.asm"
3 J$ R3 o! J$ l' {0 {) FSet objPart=objDoc.Occurrences.AddByFilename(file)
" q" Y, M+ i9 r+ g* \( c) bset objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)# k' a# o# T X$ z9 T2 _, u
Set objRef=objDoc.CreateReference(objPart,objFace)
! \: U, ]7 ]' B但是运行的时候objRef的结果为Nothing这是怎么回事呢 |
|
发表于 2010-10-16 09:37:36