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

asd3149

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

lhl2008

1. This example shows how to:
     K; d; |  O( j" s8 {
2. 
   
3. create an assembly document.
   ! x+ h! C( v& T$ B7 @
4. insert a new part as a virtual component in the assembly document.
   
5. insert a new instance of the virtual component in the assembly document.
   
6. '-----------------------------------------------------
   
7. ' Preconditions: None
   
8. '
   2 K9 q* u" z$ I. X  e/ ?. ?
9. ' Postconditions:
   
10. ' 1. An assembly document is created.
    
11. ' 2. A virtual component is inserted in the assembly document.
    
12. ' 3. A new instance of the virtual component is inserted
      z) ?' ?$ Q4 @9 m8 ~: D. R
13. '    in the assembly document.
    
14. ' 4. Examine the FeatureManager design tree to
    * D  a: @) i: {1 h0 E% Y, x8 Y" |
15. '    verify steps 2 and 3.
    - m; ?# `6 T" A" ~+ v4 T" b
16. ' 5. Close the assembly document without saving the modified
    # Y! z- B" T; z3 x
17. '    documents.
    1 k; G- Y- o2 t- Y' @) U
18. '-----------------------------------------------------
    
19. Option Explicit
    5 x" U7 m/ @! t+ {% a: U" h) u
20. 
    
21. Sub main()
    
22.     Dim swApp As SldWorks.SldWorks
    
23.     Set swApp = Application.SldWorks
    ' y, U9 Y8 _7 ^5 j
24.    
    
25.     Dim asmTemplate As String
    
26.     asmTemplate = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swDefaultTemplateAssembly)
    
27.    
    
28.     Dim swModel As SldWorks.ModelDoc2
    
29.     Set swModel = swApp.NewDocument(asmTemplate, 0, 0, 0)
    
30.    
    # O- ?, o; S  [4 T
31.     Dim swSelMgr As SldWorks.SelectionMgr
    8 D; z4 L! j8 a8 H+ j+ `7 _
32.     Set swSelMgr = swModel.SelectionManager
    ! i3 [" X4 \$ m7 ]4 c
33.    
    $ L" w# ~' C) L( H5 X% a7 {5 E
34.     If swModel.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0) = False Then
    * q  e7 a. w( u# D6 \( S
35.         Debug.Print "Failed to select Front plane; check feature name."
    
36.         Exit Sub
    
37.     End If
    , Y! j* w- f: J! g$ X& q
38.    
    0 s9 e$ k$ X7 t' O
39.     Dim swPlaneFeature As SldWorks.Feature
    ' j2 s8 w; X' R
40.     Set swPlaneFeature = swSelMgr.GetSelectedObject6(1, -1)
    
41.     Dim swPlane As SldWorks.refPlane
    + D% L% f6 k7 X8 K7 `; L: z
42.     Set swPlane = swPlaneFeature.GetSpecificFeature2
    
43.    
    
44.     Dim swAssem As SldWorks.AssemblyDoc
    
45.     Set swAssem = swModel
    2 c; N+ z. }0 G* P. }* L" [
46.    
    ) y' ?% G2 P: j8 i3 F6 P
47.     Dim lResult As Long
    . E  d; W) A, T; b0 H
48.     Dim swVirtComp As SldWorks.Component2
    
49.     lResult = swAssem.InsertNewVirtualPart(swPlane, swVirtComp)
    
50.    
    
51.     If lResult = swInsertNewPartError_NoError Then
    
52.         Dim swSecondComp As SldWorks.Component2
    $ q+ T) A' m1 d5 T$ `
53.         Set swSecondComp = swAssem.AddComponent5(swVirtComp.GetPathName, swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0.1, 0, 0)
    , }/ g* D$ w; b
54.     End If
    
55.    
    % E5 S; ^) O! i/ h
56. End Sub
    ' M4 S/ `/ Y9 _

复制代码

$ }- M" J4 [) ~, [4 Z" p# D( {+ ]

asd3149

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

: S5 _, K9 q5 e2 K* g% u谢谢老师的回复，那对新零件的重命名应该用哪个函数呀？

lhl2008

1. This example shows how to rename a component and update its references.
   
2. 
   
3. '----------------------------------------------------------------------
   
4. ' Preconditions:
   3 B) m( @1 W# h* ^: F7 o
5. ' 1. Copy and paste Main into your project.
   
6. ' 2. Insert a class module and copy and paste Class1 into that module.
   
7. ' 3. Copy public_documents\samples\tutorial\EDraw\claw to c:\test\claw.
   ; a9 q. L7 s1 `: O& P- a
8. ' 4. Open c:\test\claw\claw-mechanism.sldasm and save the file as
   : g3 `4 g7 `" i& C1 C6 V% _
9. '    claw-mechanism-copy.sldasm.
   
10. ' 5. Close claw-mechanism-copy.sldasm and reopen claw-mechanism.sldasm.
    1 f8 G; r- `) j) `
11. ' 6. Open the Immediate window.
    
12. '
    
13. ' Postconditions:
    / L" x, S+ x$ S& Y
14. ' 1. Renames the center component to centerXXX.
    
15. ' 2. Fires the RenameItemNotify event.
    
16. ' 3. Saves the assembly.
      m# v, v6 o* \$ |
17. ' 4. Fires the RenamedDocumentNotify event.
    
18. ' 5. Updates references.
    
19. ' 6. Examine the FeatureManager design tree and Immediate window.
    ) z8 k2 U9 t1 v" u( f* n8 U+ L7 v
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.
    ! f7 A, ?. R% r+ p7 R3 \
23. '---------------------------------------------------------------------
    . D+ w- [2 D8 A; x
24. 'Main
    % O, l* ]- m% g
25. Option Explicit
    , k- g3 b3 u$ n) o  K: U9 S
26. Dim swApp As SldWorks.SldWorks
    1 X  m# N% O/ ~) j
27. Dim swModel As SldWorks.ModelDoc2
    
28. Dim swModelDocExt As SldWorks.ModelDocExtension
    2 D5 K* ]6 ^4 ~# {$ C
29. Dim swAssy As SldWorks.AssemblyDoc
    
30. Dim swAssyEvents As Class1
    * J: E5 _7 ^0 K
31. Dim errors As Long
    , J4 i6 ?: m8 i: w3 I1 t
32. Dim warnings As Long
    
33. Dim status As Boolean
    
34. Sub main()
    
35.     Set swApp = Application.SldWorks
    7 Q& a; W$ `  O
