|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object! F5 N3 A- v7 a$ n( x
Sub main()2 _. c; S) _ c, g9 w p
/ t' i' @/ i7 u( j1 v6 J5 O0 ^) ]( L4 ^4 _; ^. T
, c ?8 B9 e! x$ [+ v: q9 [: T
! \! l7 Q9 `& r+ N'将配置的编号和名称分离，分别填入属性中' T5 {& s; {1 Y# |+ |
Set swApp = Application.SldWorks( z$ z1 L! Q0 N
4 D' f" h6 Q( J0 I' y. M9 [
' a& f! z6 Z; o- J1 g' t# l
% g$ }$ l. v5 K0 q5 }5 \5 x1 c- o) p4 @: Z
Set swModel = swApp.ActiveDoc
}/ T2 ?4 ~' I; l" e
; F" x% T$ m0 x" R2 e: ~- d5 b( v# @5 O; @/ `# }( L
4 Z4 E, p% o* g( J) q
+ W0 |5 j5 g) g2 o" X# W& X, uSet swConfig = swModel.GetActiveConfiguration6 \2 g T9 B) m$ Z. w
# Y, `4 }, E6 s* O. V: Y
3 a: D8 H$ F1 O. ~$ ~2 C
/ ^4 D3 x' J B
t8 E" K6 o4 L$ xcfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名/ ^+ O/ p" q6 V j% v8 {
$ A4 [% X) i5 g0 {, p; t* P
+ F" [8 C( o6 R+ \cfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称
+ w& c; `& J+ c2 z) d- B* u: {8 i% r; i2 E* c
* |/ e' B( j( W& l4 R4 J3 [
fen = InStr(cfgname, "_") - 1/ C9 z/ q ^# E8 @
! A, t, _' W2 {4 J3 E
6 t6 a" U8 c1 K0 ?
5 I; W! W) ` Q/ T& J; ~2 k, I7 Q
, x! W# ~3 H& \. m! [7 DID = Left(cfgname, fen)
, ]: w, y4 f( }) n( W- v, r; I0 cName = Mid(cfgname, fen + 2); H8 R8 n6 o! ^: s
: ^; `" N9 e6 j* x/ j
# d$ Z: k- A% I2 w0 U n. N. }retval = swModel.DeleteCustomInfo2("", "代号")3 {4 j% X: z Z; `$ k2 x& ~
retval = swModel.DeleteCustomInfo2("", "名称")6 Y7 g& l: m8 F7 K0 ~( ~8 d
& L, L# v. `; x' @
$ \! _; r) n% B7 C8 v( fretval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)) c9 t) a) @" G' n
retval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name)3 l8 M' [+ r, P& [$ K4 @, ~
'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID)
- w' v/ S+ z7 ?% I'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)
- C+ m Y3 f! d' b5 lEnd Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享