|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，
' j$ @$ _, B" _" z% U例如我写了一段程序2 Q& J& K4 V# M9 C+ A% f$ q
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")
# y. {0 k$ H& Y- O0 r5 AFile=App.Path+"\1.asm"
. O& c# e4 E6 g9 f$ eSet objPart=objDoc.Occurrences.AddByFilename(file)5 h; t0 [4 C6 G, M! R" D" a: Y
set objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)3 x7 ^; a, j2 _# y8 Q
Set objRef=objDoc.CreateReference(objPart,objFace) u& g4 U3 l0 Z; e6 d) W
但是运行的时候objRef的结果为Nothing这是怎么回事呢 |
|
发表于 2010-10-16 09:37:36