明细表数量自动加总

yh2008

请教一下大家SW明细表中的数量怎么加总啊如下图第一层的总装配有2个，对应下面的零件应都X2
在SW明细表中怎么能自动识别的？
& ^/ e8 R8 p! D% @2 c



5 I6 o' ^  L/ q

yk2906

什么样的设备装配图的明细表需要具备数量加总

hhaa545

加方程式啊

阿帕奇

暂时理解不透你说的意思

yh2008

阿帕奇 发表于 2016-11-13 10:48
+ O( C# l+ I' z% b: m暂时理解不透你说的意思

3 P7 \$ g6 o1 i0 k0 S也就是总装配中有二个一样的装配体，但在明细表中只显示装配有2个，而下面的零件只计了1个装配体的。实际中要把下面的每个零件都是乘以2如下图

, h( m5 B) T8 W1 X4 c

yh2008

hhaa545 发表于 2016-11-12 23:29
加方程式啊

0 \9 k, |. Q4 `& V# |7 I2 H0 u, S方程式只能一个个的加，如果明细表中的零件多是不好实现的
7 T4 \+ Z% z% r0 }8 X; e/ G! o! c

erikgqp8645

1. 
   
2. Dim TopDocPathOnly As String
   - g2 c' u! _- N! N" Y
3. Dim PartsCollect() As String '遍历清单（阵列）
   ! I( u2 m0 X. k5 Z6 F
4. Dim InCollectCount As Double '遍历清单长度
   4 t- ^% ^8 G0 R# f. [9 `; V0 F2 j
5. Dim CustomInfoQTY As String
   
6. 
   7 q. Y- z" R1 I0 t2 X) ~3 X
7. Sub main()
   ' @" s, N% ?2 H5 e- Z! L7 [/ U
8. Set swapp = Application.SldWorks 'SW对象
   
9. Set TopDoc = swapp.ActiveDoc '总装对象
   
10. If TopDoc.GetType <> 2 Then Exit Sub '不是装配=退出
    
11. TopDocPathSplit = Split(TopDoc.GetPathName, "") '分割
    3 k3 ]- n: \/ ?$ A& ^
12. TopDocName = TopDocPathSplit(UBound(TopDocPathSplit)) '总装文件名称
    
13. TopDocName = Left(TopDocName, Len(TopDocName) - 7) '总装文件名称（排除.SLDASM）
    0 b7 O0 H' D- k& l' e4 B/ o7 o
14. TopDocPathOnly = Mid(TopDoc.GetPathName, 1, InStrRev(TopDoc.GetPathName, "", -1)) '总装的完整目录
    
15. TopConfString = TopDoc.GetActiveConfiguration.Name '總裝配置名稱
    
16. CustomInfoQTY = "数量" '可按个人喜好修改预设值
    
17. InCollectCount = 1 '遍历清单长度基数
    - ^& C& H2 ?$ x: \8 `$ _
18. ReDim PartsCollect(InCollectCount) '定义阵列项数
    2 i" `2 a$ u3 C. q5 V' N: H
19. SubAsm TopDoc, TopConfString '遍历
    ! P, C# s; m% P" a3 s6 ~
20. Beep
    1 m% r* j) D3 V4 i
21. MsgBox "完成"
    
22. End Sub
    
23. 
    
24. Function SubAsm(AsmDoc, ConfString)
    
25. Set Configuration = AsmDoc.GetConfigurationByName(ConfString)
    
26. Set RootComponent = Configuration.GetRootComponent
    8 E& L9 I! j% [- V) R$ @
27. Components = RootComponent.GetChildren
    0 b/ }) g9 ?( w
28. For Each Child In Components
    , B3 k6 F1 K7 j+ }9 S
29.     Set ChildModel = Child.GetModelDoc
    
30.     If Not (ChildModel Is Nothing) Then '排除抑制及轻化
    ; R" Q, w" L; o
31.         ChildConfString = Child.ReferencedConfiguration '零件配置名称
    ' A9 M) Q5 ~4 p7 F' i8 T
32.         ChildType = ChildModel.GetType
    & ]# A* o* A8 c7 W2 ~$ i
