通過宏添加solidworks零件材料

735057167

( ?! _6 g; j5 u) _% j/ {6 \由于模型需要測(cè)量總的重量,，可通過宏來一鍵添加solidworks自帶材料中304密度不是7,。9需要自定義材料

' O) s& W- D1 \( W1 o3 J1 y) O$ ~也可以通過批量打開（dim）來實(shí)現(xiàn)
! Y: `, H! b2 `( C9 S$ X9 ^

1 b2 u- N0 j/ ?  U! @; A宏代碼如下
# i% {, e4 P6 t6 M7 G2 ]
0 |, c' b9 K3 lDim swApp As Object
Dim Part As Object
( K: h: a; ?! a' |4 z5 t; WDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
8 m# m4 j2 `5 Q; KSub 自適應(yīng)材料()
+ r4 @. C% O: B$ a' @$ \' Y0 r    Dim N
    Dim a, b
8 A4 i. z4 `! E    Dim name, NAME1
    Set swApp = Application.SldWorks
9 ]% J0 y& F9 s) [2 A  t/ f    Set Part = swApp.ActiveDoc
. {1 Q- J* A* P/ `  v/ K  d5 G+ H    Set selngr = Part.SelectionManager
    swApp.ActiveDoc.ActiveView.FrameState = 1
: Y$ _% O: B9 ^7 p) H1 I    N = swApp.ActiveDoc.GetTitle() '取得文件名
    Set swModel = swApp.ActiveDoc
! w; H# S- a+ M) ~3 p    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當(dāng)前配置名稱
    NAME1 = CFGNAME
: n: w4 l) ^% l    For i = 1 To Len(N)
        a = Mid(N, i, 1)
: g9 J) Z  M8 _4 ^% T7 z        b = Mid(N, i, 2)
. V+ ?. n' M! Q1 M' s        If a = "瓷" Then
            name = "A95瓷管"
            Exit For
   ElseIf a = "銅" Then
  T3 r' B, p. q) B" m; w* h8 Y# \            name = "銅"
5 R2 f) J1 b8 c- O& O            Exit For
        ElseIf b = "環(huán)氧" Then
! P0 I2 V; h: i            name = "環(huán)氧板"
            Exit For
5 `0 X  t5 i! [1 g' l4 F        ElseIf b = "云母" Then
. M2 y- B; ]" v2 f            name = "云母"
9 @- s" E( h) k; ~            Exit For
5 u5 P. N7 B9 R. C, a/ j, g        Else
            name = "SUS 304"
        End If
    Next
    Set Part = swApp.ActiveDoc
* \8 o: o7 e- I    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
" a3 ^- n( Q: ~3 H; J( \+ W    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
. I. E- K* x9 m- A+ O9 ~$ h    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
    Part.Save '保存
End Sub
0 ^& i: V+ \$ R8 k  Q由于無法上傳宏文件,，需要的可以留個(gè)郵件
/ b; l0 w: U- {# _

葉飄零

可以從這里粘貼代碼

遠(yuǎn)祥

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

knight3732449

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