solidworks 2018 宏 有时不能用的问题

arter

& ?* ~5 I1 h8 {
2 [  k" F, q# e) m# I/ x在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：

! t+ d6 @; z9 K$ S5 ?9 F5 k0 G' ******************************************************************************
  Y, _  n) ~7 i9 P' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
- b3 \+ ^+ V8 ^+ z' ******************************************************************************
8 t! m. K+ v1 pDim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
! w  U* \* Y8 O3 y! P$ C5 Z% tDim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks
( X( `$ H5 G  x" J+ N/ q
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
6 |5 C9 O# p4 APart.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
End Sub
6 U, a: w& ^2 g

( w" i8 b5 |) \

arter

我发现问题所在了

Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"

上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
' H% T# |2 B9 d
5 o* b5 D. q" R" Y1 O: v" _$ q/ R比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:

6 n, x, F% @! vSub main()

7 m' a2 W( a* D9 R- R: hSet swApp = Application.SldWorks
2 r) U8 y! Y1 q2 Z% P  Q
3 n* p# W' Y) _# K# k5 ?Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
: z) _6 B/ |0 i/ C& v1 qPart.ClearSelection2 True
; ?2 F! ~  q  Y7 @8 |! _* NPart.SetMaterialPropertyName2 "默认", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
' k. H, p) A& i- m; t) V0 Z- GEnd Sub
& S% o& _, V" P, F
如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
各位大侠，有无解决办法？谢谢。


# S8 d8 G: l/ c) \* V

fklmn

Dim ConfigName As String
    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
1 W& K7 ]. _0 d9 p8 E2 |- u, c
& Q) M- A) {9 K

* Q/ r5 Z( U% q5 q

arter

fklmn 发表于 2018-11-16 16:28
Dim ConfigName As String
, b: c' T; k' x* u7 C. f' _    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

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

9 d5 w5 I7 ?1 Y( T, G) w' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
' ******************************************************************************
* Z4 a6 Q( Y; ?1 F6 m3 dDim swApp As Object
0 \. j- h" m9 U! N
; _+ U0 q1 |) a' z* FDim Part As Object
7 T! V# G& f" T) i. i: a. j/ ADim boolstatus As Boolean
, ^( @4 C6 H  b2 b$ S! T, BDim longstatus As Long, longwarnings As Long
Dim ConfigName As String
0 K3 a6 A* t9 j& D' k$ K. B    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
4 X$ q1 h& o; C6 J) Z* ^$ n9 S6 X, ?
4 ^6 J" m! K; x2 ZSub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
/ f' C& o! o. ?/ o  J, ~boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
) A( D& z/ n: dPart.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"
这一句怎么可能放在sub main()前面？放在前面蛤只能定义变量，它根本不会执行了呀。

Dim swApp As Object

Dim Part As Object
3 @$ m% l; r( N8 h: \Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim ConfigName As String

Sub main()
  `% H8 k9 D% G7 W* I& \: k/ a: rSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
! D3 i% Y+ A3 v! J) Q) Tboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
! c; U& e6 ^* V7 ^" QPart.SetMaterialPropertyName2 ConfigName, "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
/ c- D" ]- Q. Q* h7 t* _Part.ClearSelection2 True
! \' T7 I2 v( P- {! ZEnd Sub

7 s" c1 t/ ?# ^9 q% E9 T+ |! I你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
1 N- i% w; S1 a- T& e, r: iConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
5 h5 {9 v) d; J0 R2 ^这一句怎么可能放在sub main()前面 ...

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