谁帮我看下，装配体空白文档中添加零件的问题

nanyuchun

程序如下：（是装配体空白文档中添加零件的）
% l' ~: t4 |/ `1 h" G1 e) h, L/ l1 m& XDim swApp As Object
Sub main()
- t: z4 C& u8 d7 J* S. T) R
$ X1 o+ }* C6 O$ k9 I! dDim Part As Object
Dim SelMgr As Object
8 \! r: x) W! n) Z0 A4 q  m) ^3 y  xDim Boolstatus As Boolean
6 W. a! B; B* c8 _& q
. \7 t$ r0 X5 j" oDim Model As Object
$ {0 J4 t# ?$ e* v* O9 Z3 rDim longstatus As Long, longwarnings As Long
- W: N! j  {7 s6 S1 F# qDim Feature As Object

# z2 o% @9 j6 V7 A8 l; ]8 j( b0 I: a; WSet swApp = CreateObject("SldWorks.Application")


# S7 o$ d( U2 D* I& q3 Q
Set Part = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
) }- Z6 m- [, F5 [; I& o: S0 X! o' W4 L2 W
'Set Part = swApp.NewAssembly
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager

Set Model = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Model = swApp.ActiveDoc
( V9 a. \3 Z) b4 YSet SelMgr = Model.SelectionManager
# D0 J- {2 s$ ]; @
Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0

/ Q! u! K. e+ |& ~! jPart.ClearSelection2 True
Part.ShowNamedView2 "*等轴测", 7
& Q9 {/ L+ K& ]$ M8 A' z* eEnd Sub
运行到这句（Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
; C! F! L" F9 J, I+ K7 W/ t这里的“Part”应该是个装配体，你把 'Set Part = swApp.NewAssembly给注销了，所以Part 是个零件图，当然没法插入零件了，我给改了改，仅供参考：
9 h6 a  e' ]* U$ B- _4 ]+ ^7 N
. L+ u2 K% j4 Z& e$ H6 y% H, SSub main()

    Dim swApp            As SldWorks.SldWorks
/ c. G; z# y5 ?+ P$ |8 _& ?3 w    Dim swAssy           As SldWorks.AssemblyDoc
' d2 Y7 a+ b4 x- G4 g9 ?, x    Dim swPart           As SldWorks.PartDoc
% b4 N4 N8 Q( t2 p* a6 b% i9 p    Dim longstatus       As Long
5 b- G& t6 x. j+ B& G  P' A    Dim longwarnings     As Long
. J8 |6 |" V3 z6 A( ]  @4 b    Dim sPartFileName    As String
3 [) Y$ C  D! D) A    Dim Boolstatus       As Boolean
   
, H" e$ z" R; G( Y    Set swApp = Application.SldWorks
' r" r" E1 {+ f( j& U    Set swAssy = swApp.ActiveDoc
( G! o3 q- v- O" e: L! x7 T   
* I9 S6 H8 o* Z# m    If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub    '当前文档若不是装配体则退出
8 }1 E& Y2 y8 Z* g9 J   
    sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"
   
7 n% f9 B2 k: D( ?    swApp.DocumentVisible False, swDocPART
6 s3 s1 \. ~0 W! v1 c2 f! C' z    Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)
% b: S2 q6 w7 A   
, ?2 D- \. p9 @' ~! M) g    If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub
     
    Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)
4 O" X! P. f1 q, }8 g3 p   
( R1 |* D. U  v0 y. J    If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub    '若零件插入失败则退出
/ |( S: P. c) C& z6 N, U   
' Y- S0 K) _/ t1 Q0 Y    swAssy.ShowNamedView2 "*等轴测", 7
    swAssy.FeatureManager.UpdateFeatureTree  '更新特征树
   
    swApp.CloseDoc sPartFileName
7 q& K6 X  @/ |& P8 s+ E1 z0 @    swApp.DocumentVisible True, swDocPART
7 C0 T" j" E, o/ M  g; s
End Sub

* c: m, {* i( b* E" a$ n[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc

发现一个问题，现在改过来了