通过宏添加solidworks零件材料

735057167

% A8 i/ z$ `& |7 N8 b- v
" m3 T. T" ^' V3 N由于模型需要测量总的重量，可通过宏来一键添加solidworks自带材料中304密度不是7。9需要自定义材料
" G+ J: V. O5 B
6 j  j; @6 W1 E6 @, q7 l也可以通过批量打开（dim）来实现

% s* S( h  q6 ]
0 _9 c, X9 Z+ }# }宏代码如下
  O( o2 ~6 R( s0 f( k
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自适应材料()
    Dim N
$ D( S, h+ z; o5 ^" W% P    Dim a, b
    Dim name, NAME1
1 B* d7 I0 z( T: ~+ a4 l8 H    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set selngr = Part.SelectionManager
* m) h/ u) ~5 W    swApp.ActiveDoc.ActiveView.FrameState = 1
    N = swApp.ActiveDoc.GetTitle() '取得文件名
$ _% O3 s, }' J; R    Set swModel = swApp.ActiveDoc
! [: T  g2 `% J  j. y; N    Set swConfig = swModel.GetActiveConfiguration
2 G# c7 F' y* V7 A' o    CFGNAME = swConfig.name() '当前配置名称
    NAME1 = CFGNAME
7 v1 g; Y% H, T: I% S' ]" q0 z  T' R    For i = 1 To Len(N)
        a = Mid(N, i, 1)
; C' k: D6 Q) P/ G9 Y        b = Mid(N, i, 2)
/ R) [( k/ J% _' m4 }& K        If a = "瓷" Then
            name = "A95瓷管"
            Exit For
   ElseIf a = "铜" Then
4 O0 ?3 B! v7 ^$ C            name = "铜"
2 S- [! U# u/ ^- @2 Y" k            Exit For
        ElseIf b = "环氧" Then
+ x0 \% \1 l  Y* k3 w1 t* B9 q            name = "环氧板"
- {& Z% N! t2 h- m            Exit For
        ElseIf b = "云母" Then
8 d1 Z6 z3 Z) x7 D# `; i. e            name = "云母"
            Exit For
/ j4 Y2 l6 `6 _# |% \, b+ n# V0 _        Else
            name = "SUS 304"
        End If
    Next
    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
% e" O( C# \5 q' Z( j    Part.SetMaterialPropertyName2 N, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
( u/ e" H( s0 y- l, m    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
    Part.Save '保存
End Sub
' u% w5 Y3 n- I' C+ _2 i由于无法上传宏文件，需要的可以留个邮件
) i* j5 U5 J6 d  c9 ]9 K


5 X, g& H% T: S

叶飘零

可以从这里粘贴代码

远祥

直接添加零件材料，这个宏貌似更方方便。

knight3732449

学习一下，顶一下