通过宏添加solidworks零件材料

735057167

由于模型需要测量总的重量，可通过宏来一键添加solidworks自带材料中304密度不是7。9需要自定义材料
5 j5 s7 ^' r5 O
也可以通过批量打开（dim）来实现


宏代码如下

0 M* ?1 ^+ M; R4 K7 X) q4 {' hDim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自适应材料()
0 q9 ~) w* X$ O. |) E: n; ^    Dim N
    Dim a, b
% G0 O- }+ b* ?" K$ `    Dim name, NAME1
9 k! U/ o5 o$ [2 k    Set swApp = Application.SldWorks
+ z# @# t; O& |5 {    Set Part = swApp.ActiveDoc
" f3 Z3 G7 L) z1 i+ j& M    Set selngr = Part.SelectionManager
5 i* M2 c  w5 P' f    swApp.ActiveDoc.ActiveView.FrameState = 1
    N = swApp.ActiveDoc.GetTitle() '取得文件名
3 w0 p$ V/ l$ P4 I% [! j    Set swModel = swApp.ActiveDoc
# W1 g" x, ~4 \- x: g. u    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '当前配置名称
    NAME1 = CFGNAME
. K4 G+ y/ r  o& b+ K4 \( h    For i = 1 To Len(N)
& ?; q5 a0 V" G9 u& }        a = Mid(N, i, 1)
        b = Mid(N, i, 2)
+ v9 W) \5 e& S2 l- B        If a = "瓷" Then
6 B& [3 e3 {( E2 a3 y+ B            name = "A95瓷管"
            Exit For
# t; _- p3 ^) I; l1 H   ElseIf a = "铜" Then
            name = "铜"
$ h8 m3 ^& j# v2 r1 Q, n7 @% b- ]            Exit For
) ?0 w* Q2 a- Y4 ]- W/ Y" d        ElseIf b = "环氧" Then
            name = "环氧板"
! C+ W8 T4 m: H1 o8 L            Exit For
7 a2 N/ L$ \. }! S        ElseIf b = "云母" Then
            name = "云母"
" D- m2 G& o+ M6 E. c1 N3 h            Exit For
% i: t2 M% O8 N3 r) z+ M7 A; Y        Else
            name = "SUS 304"
4 W: X% S2 q# m6 Y) M5 I        End If
    Next
    Set Part = swApp.ActiveDoc
* B" [' U4 v9 C( l5 y    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
. j( m; q; ?" x6 [+ P    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
/ F+ f4 C# d. g9 }9 S" s* d, n    Part.Save '保存
End Sub
由于无法上传宏文件，需要的可以留个邮件


( z% l3 M) ?; m. s8 h. M
  {  X$ c( N$ G; W4 {

叶飘零

可以从这里粘贴代码

远祥

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

knight3732449

学习一下，顶一下