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

nanyuchun

程序如下：（是装配体空白文档中添加零件的）
Dim swApp As Object
  o* g* g; C! ?. P* Z- ^Sub main()

+ G3 G$ {: m2 X/ gDim Part As Object
Dim SelMgr As Object
9 ?) u1 n4 ^* `) l& F& D3 {' ~" yDim Boolstatus As Boolean

Dim Model As Object
+ e1 P' g! X7 p7 eDim longstatus As Long, longwarnings As Long
Dim Feature As Object

Set swApp = CreateObject("SldWorks.Application")


2 B' c- A! P5 T6 ^5 D% X4 {! {
Set Part = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)

2 b1 z& r  o+ D9 A: D, t1 h, C'Set Part = swApp.NewAssembly
- O* h. y; O' ~! X( r  aSet Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager

; s) }: h: J) C3 k; y6 l' FSet Model = swApp.OpenDoc6("E:\毕业设计\新生成零件\连杆.SLDPRT", 1, 0, "", longstatus, longwarnings)
Set Model = swApp.ActiveDoc
Set SelMgr = Model.SelectionManager

Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0
; o9 D1 e2 V  @. {7 K
Part.ClearSelection2 True
  m& S0 O0 z- C, T1 j  K0 j* QPart.ShowNamedView2 "*等轴测", 7
End Sub
, Z' v. L* g- v运行到这句（Part.AddComponent "E:\毕业设计\新生成零件\连杆.SLDPRT", 0, 0, 0就报错，但零件已加载进去了，错误内容为：对象不支持该属性或方法。这是为什么呢，该怎么改，谢谢！

swabc

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

Sub main()
  C* \$ g0 n  _. d  f
0 v1 i9 v5 z9 U! t+ u; p    Dim swApp            As SldWorks.SldWorks
    Dim swAssy           As SldWorks.AssemblyDoc
    Dim swPart           As SldWorks.PartDoc
    Dim longstatus       As Long
% l& Y: ^1 P0 r7 g9 d$ u* t& M    Dim longwarnings     As Long
+ f6 f8 W( q( M* G    Dim sPartFileName    As String
    Dim Boolstatus       As Boolean
2 v, k( h$ t4 l8 }+ ^   
    Set swApp = Application.SldWorks
    Set swAssy = swApp.ActiveDoc
  e4 J9 @( L+ p. Y   
( O$ d  d. P8 q9 [; k) h    If (swAssy.GetType <> swDocASSEMBLY) Then Exit Sub    '当前文档若不是装配体则退出
3 b1 o( O. V* b   
    sPartFileName = "E:\毕业设计\新生成零件\连杆.SLDPRT"
   
5 b0 L. I2 N% n0 |7 h2 B7 f    swApp.DocumentVisible False, swDocPART
5 b( c" G, g/ }: P" M6 X' `0 i    Set swPart = swApp.OpenDoc6(sPartFileName, swDocPART, 0, "", longstatus, longwarnings)
   
7 p! }" g, J* B, Q0 P    If swPart Is Nothing Then swApp.DocumentVisible True, swDocPART: Exit Sub
# K, D0 `8 n7 t, ]1 l     
7 y6 z* W6 S! b/ Q* N& ?    Boolstatus = swAssy.AddComponent(sPartFileName, 0, 0, 0)
   
    If (Boolstatus = False) Then swApp.DocumentVisible True, swDocPART: Exit Sub    '若零件插入失败则退出
   
1 `2 P' f0 u1 f4 m# a    swAssy.ShowNamedView2 "*等轴测", 7
    swAssy.FeatureManager.UpdateFeatureTree  '更新特征树
   
    swApp.CloseDoc sPartFileName
1 E* W$ x( f/ l& E    swApp.DocumentVisible True, swDocPART

* C' |1 B8 o  [% CEnd Sub
8 }; s2 V8 r% m4 a8 n6 X
[ 本帖最后由 swabc 于 2009-5-26 17:24 编辑 ]

swabc

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