solidworks 2018 宏 有时不能用的问题

arter

; y! d7 h3 l- M$ T在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：

# W5 Z3 f7 F( Q; k' O' ?' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
) X! @! F6 w5 W# G  S7 j/ V' ******************************************************************************
7 y/ j# f! a; e( tDim swApp As Object
- Y( O  v5 z* w" p0 e4 W9 b4 j
+ l4 g4 z- t; F  w  `Dim Part As Object
" N1 ^7 @9 N- H+ IDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

4 a; e0 N# k4 hSet Part = swApp.ActiveDoc
' v5 h# T6 N' |  h3 i6 Eboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
0 X+ J: J2 S/ ]3 s& Q, xPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
/ V4 _0 {8 a; x  W& i1 V* CPart.ClearSelection2 True
End Sub
& F/ a. _$ u2 M! H2 |+ e
( X: O( B" P& @1 d
: N. v! g# q6 p3 Y, R
" e3 u( L# a8 @' I" k( k

arter

我发现问题所在了
$ q0 f: \* b  ?5 }, d% Q* z, J3 i
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
- \5 A  [( d4 _$ E* v# J* n
上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
5 O  K  u0 A* s3 D( C" D4 o8 w1 {% i如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
8 u- u7 m8 u* b# n. {
/ w' \, y1 ^  j: X0 a比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:
$ t% b. C6 h; h5 v% g/ G* t2 M' o
Sub main()

Set swApp = Application.SldWorks
7 G4 }* L' `) D- S; T- r
Set Part = swApp.ActiveDoc
( I- @% e) y8 X- F  wboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
* X" U: @& B$ K' ?3 d- y8 E3 Q# FPart.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
& Q% q8 I. q7 F& f/ A) ZPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
End Sub

如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
各位大侠，有无解决办法？谢谢。


2 N. @, E& ?0 L  ?6 v

fklmn

Dim ConfigName As String
; T  j- J1 n& r* Q    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
" F) c" r3 f. ]& h0 b
, {+ T' N+ H# D/ B
* X9 c+ w6 Q- t6 f
! Q8 i1 j. d  p( V: x

arter

fklmn 发表于 2018-11-16 16:28
Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

" c8 b! C: W7 Z" u感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢

' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
2 b! P* |  M' U6 y: S, u, ~' ******************************************************************************
: S. y- F, U/ B& n8 p# A0 NDim swApp As Object
2 P, I/ C( P; ~1 K# s
Dim Part As Object
5 p; S% O2 m7 K, n! _Dim boolstatus As Boolean
1 D/ Q% u' x) y( H! |Dim longstatus As Long, longwarnings As Long
& X9 G. W, h0 lDim ConfigName As String
0 @9 c4 K! I$ ]1 d" w1 b    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

/ e5 }; R/ @% F1 \Sub main()

$ T! @. P" _" j7 G. J) O8 FSet swApp = Application.SldWorks
0 V4 [4 m9 y3 E) A, V" ]- N" |$ U
Set Part = swApp.ActiveDoc
) u; O4 t  }' K6 U4 S- nboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
( `- {. h: @4 A+ ~( F  w9 zPart.ClearSelection2 True
- Y: H- j- T/ e# A+ j4 f) B/ e' mPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
Part.ClearSelection2 True
8 i" o4 F; o" S4 i! i) LEnd Sub

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
( |' k- [3 k; o6 G% d' [这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。
0 G' J7 y0 M9 _
; Z/ v8 o* ?. I0 r: QDim swApp As Object
% S) j: u& a  ^9 P. c
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim ConfigName As String

5 B* W8 K7 w: R/ k5 q5 |  ~$ ~Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
5 k8 d" X8 N% g$ G: o5 ^4 L  ]9 Gboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
. O" R4 r7 Z* I& m% f5 T0 o$ fPart.ClearSelection2 True
ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
9 V# Q% _0 T$ a) yPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
Part.ClearSelection2 True
4 @7 B; \8 }6 vEnd Sub
1 U' x- j9 [& e# a! P( M
你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
这一句怎么可能放在sub main()前面 ...

2 k/ N$ q3 K- a" B9 W  m非常感谢您的指点，已经好了