|
|
发表于 2016-9-24 10:18:10
|
显示全部楼层
来自： 中国广东佛山
Dim swApp As Object. F' X& n1 m/ S7 M i7 U) [
Sub main()+ z4 x; @7 r0 D$ S! N5 D4 M; W
4 g& K3 A+ {: n! u4 G- Z+ f3 E) r$ D4 o, S3 b% J% r. A! y
/ D2 E" [7 t0 c8 A
# e( c T7 X1 D1 D7 e* ~/ C8 S. A'将配置的编号和名称分离，分别填入属性中/ z- o6 Q( l" h/ I% t
Set swApp = Application.SldWorks0 o( E! @% ~, S9 ]
! \+ J r2 Q4 }* Y I: x6 a+ R; U$ A, k* ?2 U
$ U$ K; ]% V# n/ l' ]; P/ }" N. @$ R4 i
Set swModel = swApp.ActiveDoc" I; J- x$ `2 o3 C
% I0 l3 g! p k# Q6 f; L- z$ s, o
. c1 O" y* Z6 o$ k }. ?% W ]2 v5 Y y) E! l
3 t4 G! r2 h/ L2 P8 Q5 _
Set swConfig = swModel.GetActiveConfiguration' ?/ j) ]. i/ B
* N0 z6 E7 [1 q( b1 l, N
. v8 i( }8 W' l/ f* y* I. B) o2 k8 j: [& Z$ v) j+ K& [
6 g! [" N2 x0 Q2 `! j2 M) h- x' I
cfgname = swApp.ActiveDoc.GetTitle() '获取当前文件名
' p, G* |$ r [4 f) k/ Y
: w3 U! w8 d/ {7 R8 r8 l
! O! i) |& F7 h5 {" jcfgname1 = swConfig.Name() '当前配置名称 要求格式：编号_名称# N {4 k, A* x' B8 v# b
$ U4 {5 O3 f6 m8 U6 w: ~. Y
1 ?+ M9 C/ F2 X, i! Hfen = InStr(cfgname, "_") - 1
4 l1 x& A8 n2 s* u W y+ n; L' `/ z6 A
5 V5 |/ x. `$ Y4 j/ B! n/ n3 X
1 t9 g, s* Q# f9 r) L4 m% E
/ f* s: B# P- u, a) s% e0 t G
ID = Left(cfgname, fen)6 z+ U C8 j3 Z$ v& }3 k; D; e* L- d
Name = Mid(cfgname, fen + 2)
; i( n! o& T# Z1 |: r0 B# P: A6 o4 `
% `0 z1 c. i" L( lretval = swModel.DeleteCustomInfo2("", "代号")
, V& C% s3 \% y/ g' |retval = swModel.DeleteCustomInfo2("", "名称")
- {# Y- J1 n8 j4 H9 m& g/ F
: c! \* T5 k; R7 C! Y6 _* G: ]0 {) r/ v0 }1 O; @% U! I$ N c, T4 [
retval = swModel.AddCustomInfo3("", "代号", swCustomInfoText, ID)
" W; t: ^% G) y n& dretval = swModel.AddCustomInfo3("", "名称", swCustomInfoText, Name)
& M$ f/ ~" P3 Z$ }'retval = swModel.AddCustomInfo3(cfgname1, "id", swCustomInfoText, ID) x9 K9 X+ r! f) g
'retval = swModel.AddCustomInfo3(cfgname1, "name", swCustomInfoText, Name)/ b! Z2 b* s$ |# S; B
End Sub |
|
楼主
发表于 2015-6-2 20:03:30
感谢分享