solidworks 2018 宏 有时不能用的问题

arter

在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：
; v  z* Y+ Z4 l' y6 |  t
' ******************************************************************************
8 [4 D4 O* Y) e/ r$ z- {# R' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
2 h2 f' O9 {" _- @' ******************************************************************************
* x' K8 s' z& y/ e1 wDim swApp As Object
( B/ {! d: M: i! w; D0 x" p
4 z, t. W5 \% ]! C, o  W' vDim Part As Object
Dim boolstatus As Boolean
# i( F" i4 F" @$ x% A) TDim longstatus As Long, longwarnings As Long

Sub main()
# l) ^1 i- F7 w4 `( \& j
Set swApp = Application.SldWorks
' W7 K* ~6 @0 ~
: J5 y0 V4 i. @# vSet Part = swApp.ActiveDoc
+ K. X4 a% j% Tboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
5 f6 S; w" ~: m) bEnd Sub
+ g6 `& w  J; l) V  U; r


; k) h# V. x# m+ n

arter

我发现问题所在了
6 B9 K: j% n6 l: k% M
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
3 Z3 C& @* L1 h" N/ L& S. |
上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
1 r6 H7 z0 i2 S如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
/ Y1 c2 g# S+ V8 d2 x
比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:

' m3 o8 t% f, D: [Sub main()
) k5 q( j7 U! k6 W! @2 G
Set swApp = Application.SldWorks

  [$ O0 T2 \0 C9 }1 S( Y9 J: hSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
2 p) z/ \2 u! c, h" KPart.ClearSelection2 True
: K5 ~2 P/ f5 Z! ^5 B/ l) q# \Part.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
; }: S7 F0 Q+ r- dPart.ClearSelection2 True
. A6 \! a; c3 ~" G$ s) L: zPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
6 u# {, `' |' r1 J8 wPart.ClearSelection2 True
0 q% s# Y1 c6 B5 x( h% \7 e. AEnd Sub
, J" s& o$ ~1 F; j+ k
/ {' u8 F+ u/ Z* b+ k如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
4 R7 M! ^& g0 A+ a% F+ p) V+ ^各位大侠，有无解决办法？谢谢。


: Z) {3 _* J  S' V, {4 B( i

fklmn

Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
. H( A! Q* V3 O" \5 B: M8 j! {

" Q, @1 M, F+ K5 h8 p" b! C" C) N

arter

fklmn 发表于 2018-11-16 16:28
' P) K3 c9 c8 x6 W: HDim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

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

' ******************************************************************************
  T: |- |* e  N- T' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
! _% e' ^; ~  R: R# u, B; U' ******************************************************************************
/ w8 D) `+ `9 h8 `' HDim swApp As Object
0 M1 S6 u1 c; F/ o2 q5 K
Dim Part As Object
% Z! v# V  J, C7 LDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim ConfigName As String
; }3 h' q- G' e) A    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

Sub main()

2 i, A" A) `" c3 f0 r$ R# pSet swApp = Application.SldWorks

/ Q9 v& F3 [/ nSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
4 P  @$ |. `$ h  c" QPart.ClearSelection2 True
& a% m7 W5 D2 y) d0 l( {Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
5 I4 r$ n3 O4 t  Q$ yPart.ClearSelection2 True
8 n, t) [1 g% O0 c# AEnd Sub

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
  [6 d" l/ L: f这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。
1 Y: X2 G" H* R
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim ConfigName As String

Sub main()
. O4 n3 ?- h' x+ J6 BSet swApp = Application.SldWorks
( I( f* l3 _/ F- kSet Part = swApp.ActiveDoc
6 E. a: V8 O6 d7 U' i4 aboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
& q# p' B/ R: y: m& y1 P, |+ LPart.ClearSelection2 True
ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
" W3 X  R; p0 e0 E1 _7 h3 JPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
/ Z# N3 d/ q: i+ c6 uPart.ClearSelection2 True
End Sub
+ n% a3 W: R2 y1 p, i  f: F' ^
. E) A% T' b' i+ q& T2 d2 g. Z你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
  r! t7 R% ?$ J) yConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
这一句怎么可能放在sub main()前面 ...

非常感谢您的指点，已经好了