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

nanyuchun

程序如下：（是装配体空白文档中添加零件的）
Dim swApp As Object
Sub main()
3 W" r* C3 z+ T! A0 _: t
: T! W- e2 r0 a0 _Dim Part As Object
Dim SelMgr As Object
) j  q" i5 x# t: ^Dim Boolstatus As Boolean
2 H- a& x1 {4 D
$ ~7 x6 ~1 J, aDim Model As Object
5 n& {9 l1 c8 h! [- |Dim longstatus As Long, longwarnings As Long
/ t# v5 W0 @7 p* s! t/ fDim Feature As Object

% N6 a- f4 ?( ~! lSet swApp = CreateObject("SldWorks.Application")

2 j3 J5 B/ ]( N# i
' I0 M7 o8 q8 U
. H2 g( [9 |& NSet Part = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
6 s$ S9 y4 v( m* w
'Set Part = swApp.NewAssembly
* y: u( T* h6 g0 ^Set Part = swApp.ActiveDoc
2 @5 g' x2 J5 d. ]8 r& G5 b& \Set SelMgr = Part.SelectionManager
+ i! X+ J% \0 h: j6 M
Set Model = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
( B) M! o9 b+ G/ e- dSet Model = swApp.ActiveDoc
) K  C/ k3 f; W3 F. ?( \8 S% v8 h% fSet SelMgr = Model.SelectionManager

) R( q( e& Y! l+ {$ kPart.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0

, l, B/ `9 F# U% h2 zPart.ClearSelection2 True
& R: ~+ T3 H$ ]( f3 e! }/ r" H2 JPart.ShowNamedView2 "*等轴测", 7
End Sub
$ N; ~0 }; Z" a; L7 m$ q1 D3 ~运行到这句（Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
& k1 j8 }0 r; J* r8 `这里的“Part”应该是个装配体，你把 'Set Part = swApp.NewAssembly给注销了，所以Part 是个零件图，当然没法插入零件了，我给改了改，仅供参考：
5 X1 s  b8 S& I: _: ]: ?! C5 o
Sub main()

1 y; o5 H* a- x" z/ J( S$ I    Dim swApp            As SldWorks.SldWorks
    Dim swAssy           As SldWorks.AssemblyDoc
& ^3 t( s' k1 m; [4 `; |4 @    Dim swPart           As SldWorks.PartDoc
1 y$ g: _* k1 o2 k/ Z' }    Dim longstatus       As Long
- e( m$ X3 D+ q" G    Dim longwarnings     As Long
2 A- w; }- c  D7 D& n! k% [0 x    Dim sPartFileName    As String
  y: B% v) D7 U0 W0 b$ I. `    Dim Boolstatus       As Boolean
   
. Z- k3 y; u. c% y, V. k, z) C6 n! C    Set swApp = Application.SldWorks
& v" G3 |8 Y9 B$ E4 M    Set swAssy = swApp.ActiveDoc
   
' [9 z) f' S+ @' q- Y# K    If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub    '当前文档若不是装配体则退出
   
7 ^; D1 \( E% |! M7 w    sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"
   
    swApp.DocumentVisible False, swDocPART
    Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)
4 H  G# d6 `! U( o* I% W( V. t   
    If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub
# f' o& G8 L. Y     
    Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)
+ R. k" |; ]) X7 `2 M   
    If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub    '若零件插入失败则退出
. l/ g/ F2 a% O' Y- K$ [" J9 W. e   
    swAssy.ShowNamedView2 "*等轴测", 7
    swAssy.FeatureManager.UpdateFeatureTree  '更新特征树
   
( d& c  ~& V5 F, w    swApp.CloseDoc sPartFileName
    swApp.DocumentVisible True, swDocPART
6 z  s6 }/ X: k7 h3 m& {5 C
  }8 N0 X1 e, z0 y1 nEnd Sub

[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc

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