|
|
发表于 2014-9-17 15:18:14
|
显示全部楼层
来自： 中国台湾
嵌合代碼的方式在2013以後不能再使用了…悶大已經說明過可用其他方式。
, h- y3 v* F6 i9 e- P$ [+ J9 i提取部份文件名稱寫入「指定配置」的方法如下，做參考了…
( [# W2 t$ X& J& o& e至於要提取前幾碼、後幾碼、分開提取寫入"代號""名稱"等不同的要求…容後討論…7 q' ~8 Z# ~9 F- A
以下為：提取文件名稱前七碼寫入當前配置的"partno"屬性欄
$ R* z. ]7 d3 bDim swApp As Object t# |) Y0 y; u
8 X. F$ |# k8 I8 R9 C
Dim ActivationConfig As String% Z! P, i" [4 @! s
Dim retval As String+ J% j1 {3 l" n4 U% V# o) X
Dim Part As Object* R5 y7 }$ ?$ a: P& e% P* s I( j
Dim boolstatus As Boolean
- T5 J1 S- e3 e# a' }Dim longstatus As Long, longwarnings As Long( z4 W: U& O# L2 q
! b: r/ B6 C: R% c- T. ~3 n
Sub main()- v" }& q0 Z5 ?5 ]# v, W
9 T8 u6 U; i1 k- k0 S: C: oSet swApp = Application.SldWorks! [+ H3 L0 c2 J9 i
/ P2 V- J: i, d6 x7 @/ i# d) Q* Q% sSet Part = swApp.ActiveDoc% b# s4 ?9 r* H
Set SelMgr = Part.SelectionManager
8 K/ x) s, l- p' `: N4 LSet swConfigMgr = Part.ConfigurationManager' D2 z0 z$ R2 Y& n0 ^7 j
Set swConfig = swConfigMgr.ActiveConfiguration' v4 x9 ]$ q% O) T- n5 k5 j- k
ActivationConfig = swConfig.Name
1 `8 V6 G+ C Z! i
) G+ n! b, y4 k$ G; g6 f( yretval = swApp.ActiveDoc.DeleteCustomInfo2(ActivationConfig, "PartNo")0 f" t2 {1 s1 N' U2 a9 V. l. @
retval = swApp.ActiveDoc.AddCustomInfo3(ActivationConfig, "PartNo", swCustomInfoText, Left(Part.GetTitle, 7)). Y; l: p3 F7 |" E1 m$ v) y2 @' I
; z* J$ M& m' d* ]% o |! n
End Sub
5 A5 t% Z) q0 { u+ d: ?$ B0 d) r1 i3 _0 k
7 T! `3 e# T# M' o+ [
( |4 i7 w" {( r8 t7 |# F4 Z- W
|
评分
-
查看全部评分
|
楼主
