通過宏添加solidworks零件材料

735057167

: C9 y/ k7 d$ L7 D: \8 {
由于模型需要測量總的重量,，可通過宏來一鍵添加solidworks自帶材料中304密度不是7。9需要自定義材料
% }0 g: F9 s1 g8 m% w+ K
也可以通過批量打開（dim）來實現(xiàn)
. G8 Z0 m, T0 ]
0 Y% e3 y: {* F0 ~* J
宏代碼如下
/ k) t! l1 }3 p" j7 N$ A/ C
Dim swApp As Object
" u7 v' q8 V0 R+ ]Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自適應(yīng)材料()
- I5 n2 Y4 z+ K& }2 N, b  s    Dim N
    Dim a, b
    Dim name, NAME1
    Set swApp = Application.SldWorks
: N9 U  e0 S3 h1 i+ ?) N% [    Set Part = swApp.ActiveDoc
/ U3 j9 z+ A3 j% y6 U# j" k    Set selngr = Part.SelectionManager
, j+ G# D0 c; z9 ^) V6 ]1 i9 Y% W    swApp.ActiveDoc.ActiveView.FrameState = 1
    N = swApp.ActiveDoc.GetTitle() '取得文件名
2 M: @$ d. \9 y/ E! ^7 Q4 |- H9 W    Set swModel = swApp.ActiveDoc
* |* D+ {- w& s5 t8 b    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當(dāng)前配置名稱
7 v3 o7 h/ \' v, m    NAME1 = CFGNAME
    For i = 1 To Len(N)
, K& k6 f& D* n" b0 L        a = Mid(N, i, 1)
$ O3 H# I3 ?& H, A% \" @        b = Mid(N, i, 2)
, [' a( j# P( G6 S& Z. o        If a = "瓷" Then
, d- p0 G8 n7 Z" {% D            name = "A95瓷管"
8 b' s5 @4 Z3 P            Exit For
   ElseIf a = "銅" Then
            name = "銅"
8 _; D* Y5 a0 e3 l# |            Exit For
        ElseIf b = "環(huán)氧" Then
: A3 m* n5 Q6 M- S. N) q' m9 M            name = "環(huán)氧板"
$ L! w. D. s- @" N0 H            Exit For
. }- ~+ n( j" {' A        ElseIf b = "云母" Then
/ f" G% J) s/ _- L/ s            name = "云母"
            Exit For
0 k9 u0 {8 j9 e( G5 M        Else
: z; L0 [: X; ]9 y8 R  b( A            name = "SUS 304"
/ n. ^! K" b) f5 N( t        End If
0 n# W3 v3 F6 e  N% v2 i4 b    Next
- x3 u! Z, p$ O$ b    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
6 |" J3 W3 ?9 {( I# r7 q    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
    Part.Save '保存
End Sub
7 f3 Y! W* o* L, C2 @0 h8 @由于無法上傳宏文件,，需要的可以留個郵件
% C3 a. Y  ^, P6 u& |, r
( t4 p1 D! V' }: z* h
" C- ]* r, g0 b0 v# X& v
1 r2 Z- R9 r% ~& e

葉飄零

可以從這里粘貼代碼

遠祥

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

knight3732449

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