|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。. r8 t' w6 y5 C5 u D
提取部份文件名稱寫入「指定配置」的方法如下，做參考了…9 V" U5 l9 v' v4 [9 T0 m
至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…
& ?3 p$ y1 d n6 M7 }% M% r* a; w以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄
' b6 Q; ~5 c9 b0 M& M' qDim swApp As Object N& V) O0 {' u) `7 _3 A" O
8 L* ?5 [: T- y& k8 G' [Dim ActivationConfig As String# D6 P* j. Q% J }/ |4 r8 w* v
Dim retval As String+ n4 d$ ?/ \" j* }6 x% _
Dim Part As Object
$ ^/ Y% Q9 |1 e6 \9 a. u4 QDim boolstatus As Boolean' l6 d4 L% _% H& O
Dim longstatus As Long, longwarnings As Long( W, v$ ?2 C) P4 w* Q* o# Z
' z Z/ F h; L) v- K4 ^
Sub main()
. T0 _2 c3 X7 U# x7 S( e9 P, x
$ \* O+ p% S+ T/ ~4 P$ eSet swApp = Application.SldWorks
4 a" Q% a$ o* D' l; t% i; r. T" j9 J1 n+ S8 {
Set Part = swApp.ActiveDoc
3 Q5 V e7 @$ o* }Set SelMgr = Part.SelectionManager8 x6 t7 u6 D, F/ e }
Set swConfigMgr = Part.ConfigurationManager
6 a2 l+ E! w6 P+ x; \Set swConfig = swConfigMgr.ActiveConfiguration
# d( M& r& I* s" w: y; @ActivationConfig = swConfig.Name0 g I, b3 x2 D' l3 H
9 B6 m. J' ~7 k; J/ y" j
retval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo")/ D- b5 l3 |# Y2 @5 O8 o, M
retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))
4 ~$ y; u @- S1 M: V/ M/ r- b0 B* @9 s9 t; C: v4 z
End Sub
# N' Y% n, U+ H
% \+ ?# Y% ^- z) f. W B7 s9 ]3 s
- _5 a Q( k& X) p |
评分
-
查看全部评分
|
楼主
