通过宏添加solidworks零件材料

735057167 · 发表于 2019-11-28 16:10:49

本帖最后由 735057167 于 2019-11-28 16:25 编辑

由于模型需要测量总的重量，可通过宏来一键添加solidworks自带材料中304密度不是7。9需要自定义材料

也可以通过批量打开（dim）来实现

宏代码如下

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub 自适应材料()
Dim N
Dim a, b
Dim name, NAME1
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set selngr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
N = swApp.ActiveDoc.GetTitle() '取得文件名
Set swModel = swApp.ActiveDoc
Set swConfig = swModel.GetActiveConfiguration
CFGNAME = swConfig.name() '当前配置名称
NAME1 = CFGNAME
For i = 1 To Len(N)
      a = Mid(N, i, 1)
      b = Mid(N, i, 2)
      If a = "瓷" Then
         name = "A95瓷管"
         Exit For
ElseIf a = "铜" Then
         name = "铜"
         Exit For
      ElseIf b = "环氧" Then
         name = "环氧板"
         Exit For
      ElseIf b = "云母" Then
         name = "云母"
         Exit For
      Else
         name = "SUS 304"
      End If
Next
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
Part.SetMaterialPropertyName2 NAME1, "C:/Program Files/SolidWorks Corp/SOLIDWORKS (2)/lang/chinese-simplified/sldmaterials/materials.sldmat", name
Part.Save '保存
End Sub
由于无法上传宏文件，需要的可以留个邮件

叶飘零 · 发表于 2019-11-30 07:57:08

可以从这里粘贴代码

远祥 · 发表于 2019-11-30 11:23:36

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

knight3732449 · 发表于 2021-7-15 19:56:43

学习一下，顶一下

		自动登录	找回密码
密码			注册会员

通过宏添加solidworks零件材料

本帖子中包含更多资源

本帖子中包含更多资源