如何快速隐藏材料明细表的行。

ning84

常用方法是人工选择单元格，隐藏选择行。
$ v+ I" o, H) a! B
. y" m' K$ [* B1 M+ f, c: |请问，还有什么更简单快速的方法，隐藏选择材料明细表时的行。



- C7 N$ b* Z" o7 q; |. I) G

ning84

用API解决，没找到隐藏单元行的指令。只能用.text(ii,6)来判断。
6 Y5 C! w( ]: ]1 N6 B用API解决的问题，厚度排序和合并，下料尺寸排序。
  }+ g! D7 j- V5 Q0 z4 C

1. 
   3 ^. `+ o  S3 v# [% E  [! M
2. 
   + f7 q9 s- n  c/ H5 D
3. Function TitleBomPlateBom()
   
4.    Dim Arr, cArr, wArr
   1 X0 |# w# |7 V/ y0 [; D8 `& R
5.       cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")
   
6.       Arr = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")
   ! i2 y) e8 T8 E; ?# y) M
7.       wArr = Array(10, 25, 50, 12, 25, 15, 18, 25)
   0 i( W1 o9 X* @1 \
8.       
   
9.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   
10.        Set SwApp = Application.SldWorks
    
11.        Set SwModel = SwApp.ActiveDoc
    * H7 t" W+ v5 D4 t
12.    Dim SwSelMgr As SelectionMgr, tmp
    ! q2 I9 U% X' m! s
13.        Set SwSelMgr = SwModel.SelectionManager
    3 M5 C: t0 P2 g( [+ \4 _+ J# |$ t4 s
14.    Dim SwBomFeat As BomFeature, SwBomTabAnn As BomTableAnnotation
    : \% U, z" u# T: x, S
15.        tmp = SwModel.Extension.SelectByID2("TitleBom", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    
16.        Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
    ; c- y& y$ M5 n# T, r
17.        Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    1 d1 e% ^, x! c- _! q$ [' ?# |
18.        'Debug.Print SwBomTabAnn.BomFeature.GetFeature.Name
    2 w& E  b0 _9 P4 r, [
19.    Dim SwTabAnn As TableAnnotation, Str, SwAnn As Annotation
    & B+ J: T" Z% l2 F  s
20.        Set SwTabAnn = SwBomTabAnn
    9 J; H  I9 l& P
21.    Dim Xx, Yy
    / `4 O: a: i5 e( T; t* u
22.        Xx = 420 - 5
    ' `- x7 A& G% |3 R! ~
23.        Xx = Xx / 1000
    9 N+ z) u! ]0 H: L
24.        Yy = 30 / 1000
    ; X. s; T: K4 {- X, C* R& r
25.        ''
    
26.        With SwTabAnn
    ! V+ C) P/ G$ N
27.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
    
28.              .SetColumnWidth jj, wArr(jj) / 1000, 0
    
29.              .SetColumnTitle jj, cArr(jj)
    
30.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)
    
31.           Next jj
    - ]2 n" g- a. L& Y/ B
32.           For ii = 0 To .RowCount
    8 q  B- {- v' d! y3 b+ I
33.              If ii = .RowCount Then
    
34.                 .SetRowHeight ii, 0.01, 0
    " y& [" s, ~4 A7 x! M
35.              Else
    % ]1 t5 {. A% e0 V) s: {" @! N1 t
36.                 .SetRowHeight ii, 0.005, 0
    8 G0 U- f2 `: [* z, x' B! K
37.              End If
    & W  N( j$ u1 b+ Y
38.           Next ii
    . f  v: p' ~3 `; C
39.           .AnchorType = swBOMConfigurationAnchor_BottomRight
    
40.           Set SwAnn = .GetAnnotation
    
41.           SwAnn.SetPosition Xx, Yy, 0
    , U" g1 N' r5 a( A9 R7 z
42.        End With
    * g4 C8 `. z( \5 L8 B
43. 
    
44. End Function
    . V9 Q7 v: {% e# _; q
45. 
    
46. 
    

复制代码

8 p1 b" y8 }: Q$ y# o8 h$ y5 r

1. 
   
2. ''
   
3. Function MainPlateBOM(SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation, cArr, Arr, wArr, Xx, Yy, oAnchorType)
   
4.        Xx = Xx / 1000
   ! W" I3 \1 Z& z+ f6 z
5.        Yy = Yy / 1000
   
6.        ''
   : e7 R9 W- d1 J: p1 `& I+ y9 ^, ]
7.        With SwTabAnn
   
8.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
   
9.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)
   
10.              .SetColumnTitle jj, cArr(jj)
    
11.              .SetColumnWidth jj, wArr(jj) / 1000, 0
    
12.           Next jj
    1 D0 b$ Z* L' O" g# l7 x
13.           For ii = 0 To .RowCount
    7 m/ m0 ?% x: ?% O4 C: ~
14.              If ii = .RowCount Then
    
15.                 .SetRowHeight ii, 0.01, 0
    . u) m* w" s5 U# b4 Q$ Y
