|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object
2 \* |$ @2 @: q X# _4 s8 RSub main()
' [4 V' c3 d9 S" A! U9 F( t. j K' W+ n: a6 T
q3 q6 C3 q0 z' t m
& B# M& j! B9 _+ L% X8 R' ]9 l$ r4 l0 ?- s8 }) v
'将配置的编号和名称分离，分别填入属性中
3 T( F2 K: J# I1 L, G/ `, a: l4 t6 YSet swApp = Application.SldWorks/ G i, q1 C+ [) l& W' n
0 J' w5 I+ m- D, R, A
2 c! c$ F$ a. c1 w/ q O) n! B9 O- o& u3 A% L1 ~
; l$ }8 }3 P! a! y, f4 }7 R
Set swModel = swApp.ActiveDoc
) b# K2 Z b9 m/ ], v7 Y5 [
2 H. M$ h2 q7 a) g; [/ w
* D/ ]: z2 ^$ x# v; H( C# y! \0 `- E1 k" P7 @
+ L2 o# F- q% F1 Q6 I2 O" U
Set swConfig = swModel.GetActiveConfiguration% { K, d; J8 h$ B
) B+ k2 g2 [% c
4 L A& \6 w! V' d! k4 \& g# u
! ~. l! b4 }7 B, y2 a, Q- z+ ?/ c& y. a9 `, a X$ {3 f
cfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名
: h! w! F y% |% @4 f1 f
5 e9 N" U" C2 x
- w1 w+ |4 `$ {4 \9 ~: C4 F1 ^& Kcfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称
5 L) ?( |2 S8 y% @$ q8 }! {' T
- s, {5 [, h0 ?. {9 S& I$ k
: x) t, x3 f. }& Z" S/ U, E o: {fen = InStr(cfgname, "_") - 1
% | s5 _/ i: p* b# h9 V+ D! j& v! k4 Q' `# k
* V: J( v7 y9 B- ?/ H
L9 D6 _$ R! x& Y$ T; C G( F
* T O5 `1 s; R* y1 c
ID = Left(cfgname, fen)
- V I4 s, u! K$ G$ F6 }" bName = Mid(cfgname, fen + 2)
, M% o( i3 z* s: ~+ V. t
2 B. \( x5 C1 h$ I* X, T5 F1 K1 f6 T- e1 r
retval = swModel.DeleteCustomInfo2("", "代号"): W% w; t1 f* z
retval = swModel.DeleteCustomInfo2("", "名称")3 K5 U' L* `/ V+ I% s7 L" {& v
: o" W# j2 N8 t6 {
/ C* t6 A( J; Oretval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)8 y& B& f" t; E+ U4 P' r
retval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name)+ S4 s" b; @, {9 V6 L
'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID)3 q% T7 o3 _! n$ E" J# V0 q% n+ G
'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)
. m4 X# S! z$ i, X% M& {9 @End Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享