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

nanyuchun

程序如下：（是装配体空白文档中添加零件的）
4 }2 U) I; r/ j( j: y* r2 z! S0 u" lDim swApp As Object
5 g1 Y- H- b( X$ ]# y" J8 n( xSub main()

Dim Part As Object
Dim SelMgr As Object
Dim Boolstatus As Boolean

+ S  \; b2 g. B1 y: HDim Model As Object
  ~/ O1 I( \& e6 M- @. KDim longstatus As Long, longwarnings As Long
: o7 v( N5 q" A0 i. o+ [" JDim Feature As Object

Set swApp = CreateObject("SldWorks.Application")
- N# P/ l' U4 u+ w  j1 o8 W" j/ W8 @

3 Z6 x& k' I+ v' c4 }+ ]  c
Set Part = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
2 E+ y& ^  g7 H9 k
'Set Part = swApp.NewAssembly
3 H2 K  Z- `6 x/ C3 vSet Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager

& f5 I7 E/ `3 y1 C  H& X; cSet Model = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
) r  ]$ C# F' ASet Model = swApp.ActiveDoc
/ a" @* I+ c6 [2 I5 sSet SelMgr = Model.SelectionManager
. B$ v- |# M& F! s4 E+ u
8 }0 P& I* ]% S. z  X8 L+ kPart.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
' K# v( ?! R! T) C, X, T
Part.ClearSelection2 True
Part.ShowNamedView2 "*等轴测", 7
End Sub
- i% K: v- t+ C8 D8 [. B运行到这句（Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
% j! q$ d* X2 n- W, I这里的“Part”应该是个装配体，你把 'Set Part = swApp.NewAssembly给注销了，所以Part 是个零件图，当然没法插入零件了，我给改了改，仅供参考：
2 r# b: E) Y, [7 N- p6 N2 d
Sub main()

8 z4 P2 Q4 T/ E* c    Dim swApp            As SldWorks.SldWorks
; ]2 S1 a, T( B) ?# q, C    Dim swAssy           As SldWorks.AssemblyDoc
    Dim swPart           As SldWorks.PartDoc
    Dim longstatus       As Long
0 Z3 j9 x, Q6 K  o' b8 W    Dim longwarnings     As Long
    Dim sPartFileName    As String
    Dim Boolstatus       As Boolean
   
    Set swApp = Application.SldWorks
0 [5 O: @: i2 K    Set swAssy = swApp.ActiveDoc
   
9 B/ @* O& V" W3 p% }% [8 q    If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub    '当前文档若不是装配体则退出
. B) T- W+ \1 W8 a7 b5 p) U   
$ z7 m: c- W9 B    sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"
   
8 _1 m- R- ]  k, J8 `7 y7 s9 P  [    swApp.DocumentVisible False, swDocPART
    Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)
4 m: p) ^0 n3 G; A$ C  H6 g; I( ^   
    If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub
     
    Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)
* [+ Y2 t8 _) H$ B2 v   
    If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub    '若零件插入失败则退出
0 ?' a0 M2 j4 J   
! n( }( j1 `" Z8 j. x# _0 J" @2 S    swAssy.ShowNamedView2 "*等轴测", 7
    swAssy.FeatureManager.UpdateFeatureTree  '更新特征树
   
4 W" ~7 q. ^3 b2 u" k    swApp.CloseDoc sPartFileName
* e# {" ^% P. D6 f# _2 J( N4 ?5 |    swApp.DocumentVisible True, swDocPART

0 @3 K7 f+ C2 MEnd Sub
- R3 i; K' Z! c" l* n# h
[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc

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