33.         ChildPathSplit = Split(Child.GetPathName, "") '分割
    
34.         ChildName = ChildPathSplit(UBound(ChildPathSplit)) '零件文件名称
    ! h+ n9 X5 d6 z' w# _: A/ v
35.         
    
36.         ChildPathOnly = Mid(Child.GetPathName, 1, InStrRev(Child.GetPathName, "", -1)) '零件的完整目录
    
37.         If ChildPathOnly = Replace(ChildPathOnly, TopDocPathOnly, "") Then SamePath = False Else SamePath = True '零件是否在总装目录或往下目录
    
38.         
    
39.         If SamePath And (Not Child.ExcludeFromBOM) And (Not Child.IsEnvelope) Then '跳過：不在总装目錄或其往下目錄 或 不包括在材料明細表中 或 是个封套
    - j; J. \; S- |: R5 }* ~6 m& V
40. '        If (Not Child.ExcludeFromBOM) And (Not Child.IsEnvelope) Then '跳过：不包括在材料明細表中 及 封套
    
41.             UNIT_OF_MEASURE_Name = ChildModel.CustomInfo2(ChildConfString, "UNIT_OF_MEASURE") '备用量属性名称
    
42.             UNIT_OF_MEASURE = ChildModel.CustomInfo2(ChildConfString, UNIT_OF_MEASURE_Name) '备用量
    
43.             If (UNIT_OF_MEASURE = 0) Or (UNIT_OF_MEASURE = "") Then UNIT_OF_MEASURE = 1 '备用量除错
    
44.             inCollect = False '重置判断变量
    0 E# g3 y/ k4 M% ]. t
45.             For Each PartinCollect In PartsCollect '判断是否已在遍历清单內
    , @" w7 w% A4 l9 j" U3 Q
46.                 If ChildConfString & "@" & ChildName = PartinCollect Then inCollect = True
    8 C7 R/ a; j+ ^" F. N
47.             Next
    
48.             If inCollect Then '已在遍历清单內
    
49.                 ht_Qty = ChildModel.CustomInfo2(ChildConfString, CustomInfoQTY) + 1 * UNIT_OF_MEASURE
    7 d5 a3 @( J1 U: m( {" D( H
50.                 ChildModel.DeleteCustomInfo2 ChildConfString, CustomInfoQTY
    
51.                 ChildModel.AddCustomInfo3 ChildConfString, CustomInfoQTY, 30, ht_Qty
    0 |) u& `! g, i3 d, @1 L8 a$ @
52.             Else '不在遍历清单內（首次处理）
    " @' ^0 q) P$ w: m
53.                 ChildModel.DeleteCustomInfo2 ChildConfString, CustomInfoQTY
    
54.                 ChildModel.AddCustomInfo3 ChildConfString, CustomInfoQTY, 30, UNIT_OF_MEASURE
    0 F4 K. h+ i4 L, }
55.                 InCollectCount = InCollectCount + 1 '遍历清单长度基数+1
    % U% c9 p. ~7 w% {' C
56.                 ReDim Preserve PartsCollect(InCollectCount) '重新定义阵列项数（保留內含数据）
    
57.                 PartsCollect(InCollectCount - 1) = ChildConfString & "@" & ChildName '加入到遍历清单中
      O9 e2 _. w3 A0 Z
58.                 ChildModel.SetUserPreferenceIntegerValue swUnitSystem, swUnitSystem_Custom '单位系统=Custom
    * N  A# F5 k! z, L# v* M8 L4 R$ A
59.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropMass, swUnitsMassPropMass_Kilograms '重量单位设定为kg（可按喜好加入設定）
    
60.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropLength, swMM '设定长度单位为毫米
    
61.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropVolume, swUnitsMassPropVolume_Centimeters3 '设定体积单位为立方厘米
    
62.                 ChildModel.SetUserPreferenceIntegerValue swUnitsMassPropDecimalPlaces, 2 '质量及体积小数点后2位
    
63.                 ChildModel.AddCustomInfo3 "", "Weight", 30, Chr(34) & "SW-Mass@*" & ChildName & Chr(34) '在自订属性加入Weight属性
    
64.                 ChildModel.AddCustomInfo3 "", "Material", 30, Chr(34) & "SW-Material@*" & ChildName & Chr(34) '在自订属性加入Material属性
    $ `  P) d, @  y% x1 k
65.                 ChildModel.AddCustomInfo3 ChildConfString, "Weight", 30, Chr(34) & "SW-Mass@@" & ChildConfString & "@*" & ChildName & Chr(34) '在配置特定加入Weight属性
    
66.                 ChildModel.AddCustomInfo3 ChildConfString, "Material", 30, Chr(34) & "SW-Material@@" & ChildConfString & "@*" & ChildName & Chr(34) '在配置特定加入Material属性
    
67.                 ChildModel.SketchManager.Insert3DSketch True '插入三低草图，从而激活零件的“需存盘标签”
    * R+ n/ ^% ]3 E* e- O) a
