|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object
& T, F% y, n- `* `8 B2 t9 vSub main()
+ S# E% I) }1 g
5 h- A5 d r5 X0 B. H
- ^* c b/ {3 _0 U, m- j; [2 U
" v- ]( S ^6 A! H* X9 [; S! M* o f
'将配置的编号和名称分离，分别填入属性中% x, d+ [# q4 ^
Set swApp = Application.SldWorks1 G7 @/ ]' _- o9 [% ]) Q
7 g% q' h$ E R! y! K. N v' O7 _8 e. _4 x
* i- z' c2 ~, i( X, Q. t
7 A' F% @! J9 i( _
* Z- `4 h8 O9 O& Y( P) C5 U2 b
Set swModel = swApp.ActiveDoc
& m1 F; P) f3 p. ?4 B- X* A
, |$ H& s9 ]4 H) R$ v C& }: c c9 n9 `5 K& N. p- r. L7 t0 D
. Y) k0 W4 }6 n
5 p# Y% ^0 |) m% O* B7 l
Set swConfig = swModel.GetActiveConfiguration
7 K: _) v: |. `: r# x0 i8 K
# }, l* a+ i" U+ s) ?- w7 {5 `2 T. w4 }
; ?" u& z1 L. F7 {7 y( n7 V6 }1 _
1 B- n5 `" a/ m) fcfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名- @; i Z9 b. M0 K
) X! ]6 D8 e; a. |& u% t
( [2 r5 R6 ?7 u5 c& _2 W4 xcfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称! L% p3 o/ o4 k& _6 k9 T1 g: i
* y* @+ ?! A& ~- C- i
8 Y0 {2 c7 H4 v: t& O0 w# w3 yfen = InStr(cfgname, "_") - 1
2 a: j/ M0 k/ S7 o7 U% e7 C" J# S/ X( t/ n g Y! k% l
# L& ~4 M7 a1 c( F) E, ~) `( m
: a5 a0 o* @/ V. q8 J2 L
3 M7 f: f6 a1 z1 p3 G7 I' u
ID = Left(cfgname, fen)( S" R; J1 H+ t: K& t4 E1 [# e
Name = Mid(cfgname, fen + 2)+ j, `- t3 ?5 l% P
+ H7 _) z0 L# P7 u! p4 I% ^2 p; F. B' }: E
retval = swModel.DeleteCustomInfo2("", "代号")
0 ^2 ?* |' A$ }) P: d0 l7 Mretval = swModel.DeleteCustomInfo2("", "名称"); K, H7 n9 E: d8 i: a7 T6 F" H
3 |" p. a3 y* Y; f- e9 d
' x) e0 ~; k" v% O ]* Yretval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)3 {9 j% r3 O! \& `) D2 r9 ?1 e+ b- P
retval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name)' w) k; N) h$ x, t- ~) r' r
'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID)
4 {5 z) Y+ J/ [- B! ~'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)
5 }# S- a6 c* Y# W, |9 fEnd Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享