通過(guò)宏添加solidworks零件材料

735057167

由于模型需要測(cè)量總的重量，可通過(guò)宏來(lái)一鍵添加solidworks自帶材料中304密度不是7,。9需要自定義材料

* X0 j' l6 O$ u2 y( r3 F0 t也可以通過(guò)批量打開（dim）來(lái)實(shí)現(xiàn)

% y# o, b# Q4 @+ y( C
6 y% q3 w- K8 f7 S宏代碼如下
6 m# J7 s) y1 l* q, s) V3 d/ H
Dim swApp As Object
Dim Part As Object
7 q  O" p8 j+ C4 D3 GDim boolstatus As Boolean
) b( }( I" g. KDim longstatus As Long, longwarnings As Long
+ o; y" r, |3 q0 e: a  P: jSub 自適應(yīng)材料()
    Dim N
) r/ M0 n& [' `# J, P: v    Dim a, b
    Dim name, NAME1
    Set swApp = Application.SldWorks
5 q, x/ [, D+ F& B* J* k' _8 m    Set Part = swApp.ActiveDoc
; v* h( @& {  P    Set selngr = Part.SelectionManager
6 h5 e0 [$ ^: o: E    swApp.ActiveDoc.ActiveView.FrameState = 1
& D7 x6 K5 N2 J2 |9 N    N = swApp.ActiveDoc.GetTitle() '取得文件名
    Set swModel = swApp.ActiveDoc
    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當(dāng)前配置名稱
    NAME1 = CFGNAME
    For i = 1 To Len(N)
# S# V: T' K  Z- h" {' H        a = Mid(N, i, 1)
        b = Mid(N, i, 2)
, S- j. C) O& Y! c        If a = "瓷" Then
            name = "A95瓷管"
: |! l! v" g* j- v; O: ~% Q, J            Exit For
   ElseIf a = "銅" Then
            name = "銅"
" }- Z. d# N! X9 [& W            Exit For
; v0 p* Q1 \4 h+ y/ D* w. L1 q& g0 u        ElseIf b = "環(huán)氧" Then
            name = "環(huán)氧板"
5 ^* }  b/ x. c1 i0 _+ f* g            Exit For
9 m. C; `$ u8 H        ElseIf b = "云母" Then
6 n5 m2 ], C6 H+ l* m- V            name = "云母"
4 q/ B; l/ _8 U  y            Exit For
        Else
            name = "SUS 304"
/ n3 p; L: ?6 {+ z+ ]        End If
9 U: E' C% _0 J3 l    Next
1 o9 x! i; ?. Z  f# Q8 {& h: x0 t    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
    Part.Save '保存
: f7 [; l4 S0 g2 uEnd Sub
% N6 q& L2 J" V; G3 k8 A由于無(wú)法上傳宏文件,，需要的可以留個(gè)郵件

& {6 j- s9 }; ~3 o( Y( c

葉飄零

可以從這里粘貼代碼

遠(yuǎn)祥

直接添加零件材料，這個(gè)宏貌似更方方便,。

knight3732449

學(xué)習(xí)一下,，頂一下