68.                 ChildModel.SketchManager.Insert3DSketch True '离开三低草图
    : ^( K2 P( {4 m) t/ n" s' l7 {
69.             End If
    , L5 A& S" V+ o( S5 u& Y4 Q! u
70.             If ChildType = 2 Then
    ( @& E; E5 Y2 F: e+ @
71.                 SubAsm ChildModel, ChildConfString '如果是装配则向下遍历
    
72.             End If
    9 @8 s  t8 X* I3 C8 q, f2 ?: U
73.             
    
74.         End If
    # L3 S$ Y- l" ~# F
75.     End If
    
76. Next
    
77. End Function
    
78.    
    

复制代码

erikgqp8645

8 ^; d& ]0 I, b; F
1 Q0 j: W7 Z( }' f+ u) V试试上面那段代码原文来自http://bbs.icax.org/thread-913002-13-1.html
附件是上面那个代码的宏程序。
使用方法，在装配体中运行宏，就会添加总数量。

yk2906

明细表要么只体现装配体，要么全部是零件，而装配体与零件混杂的明细表中，子装配体中的零件数量仍体现的是单个子装配体中的数量。这才符合逻辑，而楼主的需要明显是瞎胡闹

erikgqp8645

yk2906 发表于 2016-11-14 20:11
明细表要么只体现装配体，要么全部是零件，而装配体与零件混杂的明细表中，子装配体中的零件数量仍体现的是 ...

这位兄台，我并不是这么认为的。
9 V: [, H" W# ^3 J6 O$ D对于没有erp的公司而言，你要提交的bom或者说图纸上是要包含数量的，便于更好的加工。
# ]; D; W, M: t6 O6 C# F做图纸的是要给加工部门看的，而大家方便了自然也可以不那么符合逻辑。
! C, a6 o9 n7 e. {上面的宏程序可以在把数量改为“总数量”单独在bom上加一列，这样看起来更加直观。

yh2008

erikgqp8645 发表于 2016-11-15 08:04
这位兄台，我并不是这么认为的。
( k4 Z/ d# b' W0 E, p对于没有erp的公司而言，你要提交的bom或者说图纸上是要包含数量的，便 ...

4 z! @# ^, ~% y/ m1 G: a8 k有时可能相同的装配体的2组 或3组 或1组的
0 m; h' q) u' n1 y那到对应的装配体下面的零件是就是X2  X3  X1是不相同的

jianmuguo

你的这个我大体理解什么意思了 ，就是把不同的或者相同的部件中共同使用件数做个统计是吧？如果是这样的话，我一般做两个明细表，一个是零件BOM,跟总成下的部件BOM

erikgqp8645

yh2008 发表于 2016-11-18 08:07
1 s, \, z6 c$ t! q# h9 }有时可能相同的装配体的2组 或3组 或1组的
那到对应的装配体下面的零件是就是X2  X3  X1是不相同的

! s+ D: ]( k2 T2 l  U2 ]' V上面那个宏就是实现这个功能的。
假如你一个装配体里面有两个组件，分别为a和b。
, \3 h8 q# H, u  V# {2 [6 r其中有个零件c在这两个组件里面都有。
% K7 p5 b" j! z% e, L运行上面那段宏就可以添加一个总数量的属性，就是在这个装配体里面的总数量。

NC@jiang@nan

晕，没有ERP系统，也没有生产计划部？
9 X5 v: Z1 j. s% r6 @图纸上不带这样表示的吧？
最多再另出一个总计算的表格吧？

jinqin11

鼠标放在行内点击右键 出现图示快捷菜单  选择 组合相同的零部件 如图完成后零件的图标后面出现一个双箭头的图标，数字也变了

yh2008

jinqin11 发表于 2016-11-18 21:03
) P7 t! }6 z  o( ]& M8 C鼠标放在行内点击右键 出现图示快捷菜单  选择 组合相同的零部件 如图完成后零件的图标后面出现一个双箭头 ...

这样会把所有相同的零件组合在一起，实际上有些零件还是要分开的

大鹿

yh2008 发表于 2016-11-19 08:22
这样会把所有相同的零件组合在一起，实际上有些零件还是要分开的

# _% m+ m6 K2 t, q楼主大大明明白白在问“加总”，怎么又说“分开”。

7 U3 g2 J0 S3 l& d' h8 ?原来在问“小计”（subtotal）。

hhaa545

yh2008 发表于 2016-11-14 08:51 static/image/common/back.gif
. Q) g' ^" K/ E7 T1 M方程式只能一个个的加，如果明细表中的零件多是不好实现的

$ _3 |' w9 Z) |' z7 }可以实现的

