solidworks 2018 宏 有时不能用的问题

arter

在执行宏的按钮时，有时执行了很多次，都没有任何反应，请指教，谢谢。宏的内容如下：

& e; B( c, W/ G' ******************************************************************************
) T! u6 z1 ^9 n: w, m' C:\Users\admin\AppData\Local\Temp\swx9952\Macro1.swb - macro recorded on 11/14/18 by Arter
' ******************************************************************************
' }5 T( ?3 l0 c3 l& x! nDim swApp As Object
" R7 W. u7 R7 ~8 I
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
0 L$ c# Z# `4 Q) L; t8 s; {) [2 j4 N
Set swApp = Application.SldWorks
7 S: p0 E# r8 |  Q) L: r
8 k% m" r( Q- b+ {7 _8 q3 S4 C4 CSet Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
  _8 \; m7 O1 H, JPart.ClearSelection2 True
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
- Y( c& b& `' W5 v6 E+ ~Part.ClearSelection2 True
7 W; L, U, R3 J2 k( U- D" h- v% AEnd Sub

: e/ p; ^# s: d' A' f2 U" X7 p
& w( h. j' W( s9 o
" S) n% L+ y$ n' T

arter

我发现问题所在了
% s) x) S9 p2 Z) K* `+ s
Part.SetMaterialPropertyName2 "Default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
0 v: n1 [/ k& K+ t
上面句子里的”default“是配置的名称，如果零件里的配置名称与此不同，比如是中文的”默认“，则此宏不能用。
& m' S/ H9 {0 X  A# ?6 m, g  I% V' Z如果在录制宏时，如果，设置成将所有配置的材料都改成304，宏会把每个具体名称配置的材料都设置一下，新零件中配置的名称必须与宏里列举出来的配置名称完全相符才能够被赋予材料，否则依然不行.
+ T3 G1 h. I; N  ^3 e/ m/ U  |" B
7 q& x3 j% y& U6 H) `比如有个零件，有两个配置，名称分别是”default“、”默认“。则宏的语句是:
7 b. w# n3 h9 T  V
7 p& Y5 |; Z  aSub main()
& p$ S, Z0 \0 v( S) A" T
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
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
Part.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "304"
Part.ClearSelection2 True
End Sub

- U* G2 j% e' X, f/ x如果再换一个零件，配置的名称不是”default“、”默认“中的任何一个，则不能被赋予材料。
" V; j4 g$ L! G+ u% j, c各位大侠，有无解决办法？谢谢。

) L7 ^, p8 S' \, y0 V

fklmn

Dim ConfigName As String
# N( ?7 D9 e* J7 N4 |8 I    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
2 G6 r, ~- f5 V/ [
- D* L, E8 B$ k# K% O7 K8 T- t6 I
+ n7 C# v  ~0 U, m/ K4 n( c
$ i/ c" }/ {' m3 {& E6 @

arter

fklmn 发表于 2018-11-16 16:28
Dim ConfigName As String
. y2 ?' D4 [0 n5 Z1 |* y    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name

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

2 ^5 B/ _+ ^2 V1 ^2 N) p' ******************************************************************************
' C:\Users\admin\AppData\Local\Temp\swx3312\Macro1.swb - macro recorded on 11/16/18 by arter
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
/ p- }" _0 g- E6 [$ v8 a! PDim longstatus As Long, longwarnings As Long
/ _! Q( w+ k* T4 r2 UDim ConfigName As String
' C/ }6 T" Q7 V- ^2 s    ConfigName = Part.ConfigurationManager.ActiveConfiguration.Name
! O2 \; M0 j2 r0 K, C
/ v) ~; m- H& c- R6 l0 j7 }Sub main()
  ]' n4 L1 ?: K$ ?7 o7 J8 X
Set swApp = Application.SldWorks
7 I" H/ \! x* q6 O% W
Set Part = swApp.ActiveDoc
  [& q8 X! U# {/ i+ Sboolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
3 l' |% W7 d( X+ QPart.SetMaterialPropertyName2 "default", "C:/Program Files/SOLIDWORKS Corp/SOLIDWORKS/lang/chinese-simplified/sldmaterials/COSMOS materials.sldmat", "201"
2 ~: s4 H. g! S5 b/ s* B  ZPart.ClearSelection2 True
End Sub
+ q+ j$ l, q# D& i/ Y3 K

NC@jiang@nan

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

Dim swApp As Object

Dim Part As Object
4 P; U1 S0 _$ x6 u1 N, R) rDim boolstatus As Boolean
2 c$ p+ h$ {* i! X  GDim longstatus As Long, longwarnings As Long
Dim ConfigName As String
& Q: F/ W9 f/ A* z
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
/ F/ D* P$ k6 u9 E( w# O& t' H! }boolstatus = Part.Extension.SelectByID2("δ֪", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
6 D2 ?3 O! s! r( G" b- o0 d3 v) uPart.ClearSelection2 True
, v, ?$ i9 c- o3 e  E; H6 Y! lConfigName = 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

' \9 Z9 E& v0 Q1 j7 a你试试这样改行不行？

arter

NC@jiang@nan 发表于 2018-11-19 18:06
: T  u) ]) p6 S* gConfigName = Part.ConfigurationManager.ActiveConfiguration.Name"
' D) o* S' d' j3 C7 [3 @: i这一句怎么可能放在sub main()前面 ...

) P, p% x: S) s4 a4 M8 P: K非常感谢您的指点，已经好了