SOLIDWORKS 宏合并執(zhí)行的問題

ryouss

就是如下的繁體字改為簡(jiǎn)體字就是
4 H: z* P/ `6 \! X. W8 y8 S

8 u1 K' x, q$ ?0 x  t( e& n

1. ' ******************************************************************************
   
2. ' C:\Users\admin\AppData\Local\Temp\swx8144\Macro1.swb - macro recorded on 11/22/18 by mqlu
   ) m5 n$ f, `6 I: Y  @$ S
3. ' ******************************************************************************
   
4. Dim swApp As Object
   . k2 F  H" Z8 S* M# K+ _
5. Dim Part As Object
   # t/ N# p, A2 A0 d7 A2 Q7 ~3 A9 Y
6. Dim boolstatus As Boolean
   
7. Dim longstatus As Long, longwarnings As Long
   
8. 
   
9. Dim SelMgr As Object
   
10. Dim Feature As Object
    
11. Dim a As Integer
    5 q/ b, `& D9 C& k* L
12. Dim b As String
    
13. Dim m As String
    
14. Dim e As String
    
15. Dim k As String
    * Q; F% X& B* R  e4 {4 F/ j( _
16. Dim t As String
    
17. Dim c As String
    
18. Dim j As Integer
    
19. Dim strmat As String
    : v- R) x1 ~* q+ I3 w
20. Dim tempvalue As String
    0 [4 ^6 f: |" R4 O
21. 
    
22. Sub main() '刪除所有配置屬性
    
23. Set swApp = Application.SldWorks
    * Q+ L1 Q1 i$ j, ?1 _
24. Set Part = swApp.ActiveDoc
    
25. CurCFGname = Part.GetConfigurationNames
    
26. CurCFGnameCount = Part.GetConfigurationCount
    
27. For i = 0 To CurCFGnameCount - 1
    / R& |5 t  g# A$ W6 P* x  R
28.     Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    
29.     Vnamearr = CusPropMgr.GetNames
    , v, V) _. C- ~5 k6 k% W
30.     If Not IsEmpty(Vnamearr) Then
    5 q  i4 W$ B9 @# |6 n
31.         For Each Vnamearr2 In Vnamearr
    
32.             bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
    7 r! z* n9 H& _% c7 ?/ A! I& Z/ Z3 z
33.         Next
    2 {$ p; P( h# ?* `: M1 e8 E
34.     End If
    
35. Next
    
36. Call 刪除自定義屬性
    
37. Call partitionTM
    
38. 
    
39. End Sub
      L. A: e% {! y- t
40. 
    
41. '~~~ 刪除自定義屬性 ~~~
    ) E( U/ G# D) u" ]3 p
42. Sub 刪除自定義屬性()
    8 w9 X4 K$ \% j+ k
43. 'Dim swApp As Object
    5 @; p; c, a% ~! _7 z5 L* l" t' I
44. Dim swModel2 As SldWorks.ModelDoc2
    
45. Dim vCustInfoNameArr2 As Variant
    & o& \# M* a4 e  T- E) R
46. 
    
47. Set swApp = Application.SldWorks
    
48. Set swModel2 = swApp.ActiveDoc
    
49. vCustInfoNameArr2 = swModel2.GetCustomInfoNames
    . a8 J3 \; n5 Y$ U# m" n" C: R
50.   If Not IsEmpty(vCustInfoNameArr2) Then
    ) i( L- g. U$ u5 k2 c* G
51.      For Each vCustInfoName2 In vCustInfoNameArr2
    
52.          bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
    
53.       Next
    0 _0 V. C' ?4 |+ V2 n8 D% k6 X8 ]% M
54.   End If
    + J' |9 ^, [, E5 e8 V5 L) S) u* S
55. End Sub
    
56. 
    0 ~- ~5 O" ?3 ]* C& _: B  F% v
57. '~~~ partitionTM ~~~
    
58. Sub partitionTM() 'partitionTM
    ) A; E3 {; X3 R4 S' x7 @
59. 
    8 k, R1 _0 o  F8 ~6 u
60. 'link solidworks
    
61. Set swApp = Application.SldWorks
    * j' K' H/ d( V0 q3 ]
62. Set Part = swApp.ActiveDoc
    ' _# t" D# D) i4 }# M( o8 l
63. Set SelMgr = Part.SelectionManager
    
64. swApp.ActiveDoc.ActiveView.FrameState = 1
    
65. '設(shè)定變量
    : u9 T4 ~! S3 O
66. c = swApp.ActiveDoc.GetTitle() '零件名
    ) d; }7 t6 \- k; W: }0 [0 b! G
67. strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
    
68. 'tempvalue = Part.CustomInfo2("", "材料")
    
69. blnretval = Part.DeleteCustomInfo2("", "代號(hào)")
    ) I/ ?: ?$ g+ P0 ~" x6 |; J
