solidworks 2018 宏 有时不能用的问题

arter

: A) }; S9 U: l+ {
在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：

: P# L$ X! g( \% R9 o: d' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
1 C  U6 ]3 Y% S, \# H' ******************************************************************************
Dim swApp As Object

Dim Part As Object
8 s+ @- E. Q' FDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
" ]: g$ O4 s# ]
' n+ g+ O% J3 PSub main()

Set swApp = Application.SldWorks
# H# D8 ?% f& j
1 K& l- h, X1 s7 g. m  USet 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", "304"
Part.ClearSelection2 True
) w1 i, c0 M' q6 {4 |7 v( U; E' gEnd Sub

" R$ R0 x: w9 J; `6 i3 P. X
9 X% t7 p7 x( ~9 T8 R9 a- Q

arter

我发现问题所在了

; F9 Z7 {7 _. b/ kPart.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"

上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
8 m  |6 T+ X0 Y" i* c0 y
比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:

2 r; g( Z3 r9 }8 m1 u5 ], bSub main()

$ Z2 Y) d# m5 ^! |+ oSet swApp = Application.SldWorks
# _' [) h9 ~4 w5 ^, @+ \  x
4 O; u$ I: b. T) d2 N) H8 ZSet Part = swApp.ActiveDoc
4 G4 n! k  R7 rboolstatus = 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
- ?( N$ k2 o( PPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
) p8 o  d9 a- `- \6 B& Z' TPart.ClearSelection2 True
! i, p' e$ x0 p: S. U! CEnd Sub

如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
/ Q/ W' u) ^2 N1 J! v9 W各位大侠，有无解决办法？谢谢。
" I" q. i6 @1 c* d  m6 z+ Z

fklmn

Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
* P4 R; r5 `- q( l, Y/ M, P2 J

arter

fklmn 发表于 2018-11-16 16:28
% w% p' i3 H1 L$ YDim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢
4 g$ e0 M6 u6 X% B) O
' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
* f0 f6 S9 t; H4 L' ******************************************************************************
Dim swApp As Object

, n2 a1 K+ y3 U! ?Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim ConfigName As String
9 M8 K# c1 o$ B# _$ m    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

$ ]9 c: M5 c5 ]( {Sub main()

Set swApp = Application.SldWorks
% ?  E' S" \# i- x# T- |! T' P
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
& z+ X3 N4 Q1 p. _2 e! C, GPart.ClearSelection2 True
5 n. {4 b1 O5 Q( UPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
Part.ClearSelection2 True
End Sub

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
6 L- q* ^$ ]+ V- z1 U8 d! P1 A* _这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。

: v3 C" D; q7 n2 j! |* V4 S. NDim swApp As Object
% `- e  F! x/ ]! U4 u1 ~0 {* a
: N9 p6 V3 C  p8 C5 eDim Part As Object
( E8 ]5 y* E0 s" L# i, h% IDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
' i* o% j6 J0 s* ^* ~- R; E% i' ]Dim ConfigName As String
$ ]$ Y( h8 E) q. d' e
- l( |" P) `3 P2 P, W/ D. YSub main()
1 ]% A! Y" D8 H& _5 E8 m# wSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
2 R- S; m1 t. ]. B7 `( }2 z, f! MPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
, m" c0 X+ b$ T. b, w1 b, LPart.ClearSelection2 True
End Sub

你试试这样改行不行？

arter

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

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