|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object
' K' g$ H1 i' \+ \2 _6 I* ^Sub main()7 e1 K4 G9 e$ z! z/ A+ U
7 b! v, x/ ]! ]; e i8 {% z
5 a1 X+ c# R! n& o `5 b S3 V; O" z2 {3 v- b" A) F9 C. _
S @; V' z7 q- Q' u* Q2 g! |'将配置的编号和名称分离，分别填入属性中3 Z7 R$ K; [: q9 _# [8 b
Set swApp = Application.SldWorks2 F* o* p! k3 T3 V R; I+ |) g9 @( r
+ y! o% v* v' U& R$ f4 n. t9 ]
7 _! ^: I) O6 [' ~* ^
/ d: Z! n/ V4 w a, i" L( b
3 K7 a5 w+ L& p$ sSet swModel = swApp.ActiveDoc
6 E3 F; q1 k% F
' h& R6 G& S& y0 g0 o' D- G m0 d* s& I& I5 C
1 R: C1 }; S' }
$ K& [8 o( w6 l7 ` f7 ^- u- a4 @Set swConfig = swModel.GetActiveConfiguration
' D+ q& B7 V: |0 l. L$ _( P# Q& o* {1 S# } g
$ [$ u7 V3 x; `6 h3 y8 e- A0 n* x) [) o f: h1 f
4 s' U* O' J4 u* E2 Icfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名# j+ Y) I( C( E! u
* ^% Y3 N4 z0 m* k/ P# C6 [% W: m5 J7 b% S. B/ w
cfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称4 Y( f: \* r. J& W/ v. v& |
1 Y- c" k% P: _1 i6 w, J$ a9 b5 y: D- G0 r9 W7 w
fen = InStr(cfgname, "_") - 1" d7 k7 K5 i% \1 E) L
( {; n5 n/ }1 p9 ?7 V: }$ {
9 W. m$ m! X7 b5 x; s3 Q
2 Z* W1 x: B4 n4 G5 E: @/ ]) l0 {; n8 V) H- {
ID = Left(cfgname, fen); ?# s9 V& z! C- }- J" ~# b: T- ?
Name = Mid(cfgname, fen + 2)! }# I# {0 B" U' P
4 q8 ]: ?7 G$ X4 b8 R
( Y1 ^" {8 S3 I1 O) N% S5 {
retval = swModel.DeleteCustomInfo2("", "代号")
2 K t3 M. {% c' w7 j2 mretval = swModel.DeleteCustomInfo2("", "名称")
) z j* }# H6 p$ s' j+ p) W7 x( @3 _" g7 H4 q# T
0 ]; E# N: E0 n4 h }8 r9 P
retval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)$ k8 F! M# U: ?) F/ \3 s+ ^4 V/ E
retval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name)
" r" f3 F" X4 N x) C$ b'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID)% u. O+ |8 L# {0 v6 a1 Y
'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)
I& A( L9 [% \- e/ Q) xEnd Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享