70. blnretval = Part.DeleteCustomInfo2("", "名稱")
    
71. blnretval = Part.DeleteCustomInfo2("", "材料")
    : e" }' K4 _! H, c/ }# D' E# r/ y
72. a = InStr(c, " ") - 1
    
73. If a > 0 Then
    
74.     k = Left(c, a)
    
75.     t = Left(LTrim(e), 3)
    
76.     If t = "GBT" Then
    ) x3 }! J7 |* P( k
77.         e = "GB/T" + Mid(k, 4)
    + D1 j$ B8 S  e8 \( |8 T" g7 w  t
78.     Else
    . a$ a0 p, D' v; G$ Y% E
79.         e = k
    
80.     End If
    
81.     b = Mid(c, a + 2)
    
82.     t = Right(c, 7)
    5 L: Q# z4 D" ]' \
83.     If t = ".SLDPRT" Or t = ".SLDASM" Then
    
84.         j = Len(b) - 7
    & o- v& V; {1 ~! k4 q. S
85.     Else
    5 J7 x6 k, }) Q& d3 I/ O6 N! t
86.         j = Len(b)
    
87.     End If
    
88.     m = Left(b, j)
    
89. End If
    
90. blnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)
    
91. blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)
    7 l- I' f- b5 p- H+ K' {
92. blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat)
    - z1 [: ?0 v) y
93. blnretval = Part.AddCustomInfo3("", "單重", swCustomInfoText, " ")
    
94. blnretval = Part.AddCustomInfo3("", "備註", swCustomInfoText, " ")
    8 ^5 ^; p# b; S6 f
