数量统计与图号分离的新思路

youlangzi · 发表于 2020-3-7 23:19:17

版大版主分享的数量统计宏使用非常方便，但在实际使用中（经本人测试），一个大型的装配文件（20000+模型）运行宏至少要50分钟以上，如果电脑配置不好的情况下可能时间会更长。因此经过测试后，发现问题的所在：原因是当遍历到一个模型时，会进入属性去改写属性，如果这个模型在这个装配体中出现100次，则会100次去改写同一个模型的属性，如果出现次数越多，读取和写入的次数也就越多，这样在零件数量非常大的时候运行效率会降低。本人经过用GetComponents方法只须遍历装配模型两次即可统计数量，一次统计数量，第二次写入属性。而且可以方便的把分离图号也加进去。经测试，同样的装配文件（20000+），宏文件运行50分钟以上，而新的工具只要5分钟左右。

vagrant · 发表于 2020-3-10 13:49:19

我一直在用这个宏，不过加入图号分离不需要了

zhangmw1974 · 发表于 2020-3-10 13:57:32

其实代码都是差不多，只是方法不一样，用GetComponents只是不用递归调用，只遍历就行。主要的是用字典存储数量信息，第一次遍历存储统计的数量信息，第二次遍历将统计的数量写入模型。因本人不会VBA所以只能提供VB.NET代码，此代码不完整，仅供参考：
'统计数量
For i = 0 To swChidren.Length - 1
  swCom = swChidren(i)
  If swCom.IsVirtual Then
  Continue For
  End If
  If swCom.IsSuppressed Then
  Continue For
  End If
  If swCom.ExcludeFromBOM Then
  Continue For
  End If
  swGetPathName = swCom.GetPathName.ToUpper
  swcomKey = swComDict.ContainsKey(swGetPathName)
  If swcomKey = False Then
  'TextBox1.AppendText(vbCrLf & swGetPathName)
  swComDict.Add(swGetPathName, swComtmp)
  Else
  swComtmps = swComDict.Item(swGetPathName) + 1
  swComDict.Item(swGetPathName) = swComtmps
  End If
Next
'写入数量
For j = 0 To swChidren.Length - 1
  swCom = swChidren(j)
  If swCom.IsVirtual Then
  Continue For
  End If
  If swCom.IsSuppressed Then
  Continue For
  End If
  If swCom.ExcludeFromBOM Then
  Continue For
  End If
  Dim swToNama As String
  Dim swTopDocName As String
  Dim swReplaceName As String
  Dim swTopPCode As String
  Dim swTopPName As String
  Dim swConfigName As String
  swConfigName = swCom.ReferencedConfiguration
  swGetPathName = swCom.GetPathName.ToUpper
  swPathSplit = Split(swGetPathName, "")
  swToNama = swPathSplit(UBound(swPathSplit))
  swTopDocName = Microsoft.VisualBasic.Left(swToNama, Len(swToNama) - 7)
  Label1.Text = "打开模型："
  Label12.Text = swGetPathName
  swContains = swMocName.Contains(swGetPathName)
  If swContains = True Then
  Continue For
  Else
  curNode = rootNode.Nodes.Add(swTopDocName)
  swcomModel = swCom.GetModelDoc2
  swMocName.Add(swGetPathName)
  swComtmpa = swComDict.Item(swGetPathName)
  If RadioButton3.Checked = True Then
  swPropMgr = swcomModel.Extension.CustomPropertyManager("")
  Else
  swPropMgr = swcomModel.Extension.CustomPropertyManager(swConfigName)
  End If
  If RadioButton7.Checked = True Then
  swPropMgr.Add3(CustomInfoQTY, 30, swComtmpa, 1)
  If RadioButton11.Checked = True Then
  swPropMgr.Add3(CustomInfoTTY, 30, Couu, 1)
  End If
  End If

  End If
  swcomModel.Save()
Next
复制代码

yayayahuhu · 发表于 2020-3-10 13:49:19

我一直在用这个宏，不过加入图号分离不需要了

sophico · 发表于 2020-3-8 21:34:04

经典案例图书

很编程软件很历害。。。楼主共享出来啊，让这工具越来越好用，造福大家。

retertetre · 发表于 2020-3-8 21:34:04

很编程软件很历害。。。楼主共享出来啊，让这工具越来越好用，造福大家。

zcb13008219 · 发表于 2020-3-9 21:06:40

经典案例图书

有更好的方法，可以大家一起看看。

seven9 · 发表于 2020-3-9 21:06:40

有更好的方法，可以大家一起看看。

