通過宏添加solidworks零件材料

735057167

1 ^2 ~8 L% E# Q5 V+ x1 f, b由于模型需要測量總的重量，可通過宏來一鍵添加solidworks自帶材料中304密度不是7。9需要自定義材料
5 V  N* W( X6 P! B0 w" V
2 I: }+ B4 M. x* z也可以通過批量打開（dim）來實現


宏代碼如下
7 A$ m3 @* w, O- k
Dim swApp As Object
% g6 E! X$ T6 I9 o) mDim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
' f2 j) G5 o- n3 B+ [$ n  ]Sub 自適應材料()
    Dim N
7 k! Y( Y7 V+ Y" `7 U4 j    Dim a, b
( U9 j1 [* X6 K0 Z3 }5 K    Dim name, NAME1
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc
    Set selngr = Part.SelectionManager
' e$ E% O5 V% `& ?1 s    swApp.ActiveDoc.ActiveView.FrameState = 1
3 \) |# y3 ^  T! e# V    N = swApp.ActiveDoc.GetTitle() '取得文件名
) H% {% a& @, H1 {5 \    Set swModel = swApp.ActiveDoc
    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當前配置名稱
; L' d* \) {  R  _* W# l    NAME1 = CFGNAME
    For i = 1 To Len(N)
) p3 |" [; t2 d$ j+ J        a = Mid(N, i, 1)
+ Z+ }+ N# Z6 i        b = Mid(N, i, 2)
& o0 u7 k) R' Z; R% Q: p        If a = "瓷" Then
# C. M8 y: l* ]7 N            name = "A95瓷管"
            Exit For
   ElseIf a = "銅" Then
            name = "銅"
            Exit For
9 t( `# z# v6 A. N# Y* |3 H        ElseIf b = "環氧" Then
            name = "環氧板"
            Exit For
; d( r8 C- \9 N+ B! U        ElseIf b = "云母" Then
; K) P) b/ `; d5 z& s( t- ~            name = "云母"
            Exit For
" s/ _: W5 m6 f        Else
            name = "SUS 304"
        End If
* G! j! w. H' ^6 N    Next
& K9 N7 o. P" Q7 m; W    Set Part = swApp.ActiveDoc
, s, U5 w2 y0 e4 p, ~' |. W    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 '保存
9 t) Z6 W- S( k( |: HEnd Sub
' {$ d3 @" K, s6 r9 O+ F' G+ P由于無法上傳宏文件，需要的可以留個郵件

4 n. i, o, r2 P( ]
& q6 R- W1 l* U9 i8 S9 U; b9 @

葉飄零

可以從這里粘貼代碼

遠祥

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

knight3732449

學習一下，頂一下