95. 
      Q! t0 `. O0 m( h
96. End Sub

復(fù)制代碼

+ o4 A! b( o$ l/ I) {1 q  b# M

arter_2006

ryouss 發(fā)表于 2018-11-25 11:32
就是如下的繁體字改為簡(jiǎn)體字就是

6 [1 j! D0 {$ \! `$ j6 X8 C執(zhí)行后無反應(yīng),，屬性都沒改,，不知道問題出在哪里？讓您費(fèi)心了。
; V( Q. b" e$ ~' j% c0 c) L; o3 N
" L8 s- M8 K7 X" x5 V% L' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx8144\Macro1.swb - macro recorded on 11/22/18 by mqlu
0 C, {* x, [- h* F6 x1 J0 r' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
! m: e5 x8 Q4 Q0 U0 ~9 q3 eDim longstatus As Long, longwarnings As Long

Dim SelMgr As Object
$ O& d: r* \, V9 qDim Feature As Object
4 p! I: D: {( m- ?- sDim a As Integer
Dim b As String
Dim m As String
1 E" P+ y6 i0 P# K6 W+ i" UDim e As String
Dim k As String
6 S: ^$ |1 z) NDim t As String
  r6 k' I! h; |* d6 k) VDim c As String
Dim j As Integer
Dim strmat As String
" c& I/ S# F! {; l2 C* KDim tempvalue As String
2 @7 k) g9 U5 Q/ {
Sub main() '刪除所有配置屬性
6 n2 X2 X; V+ m, w: l; |Set swApp = Application.SldWorks
$ g1 e% ~7 e, q/ E# M, [Set Part = swApp.ActiveDoc
# [) K* o! E+ o' k" A2 T* `8 jCurCFGname = Part.GetConfigurationNames
CurCFGnameCount = Part.GetConfigurationCount
For i = 0 To CurCFGnameCount - 1
    Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    Vnamearr = CusPropMgr.GetNames
    If Not IsEmpty(Vnamearr) Then
# ^2 f4 j5 i) h6 `        For Each Vnamearr2 In Vnamearr
! ]% E  F, [0 k1 B            bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
        Next
    End If
Next
Call 刪除自定義屬性
Call partitionTM

End Sub

'~~~ 刪除自定義屬性 ~~~
* O4 y6 Y% X0 y. K$ R- y9 M' vSub 刪除自定義屬性()
5 X( h+ K  C( [4 u& @! ~'Dim swApp As Object
Dim swModel2 As SldWorks.ModelDoc2
8 I5 c5 C( p2 F: u( P/ UDim vCustInfoNameArr2 As Variant

3 W! g$ Q0 E! kSet swApp = Application.SldWorks
* j9 e  N* O  t" TSet swModel2 = swApp.ActiveDoc
vCustInfoNameArr2 = swModel2.GetCustomInfoNames
  k; h1 O. d9 D5 W7 g, g0 ]  If Not IsEmpty(vCustInfoNameArr2) Then
8 P5 y' b# j) d7 W     For Each vCustInfoName2 In vCustInfoNameArr2
/ ^  s* I! I& [% P5 o) T/ F         bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
      Next
  End If
End Sub
' r' {6 T$ h- ~5 {' s
/ `6 u& V) p" u! E( i2 h, o'~~~ partitionTM ~~~
Sub partitionTM() 'partitionTM

'link solidworks
3 }5 O, b9 e5 w4 fSet swApp = Application.SldWorks
! f1 U- B! U3 C$ q/ ^: l9 zSet Part = swApp.ActiveDoc
: S  u; E: C, G8 y7 ^7 X( iSet SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
3 ^; [0 N1 `% J4 d6 ~'設(shè)定變量
( I1 j2 g7 \% S& a$ y0 g( \c = swApp.ActiveDoc.GetTitle() '零件名
strmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
; Z  W4 g0 R& c* @'tempvalue = Part.CustomInfo2("", "材料")
& d$ t! Z1 H  p, a' Eblnretval = Part.DeleteCustomInfo2("", "代號(hào)")
blnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
8 H) }; ?6 S0 s* La = InStr(c, " ") - 1
; c8 [" z. e& [0 hIf a > 0 Then
    k = Left(c, a)
    t = Left(LTrim(e), 3)
    If t = "GBT" Then
: D" d& P/ d; g, x+ \* }4 }2 C( a3 E        e = "GB/T" + Mid(k, 4)
    Else
2 {& Q% ]: q8 P9 V. Q- z$ l        e = k
; L0 l) N% \' f9 X+ d  B; J/ n    End If
    b = Mid(c, a + 2)
    t = Right(c, 7)
5 }# y* a& n2 H    If t = ".SLDPRT" Or t = ".SLDASM" Then
        j = Len(b) - 7
    Else
& p% _: s' p: b. h8 p        j = Len(b)
3 A* f( m# p. W/ b    End If
/ Y2 P- d! d" `% \- C5 E    m = Left(b, j)
" l: ]8 `) P; A1 k5 bEnd If
blnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)
% ?- @$ }% ]& i! ]blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)
  b* _* L$ \5 H1 b& }/ fblnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat)
blnretval = Part.AddCustomInfo3("", "單重", swCustomInfoText, " ")
, Z& X8 G3 g4 [4 x1 b' B" Yblnretval = Part.AddCustomInfo3("", "備注", swCustomInfoText, " ")

8 N; Y' t; Y1 V; ^% WEnd Sub
: S( M" X! z/ g' M  N

ryouss

; ~9 w0 }% z+ S' r

arter_2006 發(fā)表于 2018-11-26 15:11
執(zhí)行后無反應(yīng)，屬性都沒改,，不知道問題出在哪里,？讓您費(fèi)心了。

; A8 J' ?1 o* g' ********************************** ...

, y/ A/ H  ~$ A9 S' m7 Usw2017 測(cè)試OK
有否顯示什麼錯(cuò)誤提示?
; J1 a% r# H" p5 `  @' j+ w9 Q

9 ^. f5 h1 l( U
% }2 k$ B. A8 v- i5 Y. g+ c) L

arter_2006

我的是Solidworks 2018，看來可能是版本的問題了

ryouss

arter_2006 發(fā)表于 2018-11-26 17:00
我的是Solidworks 2018,，看來可能是版本的問題了

! [' q# D. v6 j2 Q; B4 @, `2018 沒版本能試

arter_2006

ryouss 發(fā)表于 2018-11-26 17:05
2018 沒版本能試

非常感謝您,，讓您費(fèi)心了。

arter_2006

ryouss 發(fā)表于 2018-11-26 17:05
: [- s; K# w  @8 C2018 沒版本能試

能否把您的SWP文件發(fā)上來,，我剛才用solidworks 2014也試了一下,，發(fā)現(xiàn)也不行，但是別的宏都可以,。
$ b) U$ n3 y+ O+ m* Z. A# i我從網(wǎng)頁(yè)上復(fù)制下來的都變成下面這個(gè)樣子了,，所以要?jiǎng)h掉很多多出來的東西，我懷疑是不是這個(gè)原因?qū)е碌�,，但是校�?duì)很費(fèi)時(shí)間,，也難發(fā)現(xiàn)。

' ******************************************************************************3 \3 X) J3 n, I6 @4 |0 x
' C:\Users\admin\AppData\Local\Temp\swx8144\Macro1.swb - macro recorded on 11/22/18 by mqlu' a$ M. \3 S6 C, S! A1 C
' ******************************************************************************
: n% \( F) I, C+ j: _& m6 bDim swApp As Object
" f6 K/ [+ ^+ b* a; T* X; e7 R( b' e* i- B# F; m% [6 c9 t+ \0 }Dim Part As Object! t9 ?1 q2 c' K2 l9 ^4 X" G
Dim boolstatus As Boolean- I8 s/ Y$ i' W. N0 _
Dim longstatus As Long, longwarnings As Long
1 W8 u' q( \3 d4 Y/ K1 v" N; D
3 J( R9 \8 _3 m& \) d/ \Dim SelMgr As Object
: S& D4 E8 I: d4 K4 q9 f0 e& f5 HDim Feature As Object
7 s$ z: N6 b! v  l! SDim a As Integer
6 S7 E; g2 R& h* w2 ]  n% V1 e& P" q% F6 [5 U$ N  F7 l5 _1 iDim b As String/ a) E' o9 v7 y0 L) H; T4 a/ J& Z% M
. g& A3 g% I) r# M' A: _Dim m As String+ ?/ w( `) D: S9 x
  `. D5 [2 o# _3 l# tDim e As String" t" l1 k  K7 K8 U: @# s; `
% Q  b3 }4 p1 ?6 M* KDim k As String* ?4 t9 u7 n+ _
Dim t As String
% R* ?6 C5 B( @3 D& DDim c As String
! K3 d. @4 X+ d/ Q. _. p: yDim j As Integer3 N( z+ v  K2 q* v6 D
Dim strmat As String
" F! d7 t6 p- DDim tempvalue As String
& E& r" D5 F  G0 |% Q: b, Y
- o) ?$ `2 a( G& L5 x7 Q- B3 Z( ISub main() '刪除所有配置屬性
# B  g  P/ {: }# Z2 a; c8 H3 l/ z* n* R9 KSet swApp = Application.SldWorks9 g. p. p7 K6 u7 ?4 x4 W6 n
Set Part = swApp.ActiveDoc$ q6 |& ^2 b7 ~/ ]( ^0 R
CurCFGname = Part.GetConfigurationNames
! d% n" y$ A6 M) o  c5 s# L/ I- [5 v: x. U8 U( V* kCurCFGnameCount = Part.GetConfigurationCount
" c- O# J: c, c5 w7 Y0 T. @for i = 0 To CurCFGnameCount - 1& {$ V* E/ x+ ~. V
3 v4 q8 G+ C, m! m    Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
. G( J! L$ ?  c% B6 }    Vnamearr = CusPropMgr.GetNames4 B$ N4 Q* X) q- [; f8 r0 ^5 {
    If Not IsEmpty(Vnamearr) Then' t" n; u" h( T
        For Each Vnamearr2 In Vnamearr
7 L1 [, o; W6 X; n5 e# T- n8 t& |, B: B/ V9 S4 d, F7 Z            bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)+ h. {$ P6 Q5 M: i
# ~# N7 S9 s$ ^6 d& |        Next- P& E; Z$ s7 V+ a( t' E% T
    End If
5 B" E( O- l7 w/ T* j8 z) }/ ?$ A3 @6 S" n' d2 eNext
  k" k4 f; K$ vCall 刪除自定義屬性
( A- x) f" C" d8 G6 }) {# {' iCall partitionTM4 }2 o$ e' E7 t

/ h5 A" p  f8 V2 @8 q. ~" b  {% q" `4 h6 {End Sub
7 B  F* |  h4 d6 o6 ~% e; G6 r) ]# @' p
6 D( ?) A8 W- J6 F  E# H" D7 r# [' m2 U5 Z7 k9 B. O: ?'~~~ 刪除自定義屬性 ~~~
: Q6 `! G2 u. ]" |4 i. ?Sub 刪除自定義屬性()
1 v3 U4 z; p/ D" V3 C  ~  B# r$ |5 d2 b. o4 x5 W" n+ J'Dim swApp As Object2 Q# s7 O1 ~+ I" }
- p; e& M4 f/ Q' c* UDim swModel2 As SldWorks.ModelDoc2
! f' g# o6 S, e, W4 z+ EDim vCustInfoNameArr2 As Variant7 J* i  U% A! t0 \0 D! h, V

) s' |* l. \9 \! m/ I$ C1 n- C( [- K" x+ X- v- E% b! h6 i* p! ], |9 USet swApp = Application.SldWorks
4 S  i4 [' W6 ]0 I* U0 V' O' B+ NSet swModel2 = swApp.ActiveDoc3 u) Z+ D2 D4 z; M# d4 {
vCustInfoNameArr2 = swModel2.GetCustomInfoNames- N/ C9 m0 n2 t* k9 u
  If Not IsEmpty(vCustInfoNameArr2) Then
  z5 I' Y, t8 X7 Q+ H/ u3 z8 Y! V# Z5 s; g8 P9 J( v  m% Z     For Each vCustInfoName2 In vCustInfoNameArr2- \% O7 w% [: r; T3 |5 M
         bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
. ?" R/ r# I! y' x7 _' X      Next9 U+ R% V2 G# P
  End If
" k$ u  W2 Y! n1 V& V, L( M& Q4 l& b0 TEnd Sub
- n6 G$ z+ P) \4 B( w# P- T% l9 B6 M- K7 `: z' w) T+ c$ V; G
/ j9 |  ?( U5 a+ K'~~~ partitionTM ~~~7 O3 t. l4 R1 [+ ]3 K  G+ M
Sub partitionTM() 'partitionTM( j# ]! b. Q, G0 M9 E4 f8 B2 J
% l; E) x# ~4 [& t0 {8 [
'link solidworks( C, c- [# N+ Z* [
+ q/ t( q1 a* U" T7 ~2 ~. iSet swApp = Application.SldWorks+ w1 D3 {4 b7 ^# i5 p4 ~2 p
Set Part = swApp.ActiveDoc
0 i9 w8 T. v% B6 T; M( \) k" c8 Y, z+ b# A0 `9 OSet SelMgr = Part.SelectionManager% m# Z: n! Q: I/ M* d( j' c
swApp.ActiveDoc.ActiveView.FrameState = 1& ?6 I  _. Y+ \4 m7 P" c% W/ h
'設(shè)定變量& }. N& d* J$ W) S
c = swApp.ActiveDoc.GetTitle() '零件名
: Q% N4 h; I6 ^/ g. {8 L5 ~" z0 y# g! I" Estrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34). w+ f3 v( W- `* D! G! v. z
'tempvalue = Part.CustomInfo2("", "材料")
& U; y& P! d9 n  V  X0 H+ J1 Yblnretval = Part.DeleteCustomInfo2("", "代號(hào)")3 w1 A4 Q. Z1 \, x1 N/ e; R
blnretval = Part.DeleteCustomInfo2("", "名稱"). }" r" K0 E! E
blnretval = Part.DeleteCustomInfo2("", "材料")
+ U) d- F; R- ]4 V0 e- k2 J; Sa = InStr(c, " ") - 1
  M; E3 v: x* `0 S! h$ ]! r" a$ U" v0 S% D. r) K$ `' iIf a > 0 Then
0 D& _% k+ M" K3 ~    k = Left(c, a)0 D( T  G4 u* @' Z: h# g5 h) k
7 W8 e& l7 a- |# q    t = Left(LTrim(e), 3)0 |: d+ H% K1 I5 d; ^& r
    If t = "GBT" Then0 a: k4 H  }1 j) y
( R; Z" s5 H9 J# w& d; K+ i" ~        e = "GB/T" + Mid(k, 4)0 C& x4 F4 D' ], i* s8 T
    Else
6 s# k+ J$ z- @% G1 Z! W2 i7 C- b( f1 H* X4 B; P        e = k& O7 M7 ]$ E: v$ n5 ]  ?0 p$ z
    End If! C- h9 R! k; n% D6 G+ S; P
4 K* N& C# C: G- S. S    b = Mid(c, a + 2)
1 a, _" o% b/ ^0 j8 S  T    t = Right(c, 7)
( u. T& M& A  c* _: O( H6 S2 ?' U+ d5 X" f: a    If t = ".SLDPRT" Or t = ".SLDASM" Then
; h+ _$ G0 N. x! b9 b8 ]( m# n+ r. ]5 p& Q/ I! e        j = Len(b) - 7: f; _- _+ L% W8 E) q2 `; Z9 B' \
2 z0 k) g  V: j8 k/ o    Else& f9 y# D- W/ Y! i& w- H
        j = Len(b); J( ?# E, |  ?
    End If8 @/ x5 s, N; \. _& V# V
$ r) i$ E! `& Q( B. C* J! J9 V    m = Left(b, j)
& v- B% P; Q( i( n* b. P: e' A' P) l4 b& \End If( o3 u- a' n" g; c4 t2 s& ]
9 `% W" \0 x0 C/ w" H1 T& gblnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)
: F  K  N' M% L5 C4 Hblnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)7 a/ m( J8 q$ B) ^& B( M# Q' V
blnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat)
+ {2 Z: G! `6 w( J; }) z, u0 ^9 Z0 O2 e0 Q6 cblnretval = Part.AddCustomInfo3("", "單重", swCustomInfoText, " ")
  V; G2 e# V. L; H; {2 wblnretval = Part.AddCustomInfo3("", "備註", swCustomInfoText, " ")
1 N2 S, k, w* x  z: i2 D6 }7 z- @1 t: i# Q, P, {! f% c" J- {6 u; t
End Sub
% w: d/ w* r6 |; T

ryouss

arter_2006 發(fā)表于 2018-11-26 17:27
& K* M4 i  @  T4 Q能否把您的SWP文件發(fā)上來,，我剛才用solidworks 2014也試了一下,，發(fā)現(xiàn)也不行，但是別的宏都可以,。
2 q2 `/ P2 c) y3 j我從網(wǎng) ...

