|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。
# I, Y; r4 `, [8 T: m提取部份文件名稱寫入「指定配置」的方法如下，做參考了…
' f# c9 [; B( u, I$ F. ]至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…
! Z6 g* S) L) A: |% U: T: X: X以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄
1 {1 s) }) G. P' r. ^: ?; EDim swApp As Object
1 E6 }, M, O9 f/ C
% a4 G- W9 T% hDim ActivationConfig As String' g4 ^ d# f5 b# A
Dim retval As String" o/ D2 b6 r/ ?$ Z3 r. u
Dim Part As Object8 q# J+ W2 I: \% l2 _* C
Dim boolstatus As Boolean
$ S+ N% {# O U3 nDim longstatus As Long, longwarnings As Long
' d0 i* h# d4 ]/ D% {
9 R7 e6 e; [) E0 g" LSub main() ]2 Q+ n" t! [$ u, x& a
: V2 o, u# O* k9 }3 m3 j
Set swApp = Application.SldWorks
2 n* Y" x& X0 _! Q4 p: I; h6 L f; Q. A+ ~5 y8 n5 s
Set Part = swApp.ActiveDoc4 L9 x. g6 h9 A* @8 L4 S
Set SelMgr = Part.SelectionManager, J: T1 R" w6 e G/ ~3 D' a1 B
Set swConfigMgr = Part.ConfigurationManager% G( q6 }( g# L
Set swConfig = swConfigMgr.ActiveConfiguration) @/ c% b8 U; x, V/ W
ActivationConfig = swConfig.Name# n! A q; T0 u3 M5 q( J* u: y
$ J$ Z% ^0 r! @) m2 r5 W% fretval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo")
# L. O: m* f! h9 L R0 r$ u# X8 ]retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))2 C" ~( p/ g/ Z5 P* u
# X. I7 g( N( bEnd Sub
/ \4 }& W9 v# Z2 C. B3 L) P
: Q/ n! l! H3 a7 E9 G* h
* ]9 w* p, }: o4 z5 c- \
: Q( n+ k0 ]8 o9 |4 l+ ^ |
评分
-
查看全部评分
|
楼主
0 b! A8 B$ q" H3 f) z! a3 b/ s4 R
