通過宏添加solidworks零件材料

735057167

3 N3 j4 Z# B$ g; S% M/ w
由于模型需要測量總的重量，可通過宏來一鍵添加solidworks自帶材料中304密度不是7。9需要自定義材料
; G5 |( a7 y- X$ V# B6 X% m6 S6 a5 o
也可以通過批量打開（dim）來實現(xiàn)


宏代碼如下
( b  z# k- w6 F1 L1 X6 ^
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
# h8 i* ~9 a, A) ZDim longstatus As Long, longwarnings As Long
Sub 自適應(yīng)材料()
    Dim N
; i* X" a+ [3 {: ]; Z    Dim a, b
6 a( `' H( ?8 s$ d& J    Dim name, NAME1
    Set swApp = Application.SldWorks
1 v7 |5 x5 G, @- C5 ?9 r5 q" v- x    Set Part = swApp.ActiveDoc
    Set selngr = Part.SelectionManager
0 P6 B- k/ j- V) s$ q- h    swApp.ActiveDoc.ActiveView.FrameState = 1
7 G( y9 p1 i% H# K  I. l    N = swApp.ActiveDoc.GetTitle() '取得文件名
  x5 K1 W# P; e    Set swModel = swApp.ActiveDoc
    Set swConfig = swModel.GetActiveConfiguration
    CFGNAME = swConfig.name() '當(dāng)前配置名稱
    NAME1 = CFGNAME
' |8 m' H- z% f5 a5 r  ~    For i = 1 To Len(N)
        a = Mid(N, i, 1)
        b = Mid(N, i, 2)
        If a = "瓷" Then
' A( L  [0 `1 m" N" F2 C: x            name = "A95瓷管"
            Exit For
   ElseIf a = "銅" Then
9 G3 k: ?6 ~; |  K. A* d# ^- e            name = "銅"
            Exit For
        ElseIf b = "環(huán)氧" Then
- v/ N% D3 s) m) X4 |! @, y) n            name = "環(huán)氧板"
% p+ o: ~- v/ t: A$ o& B/ U            Exit For
8 D9 T( _' i1 _& l' t- b        ElseIf b = "云母" Then
            name = "云母"
            Exit For
        Else
            name = "SUS 304"
        End If
# {, v8 n; _4 K/ O! g  R    Next
  o/ D8 W- w0 ^' l    Set Part = swApp.ActiveDoc
    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
$ W- X  B4 _) c8 D/ A% ^, z7 V    boolstatus = Part.Extension.SelectByID2("未知", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
  }: k/ T% K- N, ?1 X2 k! T) ?    Part.SetMaterialPropertyName2 N, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
! I) r4 {, j0 Z, m    Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
- R4 @9 H5 f$ x- n7 T    Part.Save '保存
& {, B5 Z& {' W0 l' \" T4 t  W1 u7 h/ zEnd Sub
  K9 q% F8 J# R2 c7 ]7 u: o由于無法上傳宏文件，需要的可以留個郵件
3 Q5 r8 X7 L& w/ I5 E. g
& I  F% W* T! S
% Z6 u4 f0 _. D) w& n1 H7 J) P

葉飄零

可以從這里粘貼代碼

遠(yuǎn)祥

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

knight3732449

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