|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，
( p. a7 X% ?( G" J例如我写了一段程序2 n7 Y& H' |3 H- ^1 z& t
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")( \" E& R7 y4 X
File=App.Path+"\1.asm"1 w* \' S! }6 `, l4 h
Set objPart=objDoc.Occurrences.AddByFilename(file)+ D* D, g$ K% |4 L X9 F
set objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)
5 y C% C+ @, H1 PSet objRef=objDoc.CreateReference(objPart,objFace)
% v: o( g) w, _: }; e! P3 Q但是运行的时候objRef的结果为Nothing这是怎么回事呢 |
|
发表于 2010-10-16 09:37:36