|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。
6 N7 W k% I4 T3 c; s提取部份文件名稱寫入「指定配置」的方法如下，做參考了…3 g0 \3 K5 a. z
至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…# V( x- k$ I: p: v: ?* N
以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄! I$ ?4 ]" q: s. C: V) X& Y7 d) k
Dim swApp As Object
, d6 U- i _/ H$ |5 }- D
c5 J- q T) K" w: J) z3 @Dim ActivationConfig As String
4 y; S0 e7 U7 d) u$ tDim retval As String
' h7 \; K/ l8 f/ `0 h* I/ d9 ADim Part As Object" y1 C4 ~! Q1 U( }5 @5 x5 n5 V( z
Dim boolstatus As Boolean+ b& v9 }- j/ F) \
Dim longstatus As Long, longwarnings As Long
4 ^0 h& E/ i3 i* Q! B
) V) m+ V0 f- R4 MSub main()+ k( I' Y6 B+ Z: {8 `' L
+ W2 x- E: ~- U" X. YSet swApp = Application.SldWorks" J. }1 x: p& }; f1 s
7 v- ]$ ~* Y; R9 ]6 mSet Part = swApp.ActiveDoc
3 G' V, K: W* r- Q$ T$ n+ ~% v) bSet SelMgr = Part.SelectionManager
$ C f. z6 c7 K' i3 O4 w( }. pSet swConfigMgr = Part.ConfigurationManager2 L1 q. V5 `) R5 j7 X% B" @% G
Set swConfig = swConfigMgr.ActiveConfiguration2 ]+ @8 C* M8 N6 k& c
ActivationConfig = swConfig.Name. p) d6 L& Q. k' d& Z+ H% g
$ ~9 a6 X% u+ z- o" `, c( eretval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo")
6 C4 s" n" D: ^$ y9 ]- }- ~4 y; Iretval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))
3 I' A2 @0 i, ?6 `0 V- n- S, F4 S& f
End Sub
& `4 _- [' j' ?2 p
' h- O* `& j+ x( `$ {9 A- T5 U
5 }: d3 q% g1 l
|
评分
-
查看全部评分
|
楼主
% d, P/ z w) N4 d0 t7 g% V# ~0 ]