36.     Set swAssy = swApp.ActiveDoc        
    * Q3 ]4 `, @# _
37.     'Set up event
      ~" I: w0 g2 @7 q0 n" L+ c. M
38.     Set swAssyEvents = New Class1
    0 x+ y6 ?6 ?4 n* v# n
39.     Set swAssyEvents.swAssy = swApp.ActiveDoc   
    # g7 ~* z# L1 @$ c7 G
40.     Set swModel = swAssy
    
41.     Set swModelDocExt = swModel.Extension
    ) O) N/ x: T3 K7 ]- m, m
42.     status = swModelDocExt.SelectByID2("center-1@claw-mechanism", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
    ( J* @" u. f' [; i$ t1 g5 o
43.     errors = swModelDocExt.RenameDocument("centerXXX")
    ) t: |8 V: l" {# Z2 Z5 i* V5 j
44.     swModelDocExt.Rebuild swRebuildOptions_e.swRebuildAll
    
45.     status = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent + swSaveAsOptions_e.swSaveAsOptions_SaveReferenced, errors, warnings)
    ! ~  v/ y% z4 ^' m& ^
46. End Sub
    
47. 
    4 h# X- z4 h( N7 ], f9 k& D
48. 'Class1
    4 L+ E4 h* i5 _$ a; V- O
49. Option Explicit
    % F' B2 Q" C, G
50. 
    
51. Public WithEvents swAssy As SldWorks.AssemblyDoc
    " B. ~7 w# ^7 q7 k# Q
52. 
    
53. 
    . F, r, G/ l4 l3 R
54. 'Fire notification when item is renamed
    
55. Public Function swAssy_RenameItemNotify(ByVal entType As Long, ByVal oldName As String, ByVal newName As String) As Long
    
56.         Debug.Print "RenameItemNotify fired"
    
57. End Function
    8 B8 n' R& q" W% {8 S
58. 
    3 r* d# I8 B* E6 o$ @. r; p
59. 
    
60. 'Fire notification for Rename Documents dialog
    % x( o7 o' k% ?' G- I* o! M5 U
61. Public Function swAssy_RenamedDocumentNotify(ByRef swObj As Object) As Long
    2 M" k) r; x5 [0 A$ \. V0 S' y# R
62.         Dim swRenamedDocumentReferences As SldWorks.RenamedDocumentReferences
    2 D9 Z) X+ h4 B  T1 M
63.         Dim searchPaths As Variant
    
64.         Dim pathNames As Variant
    
65.         Dim i As Long
    0 B: J# c5 y. g
66.         Dim nbr As Long
    4 B. X2 ?* {3 i% Q/ U; W, ^
67. 
    + P# Y) ?8 o1 V
68.         Set swRenamedDocumentReferences = swObj
    6 A( w# _% U0 _) O8 K
69. 
    1 _0 f9 \1 L4 _# s% v$ E
70.         swRenamedDocumentReferences.UpdateWhereUsedReferences = True
    
71.         swRenamedDocumentReferences.IncludeFileLocations = True
    
72. 
    ( k  X/ Q- b6 V# `6 |# n! T3 ^
73.         searchPaths = swRenamedDocumentReferences.GetSearchPath
    % b; S- L+ T7 a4 ?( m, \3 D
74.         nbr = UBound(searchPaths)
    
75.         Debug.Print "Search paths:"
    
76.         For i = 0 To nbr
    5 F. r; @! y  \+ ?8 c
77.         Debug.Print (" " & searchPaths(i))
    
78.         Next i
    $ c  m, b8 F6 z' D; S/ w
79. 
    ' t! v! W1 X9 L# Q6 D
80.         swRenamedDocumentReferences.Search
    
81. 
    + g7 h, X# O) ~; W; ]+ E2 [# r- u
82.         pathNames = swRenamedDocumentReferences.ReferencesArray
    . H2 X. g' f% H7 V/ R5 M  r8 U
83.         nbr = UBound(pathNames)
    * L* T$ M7 f$ K- W0 T$ {3 @! ]5 i
84.         Debug.Print "References:"
    - W* L7 w9 H0 a7 |
85.         For i = 0 To nbr
    
86.         Debug.Print (" " & pathNames(i))
    
87.         Next i
    
88. 
    
89.         swRenamedDocumentReferences.CompletionAction = swRenamedDocumentFinalAction_e.swRenamedDocumentFinalAction_Ok
    
90. 
    ( e# V, E6 y# q, U0 V6 W
91.         Debug.Print "RenamedDocumentNotify fired"
    + ?! c: q- v. j. u8 X
92. 
    
93. End Function
    

复制代码

* ?0 s) Z- b$ g+ f; p8 V
3 }$ N; Q0 S/ {8 O: g( t+ \