|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。 \9 ~, X' ^7 b; q2 m- a
提取部份文件名稱寫入「指定配置」的方法如下，做參考了…* O% h+ v1 N( r: T; g- A
至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…2 c7 u1 h# R2 [; O/ L7 T
以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄
0 K. e% m+ F7 Z8 {$ u, W2 d WDim swApp As Object/ K8 j& b4 I0 c7 V. j* k
, u6 W8 ^" j' F0 l3 Z3 } D7 m
Dim ActivationConfig As String3 G" U" V: `. j/ H. G
Dim retval As String0 q+ t( o6 b5 w# s5 O+ e
Dim Part As Object! K/ d, P: O) v! n/ d- A
Dim boolstatus As Boolean0 `$ v- T2 r2 B, d( h
Dim longstatus As Long, longwarnings As Long* I1 D' m* V. u
7 o5 H6 x0 u% O- I" C2 D# ]Sub main()
8 ]3 r5 f% y' A0 Z6 e; n/ D
$ V3 V+ ^& \' ]0 Y4 pSet swApp = Application.SldWorks
2 ?. d. X, o# H# O; D
8 Z. i8 S' M, B/ s. G! o: \2 c7 L* \Set Part = swApp.ActiveDoc# I l q- o+ P, a2 f
Set SelMgr = Part.SelectionManager2 [& f# [8 \: g! P; J, S
Set swConfigMgr = Part.ConfigurationManager/ q3 X+ G3 U8 b( H
Set swConfig = swConfigMgr.ActiveConfiguration
8 D: H- e) `: h( _! N |* QActivationConfig = swConfig.Name
- Z8 F" Z/ N, _7 w/ }( Y
; W& W3 E8 V5 r ^# \1 [5 ?, Jretval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo")7 F6 Z' g J5 O
retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))
: R e/ U1 E0 ]) v0 S- _6 I3 s
7 q, C4 W& C9 w/ v1 P( X1 c$ dEnd Sub
P+ F' \$ j; T* r! o$ \; u* ~! R8 \* w! G9 D) B1 }" |
1 w. l \" Z0 M& L. D, H& d
2 r( V1 ^" b1 `8 W |
评分
-
查看全部评分
|
楼主
