|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。
4 g$ g7 B: J! H$ ^ u提取部份文件名稱寫入「指定配置」的方法如下，做參考了…
: N+ [# t! V, x至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…
, `- {. h$ ~1 M, J w以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄
/ p v* _8 H$ m* ^# I$ Y3 ^8 BDim swApp As Object
1 [" D3 N3 ^2 K$ {4 j4 m c) ?# ?- `. {0 t9 w
Dim ActivationConfig As String
- O3 Z/ \6 y4 i. O1 aDim retval As String
0 t5 u9 c# ^5 y% {( GDim Part As Object
. O6 E# ]8 ~# c( V) j" O4 r3 ~Dim boolstatus As Boolean% ?7 W) S0 L# ^
Dim longstatus As Long, longwarnings As Long Y6 C( \ [" c9 C' t! R4 e/ t
5 m, C' }! ~/ o" u, D2 k }Sub main()! [* g7 T9 }$ a/ D. G
5 H* ~+ V6 l7 w2 wSet swApp = Application.SldWorks0 i: Z3 y+ A% _# r4 W, g1 ~, I
1 y* P2 }2 R( Q1 S5 \
Set Part = swApp.ActiveDoc8 @4 l0 n; e* g: ^6 a ^) f
Set SelMgr = Part.SelectionManager* h% c( r' z# a) C& S) k
Set swConfigMgr = Part.ConfigurationManager3 H0 J' v# a- H' n3 d( {
Set swConfig = swConfigMgr.ActiveConfiguration3 m( a% v6 ]. `7 r+ X5 S
ActivationConfig = swConfig.Name
- O+ o- u: s8 q# _4 K
3 T B* q' S9 p& x! @retval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo"); M# T- [ Q3 p
retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))- O w5 G3 b3 f6 y/ g* K) V
# \& {# m) n! F+ f( tEnd Sub
- O7 R5 h0 n/ I' a+ V4 f* V+ ^2 {! y
2 o5 ?: s# N" b% S6 j6 a! ~1 ?" [2 D- H" m1 B3 U0 ~
|
评分
-
查看全部评分
|
楼主
