SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: 焊接切割清单怎么链接单重、总重的属性？ [打印本页]

作者: dzp1023 时间: 2020-12-25 23:17
标题: 焊接切割清单怎么链接单重、总重的属性？
如题，大侠帮忙

作者: upstate 时间: 2020-12-28 11:05
顶一下，坐等高手！

作者: puttransnetcana 时间: 2020-12-28 11:48

solidworks中如果焊件的零件不是由“结构构件”生成的话，切割清单项目的属性默认情况下会生成“材料”和“数量”2个属性。

以下方法的测试版本solidworks2016

今天我会用“宏”来自动的给切割清单中的零件添加“单重”和“总重”，并自动链接到工程图中，这在实际工作中是非常有用的，比如零件好几百的板料的焊件，下料的尺寸、数量和重量统计。如果人工智能来做的话，不仅容易出错，工作也很繁琐。

今天我就给亲讲一下如何把数量和重重链接到solidworks工程图的“焊接清单明细表”中。

1.运行宏，生成单重和总重
1.1宏代码

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim thisFeat As SldWorks.Feature
Dim thisSubFeat As SldWorks.Feature
Dim cutFolder As Object
Dim BodyCount As Integer
Dim fn As String
Dim pn As String
Dim custPropMgr As SldWorks.CustomPropertyManager
Dim propNames As Variant
Dim vName As Variant
Dim propName As String
Dim Value As String
Dim resolvedValue As String
Dim TotalW As Double
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set thisFeat = Part.FirstFeature
Do While Not thisFeat Is Nothing
If thisFeat.GetTypeName = "SolidBodyFolder" Then
thisFeat.GetSpecificFeature2.UpdateCutList
End If
Set thisSubFeat = thisFeat.GetFirstSubFeature
Do While Not thisSubFeat Is Nothing
If thisSubFeat.GetTypeName = "CutListFolder" Then
Set cutFolder = thisSubFeat.GetSpecificFeature2
End If
If Not cutFolder Is Nothing Then
BodyCount = cutFolder.GetBodyCount
If BodyCount > 0 Then
Set custPropMgr = thisSubFeat.CustomPropertyManager
If Not custPropMgr Is Nothing Then
custPropMgr.Delete "Total Weight"
custPropMgr.Delete "Weight"
fn = thisSubFeat.Name
pn = Part.GetTitle
custPropMgr.Add "Weight", "文字", Chr(34) & "SW-Mass@@@" & fn & "@" & pn & Chr(34)
propNames = custPropMgr.GetNames
If Not IsEmpty(propNames) Then
For Each vName In propNames
propName = vName
custPropMgr.Get2 propName, Value, resolvedValue
If propName = "Weight" Then TotalW = resolvedValue
Next vName
End If
custPropMgr.Add "Total Weight", "文字", Format(BodyCount * TotalW, "0.00")
End If
End If
End If
Set thisSubFeat = thisSubFeat.GetNextSubFeature
Loop
Set thisFeat = thisFeat.GetNextFeature
Loop
End Sub

复制代码

1.2新建宏

1.3运行宏后添加单重和总重属性

2.在工程图的焊接清单中添加单重和总重
2.1添加单重

2.2添加总重

作者: auto1234 时间: 2020-12-28 12:42
好好学习，天天向上！

作者: schjck 时间: 2020-12-31 13:09

upstate 发表于 2020-12-28 11:05
顶一下，坐等高手！

经典案例图书

顶一下，坐等高手！

作者: dzp1023 时间: 2021-1-2 15:49

puttransnetcana 发表于 2020-12-28 11:48
solidworks中如果焊件的零件不是由“结构构件”生成的话，切割清单项目的属性默认情况下会生成“材料” ...

运用宏命令，非常感谢分享！

作者: dzp1023 时间: 2021-1-2 16:29

puttransnetcana 发表于 2020-12-28 11:48
solidworks中如果焊件的零件不是由“结构构件”生成的话，切割清单项目的属性默认情况下会生成“材料” ...

代码好像有问题，在19项出现错误，编译错误，发现二义性的名称：mian

作者: sazbwz 时间: 2021-1-5 15:53
运行宏命令麻烦，自己设置零件模板时，方程式里设置好、保存一劳永逸，不管焊件、还是零件重量自动显示，这是我以前没法逼出来的，论坛找一找吧，找不到我告诉你。

作者: 1215956038 时间: 2021-4-10 06:12
感谢楼主分享，很不错！

作者: 1215956038 时间: 2021-4-10 12:29
谢谢楼主分享

作者: lvhailong 时间: 2021-7-16 14:19
好东西，努力学习学习！

作者: 小西太阳 时间: 2022-4-13 09:18

sazbwz 发表于 2021-1-5 15:53
运行宏命令麻烦，自己设置零件模板时，方程式里设置好、保存一劳永逸，不管焊件、还是零件重量自动显示， ...

楼主，模板怎么设置

作者: 824751842 时间: 2022-7-19 22:22
感谢楼主分享，很不错！

作者: yun6yun7 时间: 2022-11-30 22:49
很不错，找到组织了！

作者: sg2010 时间: 2023-5-31 11:24
很不错，找到组织了！

作者: 1215956038 时间: 前天 21:14
楼主辛苦了！

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)

Powered by Discuz! X3.2