solidworks 2018 宏 有时不能用的问题

arter

. z$ Q6 `) `! p! t# i% M$ i
& h' @4 [9 N" a/ Y  Z1 V; |" @在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：

' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
' ******************************************************************************
, g4 L5 z5 v2 p2 t6 u$ TDim swApp As Object
2 k; C6 `: y9 x
5 s- X6 @, c5 NDim Part As Object
Dim boolstatus As Boolean
5 n- f4 }2 s/ \0 ZDim longstatus As Long, longwarnings As Long
/ |1 ?5 ^7 N0 U* y) M1 ?: h
- |3 c# l  \+ G2 iSub main()
  |/ Y" U9 p8 R6 X; U+ [. x' H( R
0 N7 n, ]# u) b. ?- y$ PSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
  \$ M4 b2 t2 l0 Q" p: |* e( |5 o# Iboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
, X) Y" I8 v& m1 tPart.ClearSelection2 True
2 N+ \  v1 I9 e, T! ^Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
* A) S% x6 x8 ^; d: ~" t5 ^9 q4 h0 v" gPart.ClearSelection2 True
6 F+ z9 r; T# ]& E: x. q5 @3 LEnd Sub
. {. F2 j6 \5 O# J' p; _7 w' D
: [- P" A! S: w# ?* h; U3 z: n( V
  F, e. x7 n: \" z) x' V6 u

arter

我发现问题所在了

9 \0 k' }7 l; `0 SPart.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"

0 q; C/ {! c3 Q3 z6 u7 q上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
5 y% H+ q% D* t! x如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.

, u7 T$ Q8 c2 f& S7 t) [, p比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:
7 u5 r- D4 }1 H4 [3 p; z
- u7 G, U8 t  a) vSub main()
+ b4 Y& H1 ?$ D* i' t
* b3 Z5 Y9 F$ FSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
& p- t2 e& G$ W7 ^/ zboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
. Y- t& x2 _; @: c; F+ ^' O* zPart.ClearSelection2 True
) b3 I2 x( |# R3 uPart.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
% l* b- j2 }8 h2 F1 g' ?; y: F- jPart.ClearSelection2 True
+ ?( l7 _; q6 [" E5 H% e* APart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
End Sub

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


: `" z  l& `4 u; s( a

fklmn

Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
( @: B% n6 `- o( L1 Y

arter

fklmn 发表于 2018-11-16 16:28
4 c/ O+ p9 v+ |" Q9 }Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢
" a" \7 m9 u, y# K
' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
4 Q. x  K9 p# x' ******************************************************************************
9 u% ~9 Q/ C$ \; g5 S6 oDim swApp As Object

Dim Part As Object
- W/ n2 f/ N: @/ y5 [3 M( ?( E3 r3 YDim boolstatus As Boolean
; ?! q" D: B" D5 `. gDim longstatus As Long, longwarnings As Long
  B; {. p* ]  }4 ?# J. iDim ConfigName As String
, n4 B  i: R* D. G" U    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

* H! L9 a1 g; HSub main()

  f) ]/ y( q3 CSet swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = 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", "201"
5 G" ^9 T9 s& _% P/ ePart.ClearSelection2 True
4 I* k  B+ B7 {End Sub
+ V& I; G9 c( ?

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
+ r7 p- r% W% E: t0 }" U# i这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。

" g3 t5 l. `1 T- r( x4 }Dim swApp As Object
* ?" x. t% \& e+ g0 f: j2 p3 m
Dim Part As Object
Dim boolstatus As Boolean
) c2 H0 b4 c# y# A3 g' |! u% W" JDim longstatus As Long, longwarnings As Long
8 Y" C' m6 I  ]  x/ y0 w6 o8 uDim ConfigName As String

Sub main()
Set swApp = Application.SldWorks
4 L7 M* w6 K6 R* l( Q6 ESet Part = swApp.ActiveDoc
% \" i$ [/ Z$ Bboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
; o3 ^- C% }# ^3 A$ {$ TPart.ClearSelection2 True
. x. ?' N6 G- }ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
Part.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
Part.ClearSelection2 True
4 n4 @/ L( \! _0 V- S; sEnd Sub

1 j9 @3 k( X' C9 r% U你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
2 k% J1 U3 ^+ K* }ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
' S- W9 T0 V: b+ I0 p这一句怎么可能放在sub main()前面 ...

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