16.              Else
    
17.                 .SetRowHeight ii, 0.005, 0
    
18.              End If
    
19.           Next ii
    4 ~% A/ k! d( x+ o
20.           .AnchorType = oAnchorType
    / T+ ?4 j) o3 i" D
21.           Set SwAnn = .GetAnnotation
    1 f/ U0 l3 [5 U; e( b0 `! h# H6 s
22.           SwAnn.SetPosition Xx, Yy, 0
    6 g0 H4 V; f5 i# V: E$ f
23.        End With
    
24. End Function
    4 w0 c+ t! D9 T* {% D" d1 Z1 u
25. Private Sub ChangeBOM()
    , q+ f6 ]/ L0 l" h; H5 g- j3 @
26.     Dim T: T = Timer
    6 j# b% W9 D8 i1 m
27.     Dim Arr(1), cArr(1), wArr(1)
    1 h- D5 ~4 H: k6 J9 h
28.       cArr(0) = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")
    : j& c  e. M, h3 L; P
29.       Arr(0) = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")
    
30.       wArr(0) = Array(10, 25, 50, 12, 25, 15, 18, 25)
    * ]. G1 H# E9 x6 g) T+ E
31.       ''
    
32.       cArr(1) = Array("件号", "名    称", "模型质量", "下料尺寸", "下料质量", "数量", "材料", "δ", "下料质量-模型质量", "备  注")
    ) N) j* M8 U* d3 W: n, M! Z
33.       Arr(1) = Array("件号", "名称", "质量", "下料尺寸", "下料质量", "", "材料", "δ", "", "")
    
34.       wArr(1) = Array(10, 40, 15, 35, 15, 10, 20, 8, 40, 15)
    
35.    
    
36.    
    
37.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
    
38.         Set SwApp = Application.SldWorks
      G' L4 H9 e$ ^& \' E' _
39.         Set SwModel = SwApp.ActiveDoc
    
40.     Dim SwSelMgr As SelectionMgr
    
41.         Set SwSelMgr = SwModel.SelectionManager
    
42.     Dim SwFeat As Feature, SwBomFeat As BomFeature
    7 k0 w  H6 V( _" h6 e, d4 U+ j
43.    
    0 t7 z& `+ Z6 {  c* _
44.     Dim SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation
      |; P, s. L0 t; }8 x
45.         Set SwFeat = SwModel.FirstFeature
    
46.         Do While Not SwFeat Is Nothing
    
47.            '''
    
48.            If UCase(SwFeat.Name) Like "*BOM*" And SwFeat.GetTypeName = "BomFeat" Then
    % L" {9 D( E4 h) z$ ^
49.               'SwFeat.Select True
    
50.               Set SwBomFeat = SwFeat.GetSpecificFeature2  ' SwSelMgr.GetSelectedObject5(1)
    0 A8 z3 j/ a7 j8 F; ^6 n: C/ F
51.               Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    4 ^  W7 \/ Z0 h  _
52.               Debug.Print SwBomFeat.GetFeature.Name
    % F& \3 J! E+ p0 `9 ?5 [
53.               Set SwTabAnn = SwBomTabAnn
    
54.               'Debug.Print SwFeat.Name, SwFeat.GetTypeName
      ?- Y& e3 o. j
55.               If UCase(SwFeat.Name) Like "*MAIN*" Then
    
56.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(0), Arr(0), wArr(0), 420 - 5, 30, swBOMConfigurationAnchor_BottomRight
    
57.                    ''
    2 ]) b' {% g* y( c# `9 o- {
58.               ElseIf UCase(SwFeat.Name) Like "*PLATE*" Then
    
59.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(1), Arr(1), wArr(1), 25, 5, swBOMConfigurationAnchor_BottomLeft
    
60.                     With SwTabAnn '
    8 O  `, B* l5 s' o4 m
61.                        For ii = .RowCount To 0 Step -1
    3 S+ r9 d+ C# J1 N
62.                          If .Text(ii, 3) Like "*板材*" Then
    5 e) m9 |7 L) p& X  E3 y
63.                             Debug.Print .Text(ii, 6)
    - {, O3 T% t" {6 E( a$ H
64.                          Else
    
65.                            .DeleteRow (ii)
    . K9 S1 H$ l+ f# q! `
66.                          End If
    ! Y+ c  E7 A+ |6 Z
67.                        Next ii
    
68.                     End With
    - S0 J* s  W& Z" D7 ~' N8 d
69. 
    
70.               End If
    : B/ p* L6 T' `( F5 L4 L
71.               Debug.Print "SWBOMFEAT", SwBomFeat.GetFeature.Name
    
72.            PrintTiming T
    
73.            End If
    
74.            Set SwFeat = SwFeat.GetNextFeature
    
75.            SwModel.ClearSelection2 True
    
76.            
    
77.         Loop
    ! \% ^( o3 H6 V5 O! j+ G
78. End Sub
    - O  x" W* D3 J7 E4 h- V4 ~

复制代码

* F1 G) p# p6 h
) C) j0 I( `6 Q2 D
8 ]# @+ c( U/ p7 O/ N1 z
( _$ j) Y; o; N7 i/ s
* x: f) `7 ^$ a& ?/ A9 B! w# z

jinqin11

用shift选择头和尾，用crl剔除多余的，然后点隐藏

qiminger

' g5 k" ~7 ?7 W) t0 G原来要排列下料单，导出在Excel中进行吧。

阿帕奇

寂静天花板 发表于 2016-2-12 09:32
7 Z* A$ |  H; W) K: c肯定是你选中哪个，才会有下一步的选择，否则软件知道你要干什么。

我看懂了
: z5 D8 }! M" e( }楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
具体为：选择命令后选择要执行的部位；选择要执行的部位再选择要执行的命令
% {, \4 U4 {4 l楼主倾向于选择命令后选择要执行的部位

机器人@换@人

阿帕奇 发表于 2016-2-13 21:28
我看懂了
楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
" F& t( }6 Q: y) n4 x/ R具体为：选择命令后选择要 ...

9 Z$ [/ j5 s, o; U  `2 s高手，这个解释太精辟了

啥都没准

阿帕奇 发表于 2016-2-13 21:28
我看懂了
" s7 O4 p, o5 v4 S* ^楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
具体为：选择命令后选择要 ...

- I2 X2 _" J% C8 r还是武直10一语中的

阿帕奇

啥都没准 发表于 2016-2-17 13:13 static/image/common/back.gif
还是武直10一语中的

http://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/31.png那是谁啊
8 G$ W* F4 A" p

啥都没准

阿帕奇 发表于 2016-2-21 20:50
' g$ E! b$ Q  p+ D5 [那是谁啊

哈哈，玩笑话！武直10”外形“是高仿版的阿帕奇

阿帕奇

啥都没准 发表于 2016-2-22 08:29 static/image/common/back.gif
& Y* k/ X5 k2 R, \哈哈，玩笑话！武直10”外形“是高仿版的阿帕奇

made in china啊http://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/03.png
3 e5 b8 [  G: \1 m1 ?2 C% P