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

asd3149 · 发表于 2018-10-31 19:57:34

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

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

本帖最后由 lhl2008 于 2018-10-31 21:31 编辑

This example shows how to:" i( F$ K7 i4 A) g) f3 ~& ~
! _- t$ x3 Z7 r* N0 K
create an assembly document.
4 a4 `- _1 `' D8 t% p8 Z8 }! d
insert a new part as a virtual component in the assembly document. 6 N2 M1 \. J+ f) G: q6 s8 a; y
insert a new instance of the virtual component in the assembly document. 7 a( N9 r( a9 J# x+ e. c7 Z
'-----------------------------------------------------
6 C: [) ~7 k% _7 @
' Preconditions: None3 v, J, L& S2 V7 D& N- b: R
'
% l+ a0 a, _6 m% w' ?: b
' Postconditions:
: v. ^; W9 }% B! H. m8 ? M
' 1. An assembly document is created.+ u( B' B5 W' b/ e5 }! Y4 Y
' 2. A virtual component is inserted in the assembly document.( B) Y' k- n( o. U4 w1 o8 s6 \% Y
' 3. A new instance of the virtual component is inserted' j7 u" E3 ?7 V* L' g1 G8 s
' in the assembly document.4 v. @- v: x+ f
' 4. Examine the FeatureManager design tree to/ s, }5 a3 |6 e, U
' verify steps 2 and 3.) `. g9 d& i3 H& y3 j
' 5. Close the assembly document without saving the modified3 M3 X. l& A l+ R% B7 q% Q! C
' documents.' x X6 B; \, z: u$ Z
'-----------------------------------------------------
1 z1 x: w- {" p6 g. h
Option Explicit" h4 \; c/ ~8 w8 d4 x$ p1 [* S5 V
2 Q8 p& {/ s; O# t, r
Sub main()
6 z b6 d: F' B
Dim swApp As SldWorks.SldWorks0 v) G$ E4 v1 E: L( m- f4 U6 v% |9 O
Set swApp = Application.SldWorks
$ K) O8 M+ b+ E2 p ?4 j7 q
4 ]9 W- F" b4 P* p! ?, T
Dim asmTemplate As String
- \% R* a* \+ h( p6 q- q& V4 p; ~
asmTemplate = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swDefaultTemplateAssembly)
E1 Z/ Q+ `: l0 l
& X4 T* W* `" y
Dim swModel As SldWorks.ModelDoc2
& ?/ k1 M. m' Y/ v
Set swModel = swApp.NewDocument(asmTemplate, 0, 0, 0)
x4 i9 A L$ G) l: k3 \
5 a/ U; W4 H- s1 @
Dim swSelMgr As SldWorks.SelectionMgr( m9 Z" {! X$ D6 Z
Set swSelMgr = swModel.SelectionManager
9 h) i. J1 m9 F, J# B; c# E$ S1 z3 s
9 |+ J/ K# Z( y/ n% M/ y) _: x
If swModel.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0) = False Then% q7 @2 V( r6 j- |7 v* g
Debug.Print "Failed to select Front plane; check feature name."
# } G i- O; Z7 {, Q2 V* y
Exit Sub
r6 j' S4 D( Q. [1 a4 D
End If
+ f$ ^( ?) Q1 r. K0 T* ]
% T4 Y! c% v& I; t* F6 e
Dim swPlaneFeature As SldWorks.Feature
7 T- R7 o! [4 Z. H4 J) _% w. \
Set swPlaneFeature = swSelMgr.GetSelectedObject6(1, -1)8 g: h9 M2 G8 F( Y3 [" D d) I
Dim swPlane As SldWorks.refPlane$ O* j) S" q z! J4 W4 h- p! g
Set swPlane = swPlaneFeature.GetSpecificFeature2$ r1 S$ }$ ?) W' v! Z$ L
$ i4 E5 o+ }: Q4 o% L6 ^- G" D! T6 t/ v
Dim swAssem As SldWorks.AssemblyDoc3 @' n( z& f! h* C! c5 v% b
Set swAssem = swModel
9 V3 |: J: H8 a& |5 h1 _
w3 h( a# W( p" ~8 N
Dim lResult As Long$ K% i, k0 F# t/ `) \# `/ K9 o
Dim swVirtComp As SldWorks.Component2
! g' J9 I. u4 V, G+ X, P
lResult = swAssem.InsertNewVirtualPart(swPlane, swVirtComp)) ^# _; I1 i: ?5 @ }
/ ^4 N- l4 V' E* E
If lResult = swInsertNewPartError_NoError Then: X5 k0 l9 u* |, q' v2 ^" }
Dim swSecondComp As SldWorks.Component2, g' F* |) q( D
Set swSecondComp = swAssem.AddComponent5(swVirtComp.GetPathName, swAddComponentConfigOptions_CurrentSelectedConfig, "", False, "", 0.1, 0, 0)5 y! `* g; b4 G! x% b
End If
: ~8 U. Y; @. u$ F& Z. T2 I
5 L$ _" I! e' x! \9 ^( h3 L
End Sub
0 ]$ J3 T% e8 j3 e+ @( H

复制代码

asd3149 · 发表于 2018-11-1 11:19:46

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

谢谢老师的回复，那对新零件的重命名应该用哪个函数呀？

lhl2008 · 发表于 2018-11-1 11:43:43

This example shows how to rename a component and update its references.
9 j, B/ @! [5 e0 m5 |/ S! Q
; q; p& @* }+ Y: |" I$ r
'----------------------------------------------------------------------
3 G! F0 t" Z. K6 G/ Q# S
' Preconditions:
2 `6 ^* T" C9 T8 ?7 J3 g1 Z
' 1. Copy and paste Main into your project.' {) X) u/ m% _& M$ w
' 2. Insert a class module and copy and paste Class1 into that module.6 ?- {) R- b) I r+ h2 Z
' 3. Copy public_documents\samples\tutorial\EDraw\claw to c:\test\claw.
! c# \( R& n7 F" K# d2 s: M% @) E( Y
' 4. Open c:\test\claw\claw-mechanism.sldasm and save the file as V, q& _/ z' l/ ]
' claw-mechanism-copy.sldasm.: X5 W7 C) X: j7 T2 r
' 5. Close claw-mechanism-copy.sldasm and reopen claw-mechanism.sldasm.
5 G& |; X4 x* F
' 6. Open the Immediate window.
R0 T$ t" f" q0 i+ r
'- R% G4 P$ z W" ~ J' D
' Postconditions:3 g6 r2 w8 o4 l' f8 h _" p1 j
' 1. Renames the center component to centerXXX.
2 m5 I3 Y7 ~0 b& f4 H
' 2. Fires the RenameItemNotify event.
9 H1 D# q& _8 C% I: ], `
' 3. Saves the assembly.
; s& T' D) m7 n( C* c/ t
' 4. Fires the RenamedDocumentNotify event.1 u/ r7 H' m* s( Q, i+ F
' 5. Updates references.
* K" ?6 t6 ] F7 ^* r6 ~
' 6. Examine the FeatureManager design tree and Immediate window.
7 U) f6 @8 o4 H) \% o
' 7. Close claw-mechanism.sldasm and open. f! C; k; y0 r k D
' c:\test\claw\claw-mechanism-copy.sldasm to verify that the
" c- P& z/ C+ v7 t$ T8 U3 [
' center component was renamed to centerXXX.
* j! V+ D3 B" h z4 g5 L/ s3 n
'---------------------------------------------------------------------# S& q8 _+ T5 E& H2 P; j
'Main4 W- G2 d" M" _3 n3 \
Option Explicit, W/ b7 A+ i/ a1 Z3 s1 {# r
Dim swApp As SldWorks.SldWorks2 Q, b0 A$ V7 i8 g9 t
Dim swModel As SldWorks.ModelDoc2
0 H& C+ d6 C1 Q2 w! X2 B
Dim swModelDocExt As SldWorks.ModelDocExtension
8 q! V" T9 {" d4 z: S+ h
Dim swAssy As SldWorks.AssemblyDoc5 X2 N6 B* i- C S- v
Dim swAssyEvents As Class14 L( S0 ]: i' N" h# Z4 o
Dim errors As Long& K: j2 v( y- e! O$ ]
Dim warnings As Long
" z% f$ V7 j! c# i$ ?6 z% T4 C4 A
Dim status As Boolean
% l- ~5 Y; G: E6 J" u( T/ r2 T% t
Sub main(): y0 B- P* @" i7 I" f
Set swApp = Application.SldWorks- q7 W7 C8 q: r/ P8 z( c" `& [
Set swAssy = swApp.ActiveDoc
5 a+ O# d' f p8 J9 {+ t
'Set up event
; S1 Q# R# X! Z1 L; M, M; T' \: l. u
Set swAssyEvents = New Class1
; B6 s+ }5 o& |( s7 a
Set swAssyEvents.swAssy = swApp.ActiveDoc
_) A- `; e' T' Z7 X6 e* ]; u
Set swModel = swAssy
( {9 W7 _1 p+ K, u
Set swModelDocExt = swModel.Extension" e4 K% ]* v1 ?% w$ j& r! M4 }
status = swModelDocExt.SelectByID2("center-1@claw-mechanism", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0): [0 ]" h# O8 i* M
errors = swModelDocExt.RenameDocument("centerXXX")
& V0 x- V# ^0 s# d' T d
swModelDocExt.Rebuild swRebuildOptions_e.swRebuildAll
/ b* S5 `1 ]# F4 [# k1 A3 c
status = swModel.Save3(swSaveAsOptions_e.swSaveAsOptions_Silent + swSaveAsOptions_e.swSaveAsOptions_SaveReferenced, errors, warnings)% R, f" K7 v/ G* u; Q* b
End Sub
1 ^' _9 L6 F9 f- J7 X
/ Z+ i& q; Y* F7 Q4 I3 ]
'Class1$ i% c4 d) s1 b+ ~* I9 J |* V6 Q
Option Explicit
) v2 \9 |+ s0 D
/ n4 F3 o; u" m/ U% s- n
Public WithEvents swAssy As SldWorks.AssemblyDoc; U' k% Z( M/ s
$ _& f+ o* |% I. h
7 X* z3 b/ k& C5 g- S) X
'Fire notification when item is renamed
4 [- P# W1 B5 P" ?' q+ V2 C& c
Public Function swAssy_RenameItemNotify(ByVal entType As Long, ByVal oldName As String, ByVal newName As String) As Long
8 p/ J$ U' i/ Y
Debug.Print "RenameItemNotify fired") V/ j, O! }4 X- \0 Z
End Function3 P( Y% l: M0 o2 @! S, f
: \9 N5 y E0 m: _) ]+ z
% v+ X3 j$ Q0 E$ L) ]1 s+ m* A% O' p6 h
'Fire notification for Rename Documents dialog
8 n- X w. m! L4 Z6 ?- F
Public Function swAssy_RenamedDocumentNotify(ByRef swObj As Object) As Long
# x$ r' ~% [) K" G( n7 S0 g& a% X
Dim swRenamedDocumentReferences As SldWorks.RenamedDocumentReferences7 W. Q3 V C b/ k
Dim searchPaths As Variant; ~3 ]0 p( c$ {+ ?6 T$ F0 U# k+ B
Dim pathNames As Variant
6 P& s, A7 [ V- m3 I5 o
Dim i As Long2 P2 ?5 f* I( `: u: V# V
Dim nbr As Long
! b3 W; n& c$ s
& N/ f) Y' r, r/ C7 O" w, R D
Set swRenamedDocumentReferences = swObj
4 |0 R4 z) x& u. V. Y
3 T* g, D# O/ c; b
swRenamedDocumentReferences.UpdateWhereUsedReferences = True
A% u, H( M; i% A- [) ?: |8 y
swRenamedDocumentReferences.IncludeFileLocations = True$ ~8 t0 b) I0 z, C: Z; J
5 _, d, m& d, r7 [ I
searchPaths = swRenamedDocumentReferences.GetSearchPath) Y4 |' t$ D2 {
nbr = UBound(searchPaths)* {6 J; o& d- n6 q
Debug.Print "Search paths:"( d! l9 `# u% v0 f5 ^# P3 Y3 ?$ V
For i = 0 To nbr+ W6 o7 _2 G) S* S( `7 V0 _
Debug.Print (" " & searchPaths(i))/ j2 o8 X, u& C8 f1 c
Next i; U7 J4 {& g; C2 G7 ?3 |
/ n' [% F0 m8 C3 H. ]8 o7 {: O3 s6 r
swRenamedDocumentReferences.Search6 t D/ z' a* O
0 S1 z# T$ f& K8 Y
pathNames = swRenamedDocumentReferences.ReferencesArray
3 p' d7 v5 V; A" {
nbr = UBound(pathNames)% x( R6 [6 o G, q' d' A
Debug.Print "References:"
; W3 U! c* n' I& q% P7 O$ Q' A) o
For i = 0 To nbr
# Z2 {% W* }- }
Debug.Print (" " & pathNames(i))/ N9 J. j8 |8 ?% c2 i
Next i; m/ k6 K$ W; ~
& M7 s+ ?; K% ^4 @* M" V
swRenamedDocumentReferences.CompletionAction = swRenamedDocumentFinalAction_e.swRenamedDocumentFinalAction_Ok
/ \; B% F% a0 o1 K+ K! n% A! f
5 U- h L3 M% R
Debug.Print "RenamedDocumentNotify fired"
% S( W6 i& t0 @
4 A% y3 R% S# p2 f v: |% D
End Function. V |( Y2 k" c

复制代码

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块