solidworks 2018 宏 有时不能用的问题

arter

: ]3 ^# `6 ^% N  e
7 ]5 z2 Z! G) k: K+ C在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：

' ******************************************************************************
$ Y% K' T- j$ O) N4 ]' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
' ******************************************************************************
; o9 B4 @, F8 H( c' I2 _7 [Dim swApp As Object
4 n/ j6 V; K- c1 B" o) f' F' _: D
Dim Part As Object
& e8 X0 \' s0 M1 X( M3 zDim boolstatus As Boolean
0 I0 z4 c% _, F" E0 U6 pDim longstatus As Long, longwarnings As Long

Sub main()

9 S: l) Q+ Y6 G4 {Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
! x+ ~! Y( \8 X7 iboolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
6 ]4 b+ Q2 {2 G! UPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
: G4 ]/ o% M. I. [Part.ClearSelection2 True
4 L; j6 m, Q6 O8 mEnd Sub


$ \  N5 c4 x% P- J) N7 t; N

arter

我发现问题所在了
: ^# u* b  T) ]3 _( @( ^/ C. f5 c
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"

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

比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:
: D; V2 P4 o) V2 x
' |, m2 J" n& [) T9 @Sub main()

Set swApp = Application.SldWorks
# O# P7 D. q) R( p: Q7 ?+ b! R
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
- _: M: C/ U/ K7 }0 GPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
( j, c" _3 a. B8 _3 M4 PPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
* K. V- @# V. b, Q! iPart.ClearSelection2 True
End Sub

3 y& q" j: a  U5 `. n, v4 `9 }# L如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
7 B! t# f1 \; N3 ~  |1 [各位大侠，有无解决办法？谢谢。

fklmn

Dim ConfigName As String
  g7 D6 J; M$ [% ~( X6 b- B    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
" A8 E" L% O1 X+ Z/ v; J0 Q
) Z' M1 S+ U3 ?, }! g; b
. [5 A+ J" E; q, n0 U7 O
' ]  E9 q# R- q+ w2 l5 H1 M

arter

fklmn 发表于 2018-11-16 16:28
Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

: y: h" x! ?4 H$ H' S感谢您的回复，我只会很简单的宏操作。我改的下面的宏没有用，能否帮我改下？非常感谢
) \# q5 c3 L% M+ o' c' v
" _, a- _, |. w4 H! m' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
' ******************************************************************************
Dim swApp As Object
, L+ L1 l7 O: J; e: q5 o
Dim Part As Object
Dim boolstatus As Boolean
1 ^* M1 l* I5 H, t) g9 \) Q: mDim longstatus As Long, longwarnings As Long
1 e# U5 k" M+ N, q# J+ I: q$ [$ ]Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

Sub main()

7 Q0 Y9 l( \  Y" aSet 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"
Part.ClearSelection2 True
End Sub
& P" g$ t+ I" d

NC@jiang@nan

ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
; T$ h1 t( H4 E' ~( E# F这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。

Dim swApp As Object
8 B4 A2 L+ \% X. n9 z
$ ?; \, e# K0 P! {* YDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
# E9 Q1 h9 F* B8 `6 c6 @Dim ConfigName As String

2 H9 [( z1 [. \9 E: {% v- aSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
* c6 e/ ?2 W; Q1 ?boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
* m2 I- ?6 _( g, a8 H: uPart.ClearSelection2 True
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
End Sub

( J. d9 l2 O  J. |0 u$ p2 `3 a: e你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
$ p: b* B+ D6 @! }8 f: h. DConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
这一句怎么可能放在sub main()前面 ...

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