5 V1 N1 J5 i4 w( I6 r附swp繁體版   

ryouss

6 g" K4 i9 w4 B- \) s5 d
試試把   CurCFGname = swApp.GetConfigurationNames
6 r$ w6 W# T( S
改為      CurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
& ?( `, i1 |* W3 n* c: K0 R- R7 c
在沒補(bǔ)加 (swApp.ActiveDoc.GetPathName) 時(shí)在2012及2015版是會(huì)有提示錯(cuò)誤的(如附圖)
4 y+ K5 ~! ~, e% h$ v3 }另VBA編程在   " '  " 符號(hào)后的文字是會(huì)跳過不執(zhí)行的.
3 [2 `" X/ ~. G' y! e
) ?) O1 |" ?; d1 \

arter_2006

我試過了，改之前,，改之后一個(gè)樣,，而且執(zhí)行中沒有任何錯(cuò)誤提示。
' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx8144\Macro1.swb - macro recorded on 11/22/18 by mqlu
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
. _. F" k; ]5 q$ B( FDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
( t, m; F' ]7 E" v- d! d8 E
Dim SelMgr As Object
Dim Feature As Object
- p1 ?+ R9 j8 cDim a As Integer
/ Q$ \4 `9 X" @( j4 n. S/ e: `- jDim b As String
Dim m As String
Dim e As String
Dim k As String
$ K! z9 s$ W# y6 T9 BDim t As String
Dim c As String
6 ?6 J$ J9 G) K0 p" R, cDim j As Integer
2 l) Y/ P& {! B# T2 xDim strmat As String
. Q3 P  o, h+ M1 A6 MDim tempvalue As String

! M6 e7 f2 P* t: T% OSub main() '刪除所有配置屬性
Set swApp = Application.SldWorks
6 }! z7 }. N1 |+ v1 tSet Part = swApp.ActiveDoc
6 o4 {/ c2 i* v6 s$ y  XCurCFGname = swApp.GetConfigurationNames(swApp.ActiveDoc.GetPathName) '補(bǔ)加零件文件的路徑及名稱
CurCFGnameCount = Part.GetConfigurationCount
1 {; d0 q! a- n. y, u% f8 pFor i = 0 To CurCFGnameCount - 1
5 s% `9 l* e9 V; p    Set CusPropMgr = Part.Extension.CustomPropertyManager(CurCFGname(i))
    Vnamearr = CusPropMgr.GetNames
' M) `: M) Y; F; {; X$ t    If Not IsEmpty(Vnamearr) Then
        For Each Vnamearr2 In Vnamearr
5 m( v. t* S. [$ ]) N* h! v( l            bRet = Part.DeleteCustomInfo2(CurCFGname(i), Vnamearr2)
        Next
& k6 k( G1 i) r, y    End If
Next
Call 刪除自定義屬性
Call partitionTM
) r: c, Q' P0 x- N
End Sub
# q9 ?" e1 T' M
'~~~ 刪除自定義屬性 ~~~
. i. z5 w  ^: F& JSub 刪除自定義屬性()
'Dim swApp As Object
Dim swModel2 As SldWorks.ModelDoc2
$ R$ H' ?' s9 @& _Dim vCustInfoNameArr2 As Variant
$ [- p5 ~! l" g3 X* N
9 P% K$ P$ c3 A9 |, g  k9 USet swApp = Application.SldWorks
- S0 ?: A: ^# S( F) G, }Set swModel2 = swApp.ActiveDoc
6 u: j% C9 @) U; c! RvCustInfoNameArr2 = swModel2.GetCustomInfoNames
8 v9 d& M5 ~0 z- m* G  If Not IsEmpty(vCustInfoNameArr2) Then
     For Each vCustInfoName2 In vCustInfoNameArr2
         bRet = swModel2.DeleteCustomInfo(vCustInfoName2)
" C3 G. K- O0 Z$ y( T$ E4 V8 b! s! {      Next
  End If
End Sub

'~~~ partitionTM ~~~
Sub partitionTM() 'partitionTM

: h2 `( w# v. }$ a' L* G'link solidworks
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
: ^8 ~5 d9 W3 q% e0 \# ]Set SelMgr = Part.SelectionManager
! c; e6 q9 a; Q2 t& wswApp.ActiveDoc.ActiveView.FrameState = 1
+ }- t9 b! |& m! n'設(shè)定變量
c = swApp.ActiveDoc.GetTitle() '零件名
* Z# v! {; T( Q9 Fstrmat = Chr(34) + Trim("SW-Material" + "@") + c + Chr(34)
* b! C- C7 p1 B) |5 ~'tempvalue = Part.CustomInfo2("", "材料")
5 w! r! d& C6 C2 u( iblnretval = Part.DeleteCustomInfo2("", "代號(hào)")
9 K' R% b1 u9 `  B; J) T/ r0 Ublnretval = Part.DeleteCustomInfo2("", "名稱")
blnretval = Part.DeleteCustomInfo2("", "材料")
4 O% [; Z) {* t' a5 g6 ?8 t

a = InStr(c, " ") - 1
1 `) S" j* v+ _  e! c6 O* PIf a > 0 Then
    k = Left(c, a)
2 l# ]* o) ~! l" M; A* K) g    t = Left(LTrim(e), 3)
7 K4 I, ~& F) P8 e0 ^; _' k
    If t = "GBT" Then
! Z3 I9 A; {" J7 r/ V4 Y/ f& @        e = "GB/T" + Mid(k, 4)
, n& E; \& Y7 r5 L    Else
        e = k
# E- P  T5 Q3 m, _- h9 L    End If
9 R5 h) a/ C# }. ^7 d
9 t! ]6 @/ k4 [; R, j% d3 B2 _    b = Mid(c, a + 2)
    t = Right(c, 7)
' p& k3 @8 c  Z# g% ^! o2 [! G1 ^    If t = ".SLDPRT" Or t = ".SLDASM" Then
" ~+ v( o' y; w        j = Len(b) - 7
1 n) m0 {+ h3 }3 m2 D0 x; J    Else
        j = Len(b)
    End If
' G$ c3 v( b; v+ C/ d, P, @, f    m = Left(b, j)
8 d2 E; `: ~  [& g( `End If
5 T) t0 e6 G% }) Y% i& U$ k
blnretval = Part.AddCustomInfo3("", "代號(hào)", swCustomInfoText, e)
( x, P: o3 Y2 ^+ v: D4 }blnretval = Part.AddCustomInfo3("", "名稱", swCustomInfoText, m)
5 H$ o; o9 m2 sblnretval = Part.AddCustomInfo3("", "材料", swCustomInfoText, strmat)
) O- {$ |! ~& [4 A4 r" Rblnretval = Part.AddCustomInfo3("", "單重", swCustomInfoText, " ")
3 }* D1 f3 k, R! W" M# Qblnretval = Part.AddCustomInfo3("", "備注", swCustomInfoText, " ")
+ b) J% g. l# `+ ^* G1 r! G
End Sub