下面是分离到配置(备注:间隔符同样是空格号,并可以根据自己需求编辑)6 [9 r |$ }( i2 b. W) g
' G$ K4 y! L) q8 A$ T8 L. X+ g
'定义sw5 R0 I5 a9 K* K3 P
7 O) v& D2 T4 Q1 o& i% y; T" k) x) ]$ y& m" F
) O/ {% ?2 v4 v, f. v
Dim a As Integer
- F4 v: }3 Z) [) l: q. o+ }% ^0 r' o1 _# M. v. b/ j
Dim b As String( F/ N, T2 H2 a6 Y9 k" @
% i* P. ^) l# L* l2 m
Dim m As String" k& _) Q" m8 y
6 f& I1 d/ U/ z/ M0 j/ U8 `- b5 s
Dim e As String3 c; N1 q1 r J8 B5 O: \
* N( U! }% C U2 L) f7 Z
Dim k As String
. i/ f( h: L! B8 a) v0 H
: \2 o+ l3 c6 u: v H oDim t As String
0 [" I9 f/ q( }3 r5 K; V, f+ e- x/ I
Dim c As String
& c' X" `! t9 v7 ~( v; u! D: N1 L
R$ J9 P1 u/ wDim j As Integer
- r8 t& s/ J" \! r5 j, a7 p/ H: c* }
" r4 y( b0 n1 J- s- ~) E2 ?. PDim strmat As String+ x# N; t2 g: a
( K1 }& N; ]# M8 u% H8 U% z! o2 s
Dim tempvalue As String* M2 o3 G+ |! r2 t3 X. m ~
S# C; e3 d" F# H. _& gDim Part As Object; O- R6 O) b) I3 D: Z
, v7 q. Y4 j( k! I+ n, y
Dim swApp As SldWorks.SldWorks& I: j+ G. g, u; n
" Q- c e9 R# U) TDim swModelDoc As SldWorks.ModelDoc29 P( O" ~, k8 q( ?
7 A) M$ e1 X. ~( C" ~
Dim swConfig As SldWorks.Configuration2 S/ `. {2 o5 g& \0 ?
% g8 P" j% y' V& p
Dim CustPropMgr As SldWorks.CustomPropertyManager* G/ q& p1 i: w# K# [8 K+ ~% \
6 i$ F4 F6 x( @: O* o# H& Z5 m- ?Dim swModel As SldWorks.ModelDoc2
8 \# E3 |9 |$ `: \" ]4 \4 w3 p/ H( K6 H2 c
' v5 N# B" ~: U8 f! `- ~
6 ?5 q. E( p4 U* \8 C0 KSub main()6 ] \8 n ~6 Z/ b$ z
, S5 m2 G( K0 C+ U) [. fSet swApp = Application.SldWorks. _" \$ P. Z( e* G3 z
4 d) K, L! y# t3 W9 `& `7 jSet swModelDoc = swApp.ActiveDoc4 L$ d5 P6 i C
* y2 t8 t! A" }1 C/ w; O
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration: Y) D$ E$ |: V
3 j6 O' X( v+ I6 Y$ Q+ s
Set swModel = swApp.ActiveDoc3 K5 b: Y m( i. k* F+ M* T1 s8 N
# o4 Y, w6 b1 z- \- D
Set CustPropMgr = swModel.Extension.CustomPropertyManager
5 Q' W, D% h" p' T0 @6 t$ ]' s8 u# V! R0 U
(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸+ s+ z9 ]! S5 [ _( } Y" {( c% }% Z
6 L8 `3 h* `# W6 i
# V: K! c. a% n5 {9 H
" H1 U2 U6 N% ?'设定变量0 @$ S- T# M/ N# v& z! U7 B; }' s
8 B, v' l( W9 W) D
c = swApp.ActiveDoc.GetTitle() '零件名
T4 w# e! l. o- e' q+ D2 T$ `6 _. R' l& r! \" ~# x
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)* P' J4 s6 B: R; t# }/ T. j' ~/ `$ z
* H) f1 g+ C2 I
a = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号1 K* A4 {. e2 w/ N# O( I
& k" {, m n3 [" VIf a > 0 Then
9 C/ f* o9 p9 c2 n
) ?. e% A i. \9 W* {! Kk = Left(c, a)
4 N% K& k8 U' B& z. y" Q8 P/ X9 a
t = Left(LTrim(e), 3)
C5 n5 ]) b# w6 C: I$ @
m; U6 i0 P6 K6 H, s$ YIf t = "GBT" Then: b9 t+ n* \$ a2 ~9 u8 H+ w, o
& f2 ]0 U3 P. X1 W( y( b, ] te = "GB/T" + Mid(k, 4); W/ o9 I2 A N6 j
, F: W# B' @9 A/ U+ m9 x0 k* l
Else
, A* J: ]* l; S) r0 S6 h7 G
0 H* L& m# t3 t/ f$ G N, _e = k9 a8 n X+ D L8 O* Q% ?$ g/ I
& s. W: A d( M+ r5 f+ f9 {5 w0 N! {
End If- W8 V$ @# H- q, e& S
1 |. Y y2 ?# Y$ z5 z: }b = Mid(c, a + 2)
! l$ W% C$ J: a
' \" D) [7 J( ^% G4 R- Vt = Right(c, 7)' M- M. O4 }1 a- p8 f
2 \; h+ L6 P# r& ~4 L
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
) [7 _ e; F; o( Z, @+ A7 {+ ^
5 M' p% d8 d- Z+ ?& ]j = Len(b) - 7 '消除后缀(区分大小写,即含4种)
: ~1 T( t! Y( _
% }+ e7 a+ C; @; }8 r$ n. m jElse
& [0 \4 Z( ^0 B
1 C% h* O. `0 D T6 f6 Tj = Len(b)
5 G; E+ Q7 M" z: p; g( r5 X
: G3 [3 H' \: l3 D: tEnd If
2 f0 g, G2 ^3 b+ ? A0 \8 t* @# v6 `+ ^3 ]& }
m = Left(b, j)
8 o' ~1 v3 r5 F. V/ |6 _+ K& e( s/ H+ l8 T1 K' \5 d9 H: B
End If
3 |; a2 D0 u% f8 U4 ^; c1 A% D9 Q! {5 ?+ `
'删除栏+ N- W6 j( k" U4 N& \* `+ |- P! F
* S) U9 x& ~, X6 o( \# Y9 k* ^CustPropMgr.Delete ("Number")
% \) x. ~- m$ L `
/ N" M, ~, N/ f9 v" p' tCustPropMgr.Delete ("作者")
- |) Z* f4 K2 v b! c. G& }3 H. D# z# ^
CustPropMgr.Delete ("图样名称")! ~ t- B6 W5 Z6 z) |4 s
$ Q1 x6 {2 H1 r! C
* F* T; R1 y. a) t( S0 [, U; h" t8 X1 z1 o* [1 }+ G
4 m2 ?( g8 f9 o% \
! o2 Y/ J# J* {+ e' W$ v- w4 I
3 w7 V; F* p( o$ C: _& b& |'新增
% _0 g. u! \; ?' e; c: F H4 L: U9 I; g5 i/ g* a! ^3 F M- k# b
CustPropMgr.Add2 "Number", swCustomInfoText, e( y" d- ^ V3 E b) b; z
~$ q9 {+ D5 `+ |CustPropMgr.Add2 "作者", swCustomInfoText, "刘腾qq420221716"7 r8 i0 Y2 N0 i0 H
( `0 H9 o6 Q% _' H7 h1 ~
CustPropMgr.Add2 "图样名称", swCustomInfoText, m
{4 i5 u# S5 w$ ^9 d E. C8 S$ y2 G- p
; Y3 V4 Y1 S. U) n! r' U
) }0 ` ]0 k( r' j% b: ~9 K O( E# B- S9 U
End Sub7 k% F! Q( w2 U3 E9 G
h2 L8 Z6 D D' l* C8 {
|