|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
各位大侠请问一下，用VB进行装配的二次开发，如果有部件该如何装配，
7 r, `) U( t6 t6 B. C例如我写了一段程序- E. c) \- f' ]+ R8 v1 R% x- p
set objDoc=objApp.Documents.Add("SolidEdge.AssemblyDocument")
3 y, P6 H# x/ V0 U* K1 \7 T% B) u) j) gFile=App.Path+"\1.asm"
4 R; O8 t5 ^4 @ {% gSet objPart=objDoc.Occurrences.AddByFilename(file)! a# D w8 u0 u3 F
set objFace=objPart.SubOccurrences(1).SubOccurrenceDocument.Models(1).ExtrudedCutouts(1).SideFaces(1)
2 a7 _# N8 B, c) ?) u0 |1 t3 A% oSet objRef=objDoc.CreateReference(objPart,objFace)
' f6 ]2 M4 \$ L% r' u2 j但是运行的时候objRef的结果为Nothing这是怎么回事呢 |
|
发表于 2010-10-16 09:37:36