|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object
' j( b' T5 X" R$ R3 wSub main(): X9 \9 U4 u3 s$ i! a
8 o) U0 E! f. S' F; b( `3 {- u* Z9 d8 j% W+ A) L
/ |3 G, b4 P& b; I
0 h; V- Q4 X: z5 I A
'将配置的编号和名称分离，分别填入属性中) `, p- K& n: G% ~) e- ^
Set swApp = Application.SldWorks- V: u* ]# C1 c; Q0 g% A
/ T0 r, r/ s+ b/ ^) `& f
' O3 P2 N* Q" W$ \3 _( m( f+ s6 i
4 Y. a3 S+ ~" K, XSet swModel = swApp.ActiveDoc
; j$ p" }- i5 @% ^* z( l$ t! J& Q F
8 p- j; M3 l! P8 m
/ m' C$ ]" ?/ M2 f9 e6 s9 g
3 V2 d X( }; _Set swConfig = swModel.GetActiveConfiguration
- f* [/ f/ T4 V3 i% Y. g1 k3 M; s: d+ T6 p
/ ]$ p0 ?8 r" A6 h- r/ ]' d$ L- r* r% _
. C# {" S2 `2 G: _9 U: ?4 X A; x6 X/ y' U% {
cfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名
* F0 S m h9 O* h% q2 Z' X/ n5 {- ~* S l7 O+ W; l% b
: _& S7 S8 ^& o9 ocfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称
- D# Z5 b. L1 |& ^* G/ f" O: b& p3 Z- ~: q P# i6 c
6 C4 z* s# a" ~* _: ?3 l4 `
fen = InStr(cfgname, "_") - 1
( ?+ P7 w r9 x* S. l. [; }
$ C! _6 ^: r1 }2 d4 n' v0 Q/ J: n) R
$ P( s7 L" D c# M; ^: j
# ^) @; t1 T2 q$ s0 l4 aID = Left(cfgname, fen)( B3 ]1 T- Y& z1 c, q! t
Name = Mid(cfgname, fen + 2)9 g% g+ |* v _9 C6 d6 ~
; ^* [, e# J' f6 e: W/ [8 D( {- X' F6 i1 q- L
retval = swModel.DeleteCustomInfo2("", "代号")
1 F% e7 P# H4 o6 `; q6 jretval = swModel.DeleteCustomInfo2("", "名称")' J$ @; K( l8 S1 s& C; C1 l- M
1 l% D. O- A+ I i, Z9 h5 q8 L% Z" U% L1 ]6 ^( t! r
retval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)+ V; ~3 ?0 p) `0 q4 `
retval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name): z5 [# \# @" ~+ Y
'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID)
& r# p. v2 p ?'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)
' k. \9 N5 S8 G$ f0 m9 gEnd Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享