通過宏添加solidworks零件材料

735057167

, R, \) s3 s, ]( a6 q. @由于模型需要測量總的重量，可通過宏來一鍵添加solidworks自帶材料中304密度不是7。9需要自定義材料

, ^& p" |4 @  s9 J' \8 K! E0 O也可以通過批量打開（dim）來實現
# t, `* C" J, W0 ^% |5 F
) z! [$ e5 n% q7 m6 c
. n0 r1 N8 h6 o宏代碼如下
7 d! K. [$ z# x5 _8 }
, u5 ]$ M/ y7 K9 {2 ?  _Dim swApp As Object
9 @- V& K/ N9 ]# Z4 k, G2 ]Dim Part As Object
- y, T/ u7 K9 L+ IDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自適應材料()
    Dim N
% J) p- K5 C9 |    Dim a, b
6 K' H7 F; S+ \1 {! o    Dim name, NAME1
6 X" M3 e% E1 {: P$ v" X% R1 S2 P    Set swApp = Application.SldWorks
. |, h% T0 A8 c7 D1 g1 L% Y    Set Part = swApp.ActiveDoc
' V  @" N/ i. D5 L. t, N" u* j. @    Set selngr = Part.SelectionManager
+ Q5 q3 c8 d& @1 P/ C    swApp.ActiveDoc.ActiveView.FrameState = 1
* \: e5 i4 x! q% o9 c  N1 F    N = swApp.ActiveDoc.GetTitle() '取得文件名
    Set swModel = swApp.ActiveDoc
    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當前配置名稱
    NAME1 = CFGNAME
    For i = 1 To Len(N)
        a = Mid(N, i, 1)
9 l* E) k! s" U- D        b = Mid(N, i, 2)
3 s( C5 K- P! C' v( ?/ V' P& ^        If a = "瓷" Then
+ {2 u- j+ V6 [, x1 c6 v, {            name = "A95瓷管"
) S/ @  x7 y7 b4 d            Exit For
& u# L" L; R2 ]8 ?; |0 ^0 k1 l4 \   ElseIf a = "銅" Then
            name = "銅"
2 }+ _8 _$ i* D6 }8 V+ ?* L7 K            Exit For
! `( I$ R  b) _1 C$ v1 H* m        ElseIf b = "環氧" Then
: y$ d  W+ E7 I$ X5 i) x            name = "環氧板"
            Exit For
$ P, {6 _1 x$ r/ O( K6 W$ _$ B        ElseIf b = "云母" Then
            name = "云母"
: N1 d0 ?! Q8 a- w1 y5 T, G  W            Exit For
        Else
6 _! w. ^6 V5 g9 g( c5 q            name = "SUS 304"
        End If
    Next
    Set Part = swApp.ActiveDoc
9 j4 U5 v3 j( H    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
& k! K/ f0 L% M    Part.SetMaterialPropertyName2 N, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
: Q( U. D0 H3 p4 o    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
    Part.Save '保存
1 J. b  S$ R( _8 x0 iEnd Sub
由于無法上傳宏文件，需要的可以留個郵件

葉飄零

可以從這里粘貼代碼

遠祥

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

knight3732449

學習一下，頂一下