solidworks 2018 宏 有时不能用的问题

arter

1 {& K: U4 N0 V( p) Y' b3 V
在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：
0 t/ u* `6 a4 i! P- W1 c# P' v6 v
' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
+ M+ O' l6 ?& e' N  l' ******************************************************************************
/ Q0 H% K6 e" A& }Dim swApp As Object

Dim Part As Object
4 W: m- t# s% j  ~+ F, b  K$ k- O) dDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
. y2 M9 O, h! a7 U- b
Sub main()

; x( H- P# P; [; @$ F  fSet swApp = Application.SldWorks

6 N8 H9 ^6 K. B3 Q8 y  BSet Part = swApp.ActiveDoc
: s: ^( d+ \0 ~! Sboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
% }' B: Y2 I7 a# }+ _6 mPart.ClearSelection2 True
& w7 L* u1 e% Y- j0 T& wPart.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
4 Q0 p! d- @) H' D" R# v- b: jPart.ClearSelection2 True
End Sub
; @# J+ [) O2 g7 V$ b) `

arter

我发现问题所在了
5 k1 N( @9 p0 _  e
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
) \+ }9 F, u- [/ q% l: O& ?; x
& m* l3 B8 S( Z" E# I5 E上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
6 R4 @& P; o9 }5 a% e# L/ U如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
5 T3 [# A: f6 ^; i
比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:

& f# c+ {  G8 nSub main()
# F. _/ x. J$ P
8 l! E( y1 Z1 [Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
5 u) q% ~$ s* f' @boolstatus = 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
$ q4 K6 \3 Q* v) q4 F" s/ jPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
; @2 Q5 b" ]8 N5 w7 y. vPart.ClearSelection2 True
End Sub
6 u$ @+ m8 E! K! i; z& R0 Q
4 g- F+ [% |1 @: n7 m" j( q& h如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
, K" [$ U: n% ?) J各位大侠，有无解决办法？谢谢。


- c' ]& i+ T$ P# x, _

fklmn

Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
% h, T: N. `; G9 ~/ i
1 j8 ]" v; s8 c

8 L+ t6 O& W7 O9 U4 Z

arter

fklmn 发表于 2018-11-16 16:28
; F) w$ P6 v7 u+ P, e3 b, Z0 H" YDim ConfigName As String
% Y: B* u$ C8 U$ T    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

% k: L  w2 h7 _+ A5 T5 T感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢

' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
7 _# f' k  t& k5 Z% t& G9 l' ******************************************************************************
Dim swApp As Object

Dim Part As Object
9 Z7 |, s' g5 @. q  s# }# X) yDim boolstatus As Boolean
6 |$ Y2 K. n! Y4 h* p( QDim longstatus As Long, longwarnings As Long
Dim ConfigName As String
! Q6 w: _! J+ Y5 Y* s1 W* l    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
" R, g1 ]0 ?2 Q8 t
Sub main()

+ m# M" m/ O1 g- E  u5 t! eSet swApp = Application.SldWorks
: z  H: Z3 T' ^" x0 b$ x
Set Part = swApp.ActiveDoc
/ W2 Q3 ]& ]. h, e- w' E1 lboolstatus = 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"
Part.ClearSelection2 True
End Sub
1 D! K0 U* ^0 }- B

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。

+ s, o$ k0 V  B! q/ ?3 }8 UDim swApp As Object

Dim Part As Object
) S. I& E" d6 o' q& zDim boolstatus As Boolean
' F  X0 x7 L# F, K  H8 fDim longstatus As Long, longwarnings As Long
. {9 U! s. K% c0 f! hDim ConfigName As String
; Y- T) {  o( K5 h' H
! K9 j1 G0 J  q) W# K4 G7 l$ |/ oSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
" z& G4 S3 F8 Cboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
. S4 m7 l* p* w3 k; JConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
" x( M! o7 Y' a4 A2 U) H% EPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
Part.ClearSelection2 True
1 ~3 `  ^8 b( ]. L# Q/ a& _, f9 YEnd Sub
; f4 R( k7 R+ N- r- B. y, W
# t7 ]1 P* r* B# h# c你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
' P0 d  X( s6 S" z# d0 y( l4 DConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
) b$ G; p9 B; ?9 o) }8 l1 f) {! u这一句怎么可能放在sub main()前面 ...

: }1 F; F% Y- E# K5 C& v% c8 X非常感谢您的指点，已经好了