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

nanyuchun

程序如下：（是装配体空白文档中添加零件的）
% ~. m2 v0 g2 l; T4 MDim swApp As Object
$ m1 z! z* S0 ]Sub main()

Dim Part As Object
6 {8 v7 X3 d# f0 [" W! f  GDim SelMgr As Object
% g0 j5 y, t6 XDim Boolstatus As Boolean

% A& f* U$ v0 Z. y7 X& [% X7 XDim Model As Object
! Q3 L9 X7 T$ @3 WDim longstatus As Long, longwarnings As Long
Dim Feature As Object
5 H" @) s% J  |: o7 K9 C. l
- l$ N0 v. k* ?8 U; ^, `Set swApp = CreateObject("SldWorks.Application")

% k" F) j  N$ r+ z% c( D% k

Set Part = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
; W- c: O: z" {( A  }
'Set Part = swApp.NewAssembly
; Y/ u* x: V2 m( ASet Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
5 u, d9 _- {4 U8 o
Set Model = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Model = swApp.ActiveDoc
Set SelMgr = Model.SelectionManager
$ M& V- _2 p* t% P) H' H
0 k; {" t- p, Z2 E  y% |* B1 ~Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0

. X) U, k( L& k& n8 nPart.ClearSelection2 True
2 d+ r0 P; V8 w5 k* L1 C3 j; X' ZPart.ShowNamedView2 "*等轴测", 7
& M' w- C/ g, l' \3 o+ ~End Sub
运行到这句（Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
8 w' n! L7 p  t* N# W8 I7 K! M6 }1 ^6 W这里的“Part”应该是个装配体，你把 'Set Part = swApp.NewAssembly给注销了，所以Part 是个零件图，当然没法插入零件了，我给改了改，仅供参考：

Sub main()
4 [( W1 {- a3 ?* T$ [4 [8 ]7 I3 l
    Dim swApp            As SldWorks.SldWorks
7 m5 @7 y. O6 D( Y6 d    Dim swAssy           As SldWorks.AssemblyDoc
    Dim swPart           As SldWorks.PartDoc
    Dim longstatus       As Long
    Dim longwarnings     As Long
2 G) e7 B/ B% ~0 e5 w  o2 f* G$ R    Dim sPartFileName    As String
& F, P* `( W* N+ M- t# n! Z2 S+ i    Dim Boolstatus       As Boolean
   
( O0 a. d! t, T3 Y+ x. M. G    Set swApp = Application.SldWorks
5 h, _9 F2 x. `5 [& ]6 k    Set swAssy = swApp.ActiveDoc
   
    If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub    '当前文档若不是装配体则退出
4 C# v% M& r$ ^3 S; q2 s   
    sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"
6 v/ u$ d0 z, }1 m! s/ }  l' p# L   
    swApp.DocumentVisible False, swDocPART
- R% M  u# I4 _# z0 w    Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)
, _. I0 j; K  e" Y" q   
    If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub
9 @  O  A  }+ U3 y     
3 [1 f1 d3 H4 H6 O$ [( A    Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)
0 m. T  l/ A( p/ @4 Y1 J2 k# H   
1 t" ~0 H  ~8 ]" N6 T: w4 S    If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub    '若零件插入失败则退出
   
    swAssy.ShowNamedView2 "*等轴测", 7
    swAssy.FeatureManager.UpdateFeatureTree  '更新特征树
   
    swApp.CloseDoc sPartFileName
+ D' A+ _1 P" |2 g7 d" T# o6 U    swApp.DocumentVisible True, swDocPART

End Sub
. T$ ?- W1 k4 a9 y! o" e1 n  f. _1 i
[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc

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