|
|
宏處理
' Z5 z4 p0 c* S, W8 u. v& v6 P0 O% }$ Y- z* j2 l. s# O. ]3 g
- Dim swApp As Object
7 s0 o/ j, j0 Z - Dim Part As Object
- \4 I- H- Y5 D7 _7 r8 y/ r - Dim SymbolPlace As Integer
- }* ]5 _; y/ n - Dim Number_Name As String
' H; P0 v1 c) o) c2 m' u - Dim Number_ As String6 K n6 P- B3 m5 I+ P6 I" i6 q* A
- Dim Name_ As String
) T/ W8 w3 x0 @* A, a% ]1 Q. t$ e0 X
! b3 R6 C/ l% F+ Y- Sub main()
: b1 m" A' l+ N7 i - Set swApp = Application.SldWorks7 {. a6 r, S7 K
- Set Part = swApp.ActiveDoc
4 O- }: T8 z a! k - Number_Name = swApp.ActiveDoc.GetTitle() '取得零件的 編號-名稱(本例編號名稱是用 " - " 符號分離)
) T4 x& Z- @: N - SymbolPlace = InStr(Number_Name, "-") '取得 " - " 符號的位置數! X1 d' }* N j- U" H& T9 }
- Number_ = Left(Number_Name, SymbolPlace - 1) '取得 零件編號0 q# l5 `: `% S$ D0 T
- Name_ = Mid(Number_Name, SymbolPlace + 1, Len(Number_Name) - SymbolPlace - 7) '取得 零件名稱; Q# E b* S( o5 D
- blnretval = Part.DeleteCustomInfo2("", "PartNumber")
* q- N! W7 x4 s; w- c - blnretval = Part.DeleteCustomInfo2("", "PartName")
$ G- w! y, ~! i7 E. C! J& R, a0 | - blnretval = Part.AddCustomInfo3("", "PartNumber", swCustomInfoText, Number_). j x2 c: F5 \1 T$ R5 P* U
- blnretval = Part.AddCustomInfo3("", "PartName", swCustomInfoText, Name_)8 t3 a% N6 T! `
- End Sub
0 M& R+ p6 P( h" z
0 R7 ?2 j3 r, n7 X. l1 E% d& Y* I- J. c' {2 |
7 t0 h( h: b, B. m8 r8 n& {
, P( j9 V. a& {5 J# d' {, r) }& y3 w7 n. I1 ~! Z
8 Y6 T" g4 a6 r3 v0 } |
本帖子中包含更多資源
您需要 登錄 才可以下載或查看，沒有賬號？注冊會員
×
|
發表于 2018-9-7 14:40:22
QQ好友和群
QQ空間
