|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。) M1 b. E: X; m4 Y, ~: @
提取部份文件名稱寫入「指定配置」的方法如下，做參考了…0 D: S# G# S4 h* O' L2 M. V
至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…9 F3 E( `# s/ o% T1 ?' C
以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄3 Y8 M: y( J4 q$ f9 j
Dim swApp As Object
8 U' R$ O$ S7 g9 }4 t3 {
) n$ j- _: u9 u5 EDim ActivationConfig As String
( c! _' ~4 o9 Z- D! b# x, H) GDim retval As String& g& \$ q: y x5 f8 {/ V. K4 a
Dim Part As Object
+ V% c- Q* J* N" TDim boolstatus As Boolean1 R* ?5 j r& |, Z: C/ s8 L
Dim longstatus As Long, longwarnings As Long# `1 f5 I7 m i; H- A' B
5 Z5 Y* g5 w9 K. M0 m; ]Sub main()) L' \0 T2 h0 B4 ]0 \
, m# a! b `7 s8 Y. D+ P4 QSet swApp = Application.SldWorks
1 n4 S% m( U/ \% y% `! `, Z
! N, Q: b) j, M. I5 V; MSet Part = swApp.ActiveDoc9 @2 p5 W6 `1 N
Set SelMgr = Part.SelectionManager
0 r7 K# |6 x+ y5 i4 }' l2 DSet swConfigMgr = Part.ConfigurationManager9 {% i- d: Z5 l4 V# Z0 b3 X
Set swConfig = swConfigMgr.ActiveConfiguration
/ k8 U5 t, C% m/ q8 _ [! |2 Y+ VActivationConfig = swConfig.Name! d3 `: L) k9 D) I, {
) |; R# } z+ d! B N, s0 eretval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo"): y! i/ g9 F% Y! d! V3 q9 e
retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7))3 e6 K5 F$ Q/ S' J# O1 @- Z3 F
( W( e- b0 T0 M+ |& M
End Sub
# ]% q0 w8 S" C6 t6 H3 l
; ?9 e' F! p! |) M1 }9 Y2 T) `
" R8 i2 n) e# v3 K: ?! V, p% Z, b6 k, }5 A: b
|
评分
-
查看全部评分
|
楼主