hhaa545

yh2008 发表于 2016-11-14 08:51 static/image/common/back.gif
方程式只能一个个的加，如果明细表中的零件多是不好实现的

  Q% S: k) P8 N: u0 t6 L要是不明白就加我Q726915950说是三维网的
8 m  p% n+ M4 F4 k, E7 I' k) {3 y

gt.adan

贊同#9、#10的「部份」內容。

就我個人而言，這樣的表示方法並沒有問題呀~
我想這是對於此種「階梯式」的零件圖產生的誤解而衍生出的問題，而且還不少人有這樣的疑惑~
* W+ p( p% x7 p/ W
0 }2 \% s; ]% L. c9 a; ~8 k! f階梯式表達的數量欄位的值，指的是在「這一層」次組件的單用量，這樣去想就沒有錯了。
, |4 J; @2 ?( h' v試想，如果有像我一樣解讀的人來看樓主要求的BOM，那麼數量要如何計算才是對的？

如果要顯示一零件在總裝配裡的使用量，那麼就不應該使用階梯式了。
4 ]' D9 I' l, C4 h1 t
% }" X% z) M& o4 d3 Z% x而這也呼應了大鹿先生說的「小計」。
& z. X) Y7 d6 ^/ C1 c# Z

8 S! o7 c5 o% ?7 w% b, w" o

yh2008

大鹿 发表于 2016-11-19 11:43
% Q3 o$ G/ R. X, U' |楼主大大明明白白在问“加总”，怎么又说“分开”。

原来在问“小计”（subtotal）。

: [* v/ R  o& H- K- N是的可以说是小计

yh2008

gt.adan 发表于 2016-11-20 11:30
贊同#9、#10的「部份」內容。

就我個人而言，這樣的表示方法並沒有問題呀~

SW的表现方式是对的，只是在计算时会出现一个小计数量，
现在就是想怎么直接出现小计的结果，因为零件要在EXCEL中计算成本
4 S' ~0 m6 L, Y: F目前的做法是手动修改数量，缺点就是有时可能漏
不知大家有没有什么好的方法

amore2020

erikgqp8645 发表于 2016-11-14 16:54
/ J6 f8 v" E) g& y( b试试上面那段代码原文来自http://bbs.icax.org/thread-913002-13-1.html
附件是上面那个代码的宏程序。
4 |2 K! A$ O  g& J ...

: _3 g  b7 Z$ U. |0 n我试了这个宏 为什么不行啊？

lfy710

其实是有同感的。我的办法是做两张BOM表。一个是阶梯的，一个是总数的。