solidworks 2018 宏 有时不能用的问题

arter

在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：
. o6 C; `. [, z
% p: I3 B4 G3 \  k* [& w' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
: ]" A6 d! U/ V) c  T& r' ******************************************************************************
0 X4 o! e. X, [/ [+ h' HDim swApp As Object

; _, ~: ?0 N% H+ vDim Part As Object
) L. `8 R- o7 H0 x+ nDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
/ V5 B, e4 r8 ]  ?7 m+ D  l8 }
Sub main()

0 b) k' Z8 f3 z# u3 E9 h+ TSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
. z3 g2 Y& q: _. {+ fboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
# t- g+ V( R( P& tPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
) t5 G4 a: f# q% kPart.ClearSelection2 True
End Sub
8 {1 i4 n7 M5 W5 p8 q' m* {

, C& d% l- x7 @. U5 C6 R

arter

我发现问题所在了

Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
% m( Z7 i4 S& Z% B* c, Z' F6 x
5 h' B& R- k0 u/ j4 E! ^. ~上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.

比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:
# v( O$ {+ i: ]7 Z0 B9 y. C3 Q
" q6 l; V7 \1 H; [( fSub main()

% d* s, O( }1 R5 \Set swApp = Application.SldWorks
5 E. n2 X6 _. s3 U
Set Part = swApp.ActiveDoc
" [" ~& X$ P5 x( T  Fboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
3 f4 t4 }2 e9 g1 z" y& \% [3 MPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
! m: y& c$ k$ H5 y! F6 j" NPart.ClearSelection2 True
. `$ {3 |  L" E4 l3 vEnd Sub
  S( B$ b- a7 G4 |2 u
如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
各位大侠，有无解决办法？谢谢。

1 l" I# C6 C. N, I, `

fklmn

Dim ConfigName As String
' C; ~' j/ P1 x/ n- Z- ?# _    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
: a3 L# ], c  e
/ X$ F0 |" K: @  w7 O, {% v
/ h5 l- ]% f) ?/ {7 S; e

arter

fklmn 发表于 2018-11-16 16:28
/ ?7 q$ V& t+ F4 H5 WDim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢

' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
( ~2 a1 Q2 d1 E: V! O6 W0 z. f/ @' ******************************************************************************
8 k; \  a, S3 E$ bDim swApp As Object

7 c& Q- t/ T6 P$ T1 t! v) n& qDim Part As Object
) [$ g/ S0 F: [5 w! p' _4 rDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
# ?$ m* D) C' Z' A3 @( W7 |Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

) V4 T8 X. y- z! o: ]& G' `Sub main()

Set swApp = Application.SldWorks
! V. P) l" C* E, I7 ?
! o* n3 N, Q! R. X1 @% w% aSet Part = swApp.ActiveDoc
% r8 {& n7 ?3 l3 c6 Wboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
2 x/ W5 X- r( i1 Z9 W) nPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
$ y7 n, n7 s* y% [" mPart.ClearSelection2 True
End Sub

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
6 b) L+ [+ k( [& H$ N这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。
- g# Y" n5 t* p$ @0 J  V
Dim swApp As Object
6 i) a# ?) G3 Z9 B8 M  L) p
Dim Part As Object
' V) F4 P* y, E# k. u9 Q% [; ~# aDim boolstatus As Boolean
  {* c7 e* T4 n) d/ W2 {+ s7 A5 XDim longstatus As Long, longwarnings As Long
& B, f' g" w2 x. U! w( H/ `+ F, B7 bDim ConfigName As String

Sub main()
Set swApp = Application.SldWorks
0 B0 Q" ?  ^1 i, u0 |: S' PSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
7 q  h+ Y4 X: Y& A) f7 m2 ]/ zConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
$ p3 T0 B- G2 ~0 t" IPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
Part.ClearSelection2 True
( b+ Z- S; Y0 k' `, BEnd Sub
1 @$ G. _3 [6 _$ x- N6 X
你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
3 A1 Z4 G+ R# O% QConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
& ]; [7 R) J! A' E0 b2 m* R3 G这一句怎么可能放在sub main()前面 ...

$ a% `9 P: Y  P% K3 u; D* `非常感谢您的指点，已经好了