下面是分离到配置(备注:间隔符同样是空格号,并可以根据自己需求编辑): _9 R% ~% K7 A) u# t" G
5 c0 ~. i% k* N8 N0 X2 @0 s, m) } ?" s'定义sw7 {6 @" G2 H9 o0 R/ W5 L8 C& g$ U
. ~3 ?; v7 D r3 K" ^, d3 f
?8 ]# c$ N8 E8 s; N3 }7 T% i% k
5 J; Z$ o. d/ c; j; f) b- rDim a As Integer
m C% e. }! b+ _. B) R+ x, z* i8 E7 C$ |! e
Dim b As String. u) s2 |# P- U8 {# W; ?1 E# b9 k' @
* C; @7 ?. \4 H" U" \
Dim m As String
. E3 h9 L9 t8 L# E- n, e
5 @# Q* R" m6 W, a" X: {2 dDim e As String
$ W& t% t, S) F
7 B: Z1 i, R; v1 Z, R- QDim k As String" J* o0 }" L4 r8 S
$ W1 d7 v9 M# |0 p9 i+ K; Z5 EDim t As String
h4 X" ]8 o2 ]% j/ i2 e; P2 u0 H6 }. E; Z
Dim c As String+ B3 T8 F8 f$ i; p) F7 n3 T
w' t7 q3 W9 D- o, R8 U
Dim j As Integer% O- p: h% u# d( G
* i- ^5 n/ l& _0 q D2 @/ G3 O$ iDim strmat As String# m/ s1 m( L" T6 v6 b
/ O3 K/ f: F6 M9 O# ?. J
Dim tempvalue As String2 ?# U. f+ o7 }) q6 X
0 P% f* c/ s7 |, gDim Part As Object0 ~& ]9 E' s6 L7 Y* G
; y' C, P0 V* CDim swApp As SldWorks.SldWorks5 z& V9 ^) k" E2 q1 p. x7 a
+ s7 U* @. T5 g1 N
Dim swModelDoc As SldWorks.ModelDoc2
' h( P7 N5 m0 R E: a# ~2 B) f. J3 z2 w
Dim swConfig As SldWorks.Configuration
2 F# }$ B4 g4 R1 O
! b% h; b& b# S& QDim CustPropMgr As SldWorks.CustomPropertyManager
! L/ D$ R6 U$ d* t! |/ l- ~7 s/ m* Q8 ^1 v" L" j
Dim swModel As SldWorks.ModelDoc2
% O$ F6 t3 j, R' t' \- J2 y c3 ~ E9 }( k, S
( n( f7 R; `9 E: y/ z6 c% P
/ l0 ]0 W* J8 @Sub main()
( x5 S6 K7 w" f9 g8 }- G) y+ x& X5 P2 e2 o- P& T
Set swApp = Application.SldWorks
! b) R; e3 ?/ i8 D" r& l1 ?8 N6 c# C, B, n% A) n
Set swModelDoc = swApp.ActiveDoc# K9 b6 O9 u; @ x6 B2 v
! v* N4 `; h7 |1 ]5 P
Set swConfig = swModelDoc.ConfigurationManager.ActiveConfiguration8 q2 `2 A" v3 f9 `
9 b# k8 Q- Z' \7 ]$ p; K6 S
Set swModel = swApp.ActiveDoc& N6 \9 ~# L" p# o; f u
/ d% r7 z9 P' sSet CustPropMgr = swModel.Extension.CustomPropertyManager
- B. e. r6 O, ]! f5 h
; m4 _- S: u* K$ F7 |, p(swModel.ConfigurationManager.ActiveConfiguration.Name) '配置特定延伸8 m) A% f8 i5 J6 i
6 x# v) Y$ {9 t! {
# _4 S9 i! p3 q# t/ t
# }* q7 S- r! O+ G3 X+ A'设定变量4 ^2 U k* J/ y6 j- N
" k! g: h& ] ]9 H" Wc = swApp.ActiveDoc.GetTitle() '零件名4 u+ m( k' P5 L
: P) }; J( [ D& Z* `strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
* C& n, [2 [! l9 n3 s) R; w5 @: I! c+ Z. T! w5 ?' o4 E! T
a = InStr(c, " ") - 1 '重点:分隔标识符,这里是一个空格,也可换成其他符号8 r3 H8 p3 |$ p7 X
2 k8 M9 A( b# G! O& K, V: Z5 K5 I8 nIf a > 0 Then
/ {. r1 ?4 P% O( r4 j
+ B+ L0 b, c* [( Z; dk = Left(c, a)- Z, y* S- B! L" C
/ Z4 d5 ^* k b. z
t = Left(LTrim(e), 3)9 Y; u' `! `) k: o4 L$ y3 z1 F7 f
o6 z3 p& J/ C: x' X- w8 ^3 l1 `" x9 Y
If t = "GBT" Then4 b3 D5 @' r/ q! v* R
8 Y8 F7 K) b7 N+ j" L4 _; Ie = "GB/T" + Mid(k, 4)
* }4 H8 x6 L1 u( M! J) x$ o
) q- ^, O. U0 R B' K, PElse7 G$ x. ]( W3 U6 G' l' O
7 l4 }' e) r/ d# z/ ?7 `! _5 s( _e = k
$ e4 W) i! n; `( R b/ _9 V3 G; R9 C
End If# S" p, |4 y) T
( g# [ C% e1 h+ G) O$ g8 K3 hb = Mid(c, a + 2)
+ [* k; h) N ?1 z/ v0 j! S, D( I* M) _ b: B) G& M5 ]; L
t = Right(c, 7)
6 K7 p0 S& `& `5 z5 a" g
& R* [4 ]! Z9 U; \6 cIf t = ".SLDPRT" Or t = ".SLDASM" Or t = ".sldprt" Or t = ".sldasm" Then
- n" ^3 o" Y; r
; A% F# s; [& h# o* h7 Fj = Len(b) - 7 '消除后缀(区分大小写,即含4种)
u+ {3 b' X" I$ \/ b2 H- @- y. n: y& Z( v
Else R" i" Q! ?3 ]. @1 u$ H
* Q0 i" G2 l H7 u
j = Len(b)
7 @ d6 c$ F- o% A. K9 s; Z# I" @
- V% W8 V' K; m- @' fEnd If
" e9 u+ ~- L( c: n, k! @3 A- M3 t1 I, Y6 }! g u
m = Left(b, j)2 o+ m+ O. X; v* u2 f o9 R
/ M) `; t# _; O. |: G, J- g8 B5 P8 C
End If
9 ^ q) |- L. g! s0 K$ z, v2 N
7 l7 H4 ?9 j! H) ?2 @'删除栏7 {2 z/ h' `& s' e% d( J+ S2 x6 R
- @ A5 E) F; R
CustPropMgr.Delete ("Number")3 V+ C" D. @8 ^* J- [1 c+ s
: O1 ]+ U# J3 J- A
CustPropMgr.Delete ("作者")
8 O. F& F0 q1 f; Q6 n: q
: T5 v m0 r$ x+ m9 |CustPropMgr.Delete ("图样名称")+ B9 e- m- S2 O& Z' a$ ~" |
* u9 Y) t# ?# z, F8 y
. l" b3 a8 V% p" u( z: l* U
3 O; j: O2 K' U7 h
3 r5 ]3 `: q% S- j( h: m. d3 P2 ?! L3 t$ B
6 i: E7 D( J0 [0 u" N, j: s. c- U1 O
'新增) o$ A' j5 m9 p, A8 i- o: [
3 }" U! B$ H; M8 I) e1 r% p% d
CustPropMgr.Add2 "Number", swCustomInfoText, e4 z- l6 `- H- k8 {" g
$ P7 k; V& [: M1 P; G. e
CustPropMgr.Add2 "作者", swCustomInfoText, "刘腾qq420221716" ^8 }+ \$ D: T; P1 i. x
6 W# u- W; j8 G }$ Q1 _2 LCustPropMgr.Add2 "图样名称", swCustomInfoText, m
' D2 @1 f" G [( x
n8 d% `; h4 C3 r; q
' \# i1 b* n: g+ H( D9 u
8 @. x6 s8 v7 @( }. d4 M
( G* P) U9 A9 @6 I4 x. \# q C0 z8 ZEnd Sub# S' a6 z3 }+ |0 ~& m9 c
' k9 S# o- P# s$ a4 Y |