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

nanyuchun

程序如下：（是装配体空白文档中添加零件的）
Dim swApp As Object
2 g) D2 ]3 {  {4 v7 d+ \Sub main()
9 w& A  j0 [. z5 s9 V3 |; @9 P
5 ^& F+ E' Y: }. K+ a) @Dim Part As Object
Dim SelMgr As Object
/ |* |& w$ w3 x; C( rDim Boolstatus As Boolean

Dim Model As Object
) y- E+ m" V5 h% A8 u) KDim longstatus As Long, longwarnings As Long
2 e+ x3 |( U: ^, PDim Feature As Object

Set swApp = CreateObject("SldWorks.Application")



. [0 e- @# K/ Q7 H  }Set Part = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
: x0 t& }* b0 _6 m3 N* c% }+ n0 x0 W
'Set Part = swApp.NewAssembly
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
7 j, N, Q/ s# C* C  i7 X% o$ C
1 G* n/ _$ @1 L% d2 L8 R- B0 QSet Model = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Model = swApp.ActiveDoc
4 o! Y* z, d1 N8 V: Z6 xSet SelMgr = Model.SelectionManager

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
8 y$ ]; `5 Q: B0 B
Part.ClearSelection2 True
1 O3 H+ o/ u  }' G4 jPart.ShowNamedView2 "*等轴测", 7
End Sub
运行到这句（Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
8 C* ~8 [  ?5 [0 o9 K# O这里的“Part”应该是个装配体，你把 'Set Part = swApp.NewAssembly给注销了，所以Part 是个零件图，当然没法插入零件了，我给改了改，仅供参考：

Sub main()

3 M4 o# H0 J1 I+ I6 N    Dim swApp            As SldWorks.SldWorks
# l/ \# U1 Q7 V( C: M4 N7 g. j2 r    Dim swAssy           As SldWorks.AssemblyDoc
  W" {1 N2 l! E$ ?6 j1 r    Dim swPart           As SldWorks.PartDoc
    Dim longstatus       As Long
    Dim longwarnings     As Long
    Dim sPartFileName    As String
    Dim Boolstatus       As Boolean
8 n- {. H/ ]6 a1 _   
    Set swApp = Application.SldWorks
    Set swAssy = swApp.ActiveDoc
& c! G3 {3 K8 ?# A5 K/ i+ H8 v   
  i3 i# o1 _) _" Y    If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub    '当前文档若不是装配体则退出
2 n; Y/ N5 K0 }9 Q4 z6 F: C' P3 C. l   
4 D- B; _; L9 J6 J7 m    sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"
. l  }& ^! Y) O. I) ]   
    swApp.DocumentVisible False, swDocPART
7 w3 N) c8 p0 {/ z8 C    Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)
   
    If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub
     
    Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)
8 Y% ^, q8 p( M9 T3 @   
; b4 B1 g+ _+ d    If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub    '若零件插入失败则退出
  _0 t% f. p6 O" r% U( D& E   
* O- t4 \8 q8 \3 G. q    swAssy.ShowNamedView2 "*等轴测", 7
    swAssy.FeatureManager.UpdateFeatureTree  '更新特征树
, k. q! l0 d# v8 ~5 A: l   
    swApp.CloseDoc sPartFileName
. y. C6 _* A0 R    swApp.DocumentVisible True, swDocPART
0 Z' S; D+ n  i6 k% T: }8 O
End Sub

* r. u; C. y* J  s6 b% s[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc

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