|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object
4 O/ F% F7 s9 }" L" \Sub main()! J$ I7 m! F& f% T
1 W) L; G& J! T( Z! ^$ a6 ^1 p, h) M7 V5 a4 c
a! R% a, O% @$ W' v
0 z) l8 Y! L" D% A. e& I'将配置的编号和名称分离，分别填入属性中
# F8 z; t( @; J* oSet swApp = Application.SldWorks$ w2 W- \) u4 H8 w% `7 ^1 U5 e
- ?/ J3 H1 ]1 D; }; ?3 Q% T! \3 G
" m. [- L0 P3 S. ~9 ? W, s& N5 ?1 ?, D: x% @0 g( H
3 A7 l. o; W5 `
Set swModel = swApp.ActiveDoc, E3 A! m; N# ~- y7 z. s- P* |
y/ O6 K ~- m, q5 U6 d$ T1 K
6 q0 D1 X- K6 j7 @3 Y; k' E& S0 q
3 t) Z' M, i ^% K5 r; aSet swConfig = swModel.GetActiveConfiguration
8 D- ] J1 @; n# D. ?3 Q+ J4 s* [, B" {' z4 l
; Z2 Z, }6 d! R: }
- Q) j: e3 d: V7 {4 ]5 I, v; O/ C
8 L, e; i$ K0 a1 n: @# ycfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名
0 @* S, F* R! a1 M, s( G
6 }( q4 O9 C7 j z2 e
R3 F/ v) S- d2 U: l. |cfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称
$ u: Q# h, ~+ c& `5 l3 E- b- Y
) A w0 x4 q+ \5 r. [, d$ q3 W+ G/ L/ l ]/ ]& E" ~
fen = InStr(cfgname, "_") - 1
: u* C: ?8 c: y% v
' u4 B* \2 `1 T, }6 `# v& M) @8 X2 U! `( x( L* Z. X' d
" L3 j" m5 Y% {8 i# H8 C3 f7 d+ f4 c1 F8 P/ i+ r
ID = Left(cfgname, fen)" a$ D, k% r7 ~* D7 I( b
Name = Mid(cfgname, fen + 2)
" s$ ?# @- S. d( U7 I2 f. S) D7 L/ t$ o# K- w C( l
! i" T+ H7 p# B- Q9 Rretval = swModel.DeleteCustomInfo2("", "代号")
# H# u3 ?; u' g! _# q7 kretval = swModel.DeleteCustomInfo2("", "名称")0 }" d9 B( X$ @; |% g) H! v
7 y) O V h" a1 r6 S, a
% o; f7 A6 m, Yretval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)8 B1 R3 j- [' }" _+ ]
retval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name), G5 B# S: i) E% m
'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID)3 p! t( j3 W7 `6 b( Y# a
'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)2 H. Y, E2 j b7 A8 V
End Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享