通过宏添加solidworks零件材料

735057167

/ }, c" X/ l/ ]  o! s; I
5 ?. t8 u7 ?1 S1 X, L由于模型需要测量总的重量，可通过宏来一键添加solidworks自带材料中304密度不是7。9需要自定义材料

* q$ p* ^' y0 Z) O7 x7 f也可以通过批量打开（dim）来实现


宏代码如下
* s& n' X8 H; g6 i9 }3 A* g3 I% M
Dim swApp As Object
8 I) j  ?1 k+ D1 p9 CDim Part As Object
% Y! l- C% r! X, I3 Y6 gDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自适应材料()
1 }. u, G8 D# g* t& X) ~    Dim N
    Dim a, b
1 x  s. l. [2 B7 ]    Dim name, NAME1
4 N% E8 }, ~2 Q3 o8 w0 @  J    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set selngr = Part.SelectionManager
6 q. F& y" C$ I1 v$ l: ~* U    swApp.ActiveDoc.ActiveView.FrameState = 1
    N = swApp.ActiveDoc.GetTitle() '取得文件名
    Set swModel = swApp.ActiveDoc
    Set swConfig = swModel.GetActiveConfiguration
- ~+ C9 R! ~" h" z$ H    CFGNAME = swConfig.name() '当前配置名称
: u0 h! M% N  k, k4 u# E1 g) Z5 n' B    NAME1 = CFGNAME
: R' F1 P1 H- A, s) m1 k* d+ v    For i = 1 To Len(N)
        a = Mid(N, i, 1)
        b = Mid(N, i, 2)
        If a = "瓷" Then
0 \0 y: W# E5 P: V" w            name = "A95瓷管"
            Exit For
$ _( v+ _$ M) B1 q0 u   ElseIf a = "铜" Then
            name = "铜"
. [) ^  e) g9 R. f1 b5 |1 ~1 Q            Exit For
+ K7 H- o/ u9 y& c) s! G" j        ElseIf b = "环氧" Then
* ~9 X* V, }5 L/ v# m7 R            name = "环氧板"
            Exit For
; R4 y3 ?, y7 E; F        ElseIf b = "云母" Then
3 R3 `9 q% w; v& c4 I, W  t            name = "云母"
            Exit For
        Else
( L: R2 P; R2 w5 x, P5 W- g            name = "SUS 304"
% _3 C8 f+ h1 c0 |        End If
    Next
    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
7 J* f% L3 m! W6 U    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
  l6 d- Z* U6 v    Part.SetMaterialPropertyName2 N, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
+ m% \# l+ D: T. {' k    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
4 z( J: t3 X. C    Part.Save '保存
End Sub
1 Z/ E" u  p6 M! Z& u. v% x由于无法上传宏文件，需要的可以留个邮件
5 Q$ l' k, d& s3 D5 S! `5 y% }$ M
3 p; X1 J1 B$ M3 o" O) o
- B' H* V* ]8 j6 m

叶飘零

可以从这里粘贴代码

远祥

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

knight3732449

学习一下，顶一下