通過宏添加solidworks零件材料

735057167

% X- c; g" `/ b% Q& p8 u. x2 n: I. @
( a. |9 K5 o8 o) Q, L由于模型需要測量總的重量,，可通過宏來一鍵添加solidworks自帶材料中304密度不是7。9需要自定義材料
, d- E/ [. I- m& K; c3 h
1 Y. n& x& c4 Q也可以通過批量打開（dim）來實(shí)現(xiàn)
1 t8 S/ g* H) u# {

* b* k) h- J+ e% Q3 @; H宏代碼如下
; D* a8 b) I+ R
Dim swApp As Object
8 g5 r  s, c4 h$ h7 P; r& TDim Part As Object
Dim boolstatus As Boolean
! k: z6 I# y1 L) X9 n/ aDim longstatus As Long, longwarnings As Long
: }' W0 P2 L: l: ?; _% }+ D  ^6 {4 T- CSub 自適應(yīng)材料()
    Dim N
6 y( q0 t' f1 ^0 }    Dim a, b
6 c1 r* x3 E! E    Dim name, NAME1
    Set swApp = Application.SldWorks
) K" a6 M* F1 `$ ~6 t; _3 w2 i! b1 V    Set Part = swApp.ActiveDoc
    Set selngr = Part.SelectionManager
1 R1 g) x# ?: M# h# L: W    swApp.ActiveDoc.ActiveView.FrameState = 1
    N = swApp.ActiveDoc.GetTitle() '取得文件名
    Set swModel = swApp.ActiveDoc
9 p  X. W. N+ K3 ~2 j- U, K7 ?- j    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當(dāng)前配置名稱
    NAME1 = CFGNAME
    For i = 1 To Len(N)
& @! Y  }8 q9 ~+ w        a = Mid(N, i, 1)
        b = Mid(N, i, 2)
7 }( Q9 P7 k9 }( G) T        If a = "瓷" Then
            name = "A95瓷管"
/ _% h8 X' ?5 c& X            Exit For
   ElseIf a = "銅" Then
( n* |+ |- M1 Q( y+ ^            name = "銅"
            Exit For
        ElseIf b = "環(huán)氧" Then
/ d- ]8 e* c+ Z            name = "環(huán)氧板"
5 n' }& O) g" ~; Q% l3 m7 g. b            Exit For
        ElseIf b = "云母" Then
            name = "云母"
            Exit For
        Else
( j% q2 O+ [) G) Z$ v9 d: A/ U            name = "SUS 304"
* M( u* f, M& c6 _  X+ D        End If
    Next
    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
. I+ E0 {: a$ \( j5 ~5 x2 N. z1 k& T    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
) W, _6 e1 N* \; @: ~' Z) L    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
" L5 V  ?. ~( ~    Part.Save '保存
End Sub
% `8 t7 Q( L+ h- ^1 B由于無法上傳宏文件,，需要的可以留個(gè)郵件



; Z* Y/ g, S# `5 b7 w8 O

葉飄零

可以從這里粘貼代碼

遠(yuǎn)祥

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

knight3732449

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