通过宏添加solidworks零件材料

735057167

8 p/ C6 D# r7 L3 R
, J5 Y; j3 r5 J) O( j$ B& M8 H# @由于模型需要测量总的重量，可通过宏来一键添加solidworks自带材料中304密度不是7。9需要自定义材料

- O) q7 w* f+ Y3 Q$ X- O0 g也可以通过批量打开（dim）来实现
* V- o( e$ q2 e, J. A3 e
" l" a% ~! a  S5 C) ~9 o& @9 W
宏代码如下

* }& L( h9 G6 B3 j: P- DDim swApp As Object
Dim Part As Object
+ G; o7 b- A$ y, ~) ^Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自适应材料()
3 Y* M7 }$ g/ f( X. @- r    Dim N
    Dim a, b
    Dim name, NAME1
3 t* H7 y5 h  t! T. K" f: p# W6 l    Set swApp = Application.SldWorks
  o, C  Z2 f. p/ [1 d    Set Part = swApp.ActiveDoc
    Set selngr = Part.SelectionManager
3 j5 w7 p; `# v* ?& u# P; m! C    swApp.ActiveDoc.ActiveView.FrameState = 1
    N = swApp.ActiveDoc.GetTitle() '取得文件名
0 r6 n0 g, `2 b  Q$ k3 B    Set swModel = swApp.ActiveDoc
# e8 Z# D- h% v; k! {( e' j2 B. l    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '当前配置名称
    NAME1 = CFGNAME
0 F& S# c6 h% m( S    For i = 1 To Len(N)
        a = Mid(N, i, 1)
7 u8 I4 |" ^5 A$ S        b = Mid(N, i, 2)
9 K* L; s2 O, f: H" s! C( X+ [        If a = "瓷" Then
" P- E' F. z5 o            name = "A95瓷管"
* n% \' h5 R: K) ^, t" ~; U: _            Exit For
   ElseIf a = "铜" Then
+ X! }8 q' K0 t1 O            name = "铜"
            Exit For
        ElseIf b = "环氧" Then
            name = "环氧板"
9 t# m& J8 q8 h0 W            Exit For
        ElseIf b = "云母" Then
            name = "云母"
  l0 Y; n7 ~" l            Exit For
- b- A: D, V! F$ |8 d8 H, ~        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)
    Part.SetMaterialPropertyName2 N, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
+ I+ ~; x1 J7 E1 M( Y: J    Part.Save '保存
% i/ h# c. Q* KEnd Sub
: u( q6 R$ A8 q& f! r6 i( h由于无法上传宏文件，需要的可以留个邮件

叶飘零

可以从这里粘贴代码

远祥

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

knight3732449

学习一下，顶一下