solidworks 2018 宏 有时不能用的问题

arter

: w$ U( ]* P2 K9 R
在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：
5 d2 G  a: j$ Z3 ~: W
& ^+ C: g% c3 k( {8 Y+ j! T9 q: L' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
: ~$ g6 l9 z$ \; D! j+ r+ d' ******************************************************************************
( m. s: q; I* ADim swApp As Object

% e! y8 M, f. |7 d" E$ vDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

9 O# ~+ b! l1 t- S* l3 MSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
! @: E+ C- I& A& ?7 W' N5 }& `Part.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
End Sub

/ L* T( _- X. E2 l+ q; C

arter

我发现问题所在了

Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
- ~# O- h; ]8 c2 K  G
* y. I% s1 t( A+ @( T上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
) m1 O; m: S$ y5 H
3 U  t# g7 W8 w比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:

; q0 l3 t4 m. A- Z$ eSub main()
+ O1 t3 Q- U! j! U" G  ^+ o. T
0 J; [) z! }8 @/ p" ~+ W+ `0 vSet swApp = Application.SldWorks
+ M0 ^: h/ u5 V
Set Part = swApp.ActiveDoc
8 c4 H9 n5 s5 Lboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
; h3 J4 R9 H! \1 O% f% k! V7 EPart.ClearSelection2 True
5 _# D3 j1 r6 CPart.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
; ]" b( a  V+ l' n6 |! ]Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
7 M3 P7 X5 ]6 p; n: P; `Part.ClearSelection2 True
End Sub

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

) d. H  V  L) @6 ^2 Q
% y$ f' ^3 d$ t

fklmn

Dim ConfigName As String
  u* F1 q9 M8 k: o    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

arter

fklmn 发表于 2018-11-16 16:28
Dim ConfigName As String
6 q! A6 h0 b, ^2 u" t    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢
; h& a4 Q5 J9 i* [) f
' ******************************************************************************
: r' s" w+ g7 {' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
' M0 s' ]  c1 `$ m/ c; T4 h' ******************************************************************************
Dim swApp As Object
2 _1 I+ z, [1 T5 i
1 B9 k& p# o* iDim Part As Object
0 e+ U- O5 w. G# UDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
. K& Y9 R  b  S4 N5 ADim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

8 P5 C1 {$ m, ~# m9 Q9 t" }3 USub main()

Set swApp = Application.SldWorks
1 b! V6 R* O2 E) K
Set Part = swApp.ActiveDoc
2 P+ a, D" L) Y5 d- S: Oboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
" Q5 F& y) I% p3 LPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
; k3 Q1 e$ V  O; B. {( O5 _0 q* g, TPart.ClearSelection2 True
End Sub
8 M6 ?: W5 S/ d

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
2 B# B: q6 K' W4 T1 W$ O3 L这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。
- j( E5 n& `9 a$ P# y& G
Dim swApp As Object

0 J  s, m+ V! K: BDim Part As Object
* J/ X! K% q: c) {! U3 l0 IDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
7 r$ y( w7 K9 \; u* |Dim ConfigName As String
# A  G* z  e) f- F" p
Sub main()
Set swApp = Application.SldWorks
( G8 J; N( ?; ]/ o# l7 ySet Part = swApp.ActiveDoc
! Q  P! s& P9 B. M5 R& k# ^: bboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
, {, w. D! @9 H! Q( uPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
# J* H0 F5 N/ l2 O  APart.ClearSelection2 True
End Sub
& i% ~+ t' H$ n
! \/ z  A. P5 A! c你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
" u; O0 v# p& I* Y$ rConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
这一句怎么可能放在sub main()前面 ...

1 V; t$ c1 |, a- e. Z, W; w; H非常感谢您的指点，已经好了