求装配体中插入新零件的api函数

asd3149

求助各位老师，自上而下建立装配体的时候新建零件的api函数是什么呀，找了很久没找到，录制的宏也没有记录。不是插入零件，是建立新零件。先谢谢各位大神啦。

lhl2008

1. This example shows how to:
   
2. 
   
3. create an assembly document.
   
4. insert a new part as a virtual component in the assembly document.
   2 [! Z7 l5 P/ Q) ^( i, {
5. insert a new instance of the virtual component in the assembly document.
   
6. '-----------------------------------------------------
   1 m4 u+ d' a$ |9 D
7. ' Preconditions: None
   
8. '
   
9. ' Postconditions:
   . ^7 m/ F0 g( T$ x* h, n; d
10. ' 1. An assembly document is created.
    
11. ' 2. A virtual component is inserted in the assembly document.
    $ H% l* @9 Z9 z% K" v. I& i
12. ' 3. A new instance of the virtual component is inserted
    ; q1 X# q! w" {) z
13. '    in the assembly document.
    
14. ' 4. Examine the FeatureManager design tree to
    * x& O; M2 A1 R+ s0 u5 _1 _
15. '    verify steps 2 and 3.
    
16. ' 5. Close the assembly document without saving the modified
    
17. '    documents.
    : g3 R8 K9 @) c5 H' A
18. '-----------------------------------------------------
    / z- ~7 B! K3 E; {( p
19. Option Explicit
    
20. 
    9 j' N, h2 n  L0 r4 }
21. Sub main()
    
22.     Dim swApp As SldWorks.SldWorks
    
23.     Set swApp = Application.SldWorks
    # `/ V/ y3 _: p6 z) ^. b
24.    
    : i6 ?$ R& r( T6 a0 F3 K
25.     Dim asmTemplate As String
    
26.     asmTemplate = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swDefaultTemplateAssembly)
    
27.    
    ; q& g# M+ P6 p" R1 g9 N7 P
28.     Dim swModel As SldWorks.ModelDoc2
    
29.     Set swModel = swApp.NewDocument(asmTemplate, 0, 0, 0)
    + f+ j1 v& C; m. v, x1 O- L
30.    
    
31.     Dim swSelMgr As SldWorks.SelectionMgr
    + A; ~7 l& ^% c
32.     Set swSelMgr = swModel.SelectionManager
    . G( b# P4 O6 A6 Y; y% x# N
33.    
    , T% o; \' s+ M5 q: [
34.     If swModel.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0) = False Then
    
35.         Debug.Print "Failed to select Front plane; check feature name."
    
36.         Exit Sub
    
37.     End If
    + R7 L3 i+ M; S
38.    
    / c, K5 ?, C8 Q: y1 `5 x
39.     Dim swPlaneFeature As SldWorks.Feature
    
40.     Set swPlaneFeature = swSelMgr.GetSelectedObject6(1, -1)
    7 a& O* I2 H4 `1 |8 i
41.     Dim swPlane As SldWorks.refPlane
    ! b2 d) h! l' k- Q3 `
42.     Set swPlane = swPlaneFeature.GetSpecificFeature2
    
43.    
    2 Y# ^1 |. U/ N1 S: ]
44.     Dim swAssem As SldWorks.AssemblyDoc
    , A+ o! K* D" k# N3 o$ }
45.     Set swAssem = swModel
    , W- \) [& c# V* t; f
46.    
    & P1 R' y- t% ?' F( A
47.     Dim lResult As Long
    7 X' Z; j8 C( D
48.     Dim swVirtComp As SldWorks.Component2
    + _* c0 |" a7 l& Z& u; k2 H
49.     lResult = swAssem.InsertNewVirtualPart(swPlane, swVirtComp)
    : n5 m7 H4 M/ H4 A
50.    
    
51.     If lResult = swInsertNewPartError_NoError Then
    
52.         Dim swSecondComp As SldWorks.Component2
    
53.         Set swSecondComp = swAssem.AddComponent5(swVirtComp.GetPathName, swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0.1, 0, 0)
    
54.     End If
    # H. ^5 M/ K0 V' w" W, a4 G
55.    
    
56. End Sub
    

复制代码

- i& R: N2 w# Q( O' W
5 B  P7 z( f% k9 j& d$ ~( P2 ]

asd3149

lhl2008 发表于 2018-10-31 21:26

7 U- F/ g" ?: @" b1 ^3 S; c谢谢老师的回复，那对新零件的重命名应该用哪个函数呀？

lhl2008

1. This example shows how to rename a component and update its references.
   5 \2 o2 ~& ]7 V
2. 
   ) v" N# F/ c8 L- t3 _
3. '----------------------------------------------------------------------
   - z# w8 i, b' H: x" @+ B# F
4. ' Preconditions:
   
5. ' 1. Copy and paste Main into your project.
   ) [! L4 h# C1 I9 d
6. ' 2. Insert a class module and copy and paste Class1 into that module.
   % R( A# n& r1 U" Z1 M+ {$ Y9 k* ?
7. ' 3. Copy public_documents\samples\tutorial\EDraw\claw to c:\test\claw.
   
8. ' 4. Open c:\test\claw\claw-mechanism.sldasm and save the file as
   : S- m) U: ?3 _3 Z; D+ j# z
9. '    claw-mechanism-copy.sldasm.
   
10. ' 5. Close claw-mechanism-copy.sldasm and reopen claw-mechanism.sldasm.
    4 c) a6 o4 y; \
11. ' 6. Open the Immediate window.
    
12. '
    
13. ' Postconditions:
      O& h/ w6 q( u# w' u
14. ' 1. Renames the center component to centerXXX.
    
15. ' 2. Fires the RenameItemNotify event.
    
16. ' 3. Saves the assembly.
    
17. ' 4. Fires the RenamedDocumentNotify event.
    ) Z( a$ r9 x4 s4 e% |# {) d
18. ' 5. Updates references.
    
19. ' 6. Examine the FeatureManager design tree and Immediate window.
    
20. ' 7. Close claw-mechanism.sldasm and open
    
21. '    c:\test\claw\claw-mechanism-copy.sldasm to verify that the
    
22. '    center component was renamed to centerXXX.
    
23. '---------------------------------------------------------------------
    
24. 'Main
    
25. Option Explicit
    
26. Dim swApp As SldWorks.SldWorks
    3 P) V( i6 l. m3 \+ Z! u/ q: a" w
27. Dim swModel As SldWorks.ModelDoc2
    
28. Dim swModelDocExt As SldWorks.ModelDocExtension
    1 e/ g: u& ^0 R. G$ Q
29. Dim swAssy As SldWorks.AssemblyDoc
    6 V+ W8 h  y+ @) R/ ~
30. Dim swAssyEvents As Class1
    7 g- f/ `- d' R# ~
31. Dim errors As Long
    % k( E% G6 C6 k( s( E
32. Dim warnings As Long
    8 B& J( q8 ~5 y) ^- U0 o
33. Dim status As Boolean
    $ f1 N2 f' {3 o+ P. c; ?/ j4 K
34. Sub main()
    
35.     Set swApp = Application.SldWorks
    
36.     Set swAssy = swApp.ActiveDoc        
    : h- f- T! M+ c8 _9 Z, `
37.     'Set up event
    
38.     Set swAssyEvents = New Class1
    
39.     Set swAssyEvents.swAssy = swApp.ActiveDoc   
    . P' b: w! K/ g( R  d. K
40.     Set swModel = swAssy
    + u8 F5 T0 j* _5 W& c( o' u5 f* O
41.     Set swModelDocExt = swModel.Extension
    
42.     status = swModelDocExt.SelectByID2("center-1@claw-mechanism", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
    1 I" f7 r. Q  m6 l. r/ J" Q
43.     errors = swModelDocExt.RenameDocument("centerXXX")
    2 e  M  w0 Y: Y6 F0 H8 R
44.     swModelDocExt.Rebuild swRebuildOptions_e.swRebuildAll
    , v. r' y; M6 d2 P$ L) v
45.     status = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent + swSaveAsOptions_e.swSaveAsOptions_SaveReferenced, errors, warnings)
    - k5 V$ t/ U0 h/ {! `: ^0 y
46. End Sub
    
47. 
    
48. 'Class1
      p/ u4 L( V8 K# h/ f+ `; P% r9 |8 g
49. Option Explicit
    
50. 
    ( ~. D/ x  r9 x$ {9 i: Z
51. Public WithEvents swAssy As SldWorks.AssemblyDoc
    * n0 W3 M9 G0 c& j3 ^' C! J
52. 
    6 D* X5 U9 U# ^8 n$ T8 S2 f6 K
53. 
    $ h' z& `6 E  I, u7 ~& _3 T4 d
54. 'Fire notification when item is renamed
    ( X  \+ G. I* j; [
55. Public Function swAssy_RenameItemNotify(ByVal entType As Long, ByVal oldName As String, ByVal newName As String) As Long
    ( T, v- {% z3 ^2 w$ S
56.         Debug.Print "RenameItemNotify fired"
    ' _  H3 x" J) T, a* t9 z
57. End Function
    
58. 
    
59. 
    4 u) U+ X( W8 @/ o2 d
60. 'Fire notification for Rename Documents dialog
    
61. Public Function swAssy_RenamedDocumentNotify(ByRef swObj As Object) As Long
    4 a. }, w8 L4 C1 E& P4 Z% H% O
62.         Dim swRenamedDocumentReferences As SldWorks.RenamedDocumentReferences
    # V3 i2 c, a1 q9 d) s
63.         Dim searchPaths As Variant
    
64.         Dim pathNames As Variant
    1 [+ s' ^  d4 b
65.         Dim i As Long
    2 |  b4 j0 O. `
66.         Dim nbr As Long
    
67. 
    % d0 ~" G# Q# U; h" ~4 B) Y; O) F$ V) J
68.         Set swRenamedDocumentReferences = swObj
    
69. 
    - w$ p! D: d. G
70.         swRenamedDocumentReferences.UpdateWhereUsedReferences = True
    
71.         swRenamedDocumentReferences.IncludeFileLocations = True
    6 b+ D  M, Y! o' D0 L# Q' k0 J+ l
72. 
    
73.         searchPaths = swRenamedDocumentReferences.GetSearchPath
    ; o! j0 j! k* o! F8 h- [: W& d
74.         nbr = UBound(searchPaths)
    
75.         Debug.Print "Search paths:"
    
76.         For i = 0 To nbr
    2 R: e+ A5 I5 _. t# l' K. i# ?
77.         Debug.Print (" " & searchPaths(i))
    
78.         Next i
    3 M, {, c: j( P  |7 S2 v% h
79. 
    
80.         swRenamedDocumentReferences.Search
    
81. 
    2 P3 E  N' T' x+ ]- S
82.         pathNames = swRenamedDocumentReferences.ReferencesArray
    . D% l  q4 w# `/ n2 `
83.         nbr = UBound(pathNames)
    ) V9 s5 N0 b) S
84.         Debug.Print "References:"
    
85.         For i = 0 To nbr
    
86.         Debug.Print (" " & pathNames(i))
    
87.         Next i
    
88. 
    
89.         swRenamedDocumentReferences.CompletionAction = swRenamedDocumentFinalAction_e.swRenamedDocumentFinalAction_Ok
    " {3 c( g) C, z3 F6 l6 _
90. 
    
91.         Debug.Print "RenamedDocumentNotify fired"
    
92. 
    
93. End Function
    

复制代码

( L5 M) |3 D8 {5 ~; A8 w5 W* a
& X1 X! k2 }5 g# u0 h