sly7612 · 发表于 2020-3-10 13:57:32

其实代码都是差不多，只是方法不一样，用GetComponents只是不用递归调用，只遍历就行。主要的是用字典存储数量信息，第一次遍历存储统计的数量信息，第二次遍历将统计的数量写入模型。因本人不会VBA所以只能提供VB.NET代码，此代码不完整，仅供参考：
'统计数量
For i = 0 To swChidren.Length - 1
  swCom = swChidren(i)
  If swCom.IsVirtual Then
  Continue For
  End If
  If swCom.IsSuppressed Then
  Continue For
  End If
  If swCom.ExcludeFromBOM Then
  Continue For
  End If
  swGetPathName = swCom.GetPathName.ToUpper
  swcomKey = swComDict.ContainsKey(swGetPathName)
  If swcomKey = False Then
  'TextBox1.AppendText(vbCrLf & swGetPathName)
  swComDict.Add(swGetPathName, swComtmp)
  Else
  swComtmps = swComDict.Item(swGetPathName) + 1
  swComDict.Item(swGetPathName) = swComtmps
  End If
Next
'写入数量
For j = 0 To swChidren.Length - 1
  swCom = swChidren(j)
  If swCom.IsVirtual Then
  Continue For
  End If
  If swCom.IsSuppressed Then
  Continue For
  End If
  If swCom.ExcludeFromBOM Then
  Continue For
  End If
  Dim swToNama As String
  Dim swTopDocName As String
  Dim swReplaceName As String
  Dim swTopPCode As String
  Dim swTopPName As String
  Dim swConfigName As String
  swConfigName = swCom.ReferencedConfiguration
  swGetPathName = swCom.GetPathName.ToUpper
  swPathSplit = Split(swGetPathName, "")
  swToNama = swPathSplit(UBound(swPathSplit))
  swTopDocName = Microsoft.VisualBasic.Left(swToNama, Len(swToNama) - 7)
  Label1.Text = "打开模型："
  Label12.Text = swGetPathName
  swContains = swMocName.Contains(swGetPathName)
  If swContains = True Then
  Continue For
  Else
  curNode = rootNode.Nodes.Add(swTopDocName)
  swcomModel = swCom.GetModelDoc2
  swMocName.Add(swGetPathName)
  swComtmpa = swComDict.Item(swGetPathName)
  If RadioButton3.Checked = True Then
  swPropMgr = swcomModel.Extension.CustomPropertyManager("")
  Else
  swPropMgr = swcomModel.Extension.CustomPropertyManager(swConfigName)
  End If
  If RadioButton7.Checked = True Then
  swPropMgr.Add3(CustomInfoQTY, 30, swComtmpa, 1)
  If RadioButton11.Checked = True Then
  swPropMgr.Add3(CustomInfoTTY, 30, Couu, 1)
  End If
  End If

  End If
  swcomModel.Save()
Next
复制代码

meetdawn222 · 发表于 2020-3-10 20:20:03

可以分享下吗solidworks网，必须顶一下

dahaiyurui · 发表于 2020-3-10 20:20:03

可以分享下吗solidworks网，必须顶一下

lanfengzixue · 发表于 2020-3-10 20:56:34

楼主好方法！

wanwda · 发表于 2020-3-10 20:56:34

楼主好方法！

zybzyx · 发表于 2020-3-10 21:37:45

希望有vba高手整理出宏分享上来给大家用，vb.net须打包后才能使用，我这个工具还有一些功能没有完善，现在还没有打包发行，所以暂时不能分享给大家。

lantian100fh · 发表于 2020-3-10 21:37:45

加入QQ群
参与讨论和学习

或扫描二维码加入

希望有vba高手整理出宏分享上来给大家用，vb.net须打包后才能使用，我这个工具还有一些功能没有完善，现在还没有打包发行，所以暂时不能分享给大家。

wxllucky44 · 发表于 2020-3-11 08:21:18

经典案例图书

谢谢solidworks网，必须顶一下
solidworks网，必须顶一下

wwgwwg · 发表于 2020-3-12 23:16:45

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢楼主,谢谢分享

fengyuan1220 · 发表于 2020-3-12 23:16:45

经典案例图书

感谢楼主,谢谢分享

linshengwei2000 · 发表于 2020-11-16 09:10:22

不错，支持下

wangchieh · 发表于 2022-5-4 16:06:44

楼主你好，我想把数量统计宏里面增加图号分离可以吗

		自动登录	找回密码
密码			立即注册

数量统计与图号分离的新思路

最佳新人

活跃会员

宣传达人