下面是分离到配置(备注:间隔符同样是空格号,并可以根据自己需求编辑)! k* ?6 i# y8 _7 ^# H" ^' ~; N
! m$ o2 _$ q9 l+ c
'定义sw5 l: Z# R p& O3 ^
% [& w. e4 B. ^' f1 k$ n
8 c0 m) f: t2 y% G0 V; z1 ]7 p3 I0 ]) k- X' s& g
Dim a As Integer) T+ I( c7 S9 ~1 W6 D
; v+ \5 x) N( o& p0 S# n6 zDim b As String) g, v0 g, U& s; ^4 V1 n- q5 b
& E# Z; I: {6 \- k7 b h9 fDim m As String
) \8 T% D( K r! ]
* t0 m+ O& e' X: P0 q$ n1 H. XDim e As String* d; T8 H# L. g+ `+ Q
- q3 k$ ?; z7 r; g) |, ~
Dim k As String" _% C) W# l3 J
/ t- d+ k& R: a) ]# `7 yDim t As String5 d' y' ~4 X' L: S
0 @3 L# L5 j! s& }$ DDim c As String
0 D' g0 \. K m# Y- e% K8 h# n3 ^% X) `8 v7 @
Dim j As Integer
8 D5 P1 V4 `: d/ L8 j" l% o. t( z- m7 Y
Dim strmat As String
. e" P% d9 M* c" X. q7 n
; C- c) k0 w0 z% JDim tempvalue As String
& B: [! F% {: o- `$ }! n
2 ? `; ]) D/ h& w0 T2 |. lDim Part As Object" G6 j$ d# q, Q% @, M0 i' p! q* h
5 q$ p) R1 m# |% a BDim swApp As SldWorks.SldWorks
( ^; Y& t* }8 Z! b/ L, Y5 _ ~/ L5 I' o' ^2 R; C1 X
Dim swModelDoc As SldWorks.ModelDoc2, ?3 g. t- N, V; ? L3 f+ j6 H7 w
# @& h7 H5 q# _7 |, e3 O) a* W6 gDim swConfig As SldWorks.Configuration1 P1 Y; J: S; f
% s1 a( z8 P/ qDim CustPropMgr As SldWorks.CustomPropertyManager
$ \9 i1 `' ? E7 B6 v9 R! X! m$ g- B/ G
Dim swModel As SldWorks.ModelDoc24 E3 e% v. X! V5 W3 K; S( A ?
4 ^* W0 F. T- Y, ?
. p+ t5 {' t* B3 a" q4 S! U
% U+ y8 C$ Z- ^
Sub main()% L0 g8 c3 A& v1 t8 X
; j6 p% a. N% ]% d* L( O/ o8 \Set swApp = Application.SldWorks" Y' t3 S W! i L& P
, `8 C( U m a# v$ o, _
Set swModelDoc = swApp.ActiveDoc
5 L! T4 m' P. \4 O' @ m$ g, W ]% ~8 S( R5 }& j
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration
0 K6 }. m6 d' R' |/ O" x3 `7 u0 }
# G+ P* M& N2 t% MSet swModel = swApp.ActiveDoc
5 H' {5 t. Z8 I8 g4 z* |1 ~/ t" u9 O& K
Set CustPropMgr = swModel.Extension.CustomPropertyManager* X- ~' _+ e3 Q$ I3 g- m8 V# m
. j. A5 d0 ]! h3 e(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸. [6 n$ J! y, C0 n6 r& \5 t
% r& |; c% _% y& t
1 d! P3 X/ X' }1 `8 T
% g- u" x2 E P1 W'设定变量
y3 Y+ g7 J2 P' d# a2 t/ u
/ t( b6 T& t& X& }# e7 y8 @c = swApp.ActiveDoc.GetTitle() '零件名
8 q& f( S4 o1 y5 E! {
- C2 D' ^+ X3 d- j# Q1 U* dstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)& C+ X5 e" ^% O3 U+ ]. V0 O4 w
+ H1 b0 Q6 v/ i
a = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号0 @1 R" q; R9 L2 W2 K& `; |
# W1 T8 D1 t. q
If a > 0 Then
% T7 R0 I+ S* \6 m/ o
~6 Z- T1 T! Jk = Left(c, a), r4 t/ |, q" G' `. b
0 E( a: w8 \; p& T/ pt = Left(LTrim(e), 3)
; j! t2 w; u: b% e; L- T |
1 T; B7 R# K2 R+ N9 lIf t = "GBT" Then* w2 @& v& N1 R0 E/ t, p
2 f3 f0 t1 Q5 e4 T, n/ Pe = "GB/T" + Mid(k, 4)
8 R) n, l# P2 e" h7 K9 ^6 G6 Y/ b0 p, R6 x+ }- q
Else
9 n. `( b7 {0 S' k
6 Y' e0 g% u# X9 l) Q" V, Oe = k
: d) O' l8 a# S! M e9 `$ q( W
/ P `- i2 W% H9 ^. W7 d' JEnd If! O' M2 ?6 g- Y+ O- v/ T$ J5 k
1 T6 X# ?: T8 k* ?- ~/ m0 l d: Cb = Mid(c, a + 2)
9 f6 M- p* w* T$ u0 j
- O/ }% L) S3 w6 ?t = Right(c, 7). P2 R \! ^6 S8 S
9 I9 {2 Y1 j" w
If t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
$ ^ V U/ o% i0 C$ g
' W/ k9 i# _0 }j = Len(b) - 7 '消除后缀(区分大小写,即含4种)
0 p3 d0 P6 b& O
8 U t! C8 s D. ?, a& a" iElse' X. K ~1 B; X! h7 K- _
+ Y1 X! G$ U0 T# pj = Len(b)0 J9 O# M$ w# [! _9 v4 U
# Z! q# N: h% n q' a2 P
End If0 p2 n2 J. W4 y; o
! r7 H1 D0 e- D+ }; Um = Left(b, j)( |2 @7 f7 q/ _. M+ _3 Q
0 B R, T- m0 o4 C8 ^. y ~
End If0 ^+ E- Q% `8 u0 Z6 n" b, s) g
8 v" K7 C7 ]! _7 W
'删除栏1 C0 o4 o8 J7 D, a
4 z8 y% P7 m1 q* [4 r
CustPropMgr.Delete ("Number"): |" v- R$ A5 l7 U0 M c! @
& W4 f. ]6 z) k" r, t# I+ n
CustPropMgr.Delete ("作者")
" @5 K! t7 x! l' ~
& `# m! S2 G! a/ a, cCustPropMgr.Delete ("图样名称")
& F1 X/ A k& o [- U5 r$ `0 o' Z8 n( h$ I& Q7 _% ^) N
! B6 z/ K) m2 u% I% _5 J v# h [/ C3 o' E% q, u9 X
1 a3 o2 x3 F) B
# @8 O( K0 t% T
1 t7 O2 }& a* q7 B
'新增
) {& G' y3 i+ q$ r1 V6 E
& T5 ?1 ~- [( {5 U. ^& k3 LCustPropMgr.Add2 "Number", swCustomInfoText, e
% J3 s5 D7 A. ^5 t
`2 Y) \ W Y! `" l1 tCustPropMgr.Add2 "作者", swCustomInfoText, "刘腾qq420221716"
4 j2 k' h$ @" O# z$ H6 g4 |+ R4 I+ f* ]7 _, N
CustPropMgr.Add2 "图样名称", swCustomInfoText, m# N/ w; E3 w2 D7 h6 k" j. r
" F. v; ?2 }( M+ X# ]
% ]6 o$ U* t/ @" y* l/ k/ Z- x- C6 L& m O
& T9 w4 M5 }6 H+ n; F% s* R2 c6 k
End Sub
* Q$ ~3 p: B8 `: _7 k6 O
8 {: K( E5 M! B: p8 q) d6 \/ K' I2 n. t |