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

ning84

- g' i3 v- j  J7 @常用方法是人工选择单元格，隐藏选择行。
% F( s, |2 Z7 D" @5 _
) H# D3 j! B8 j' m- B" J请问，还有什么更简单快速的方法，隐藏选择材料明细表时的行。

" W( v% p; V- n" v% N( f

1 c' c$ W, O/ ~0 F+ O6 `

ning84

用API解决，没找到隐藏单元行的指令。只能用.text(ii,6)来判断。
" j! V2 ?, m8 _% r3 G, g" S& i用API解决的问题，厚度排序和合并，下料尺寸排序。

1. 
   
2. 
   5 q8 a6 c$ C: e6 |6 d
3. Function TitleBomPlateBom()
   
4.    Dim Arr, cArr, wArr
   7 O* S. p+ a8 O6 M& C3 F
5.       cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")
   
6.       Arr = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")
   . Q$ n; b2 o; S4 f. v  i
7.       wArr = Array(10, 25, 50, 12, 25, 15, 18, 25)
   
8.       
   
9.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   
10.        Set SwApp = Application.SldWorks
    
11.        Set SwModel = SwApp.ActiveDoc
    
12.    Dim SwSelMgr As SelectionMgr, tmp
    
13.        Set SwSelMgr = SwModel.SelectionManager
    $ A/ e- X* p  F" ~
14.    Dim SwBomFeat As BomFeature, SwBomTabAnn As BomTableAnnotation
    
15.        tmp = SwModel.Extension.SelectByID2("TitleBom", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    
16.        Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
    0 e* A9 d7 c* R+ r
17.        Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    ; L0 P; q: j0 z5 P7 {" Q* j/ J' i
18.        'Debug.Print SwBomTabAnn.BomFeature.GetFeature.Name
    
19.    Dim SwTabAnn As TableAnnotation, Str, SwAnn As Annotation
    8 y; @0 i. a8 T  b1 M# J
20.        Set SwTabAnn = SwBomTabAnn
    
21.    Dim Xx, Yy
      T9 K) s7 h1 E, d  [6 K3 J
22.        Xx = 420 - 5
    ) f  M5 ~2 {, I! A4 x
23.        Xx = Xx / 1000
    5 _( ~0 }; R7 @# E6 E4 B# r
24.        Yy = 30 / 1000
    ) J' }+ e, Q) f. L# _( F! r5 |2 |
25.        ''
    7 G) a. Y/ V- y- r- E0 j. U$ j
26.        With SwTabAnn
    
27.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
    
28.              .SetColumnWidth jj, wArr(jj) / 1000, 0
    " v7 a) w8 T$ K. V2 C
29.              .SetColumnTitle jj, cArr(jj)
    
30.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)
    ! v7 |! a( {9 Q8 a  ~; ~
31.           Next jj
    4 }7 U0 _6 ~+ L# F$ Q
32.           For ii = 0 To .RowCount
    
33.              If ii = .RowCount Then
    
34.                 .SetRowHeight ii, 0.01, 0
    
35.              Else
    
36.                 .SetRowHeight ii, 0.005, 0
    , V6 J: F5 a# T1 k' f# c
37.              End If
    
38.           Next ii
    " j4 g0 c8 B$ ~; G# c+ {# E
39.           .AnchorType = swBOMConfigurationAnchor_BottomRight
    : X6 Z8 Z( \& R! l! ], B) ^2 Y
40.           Set SwAnn = .GetAnnotation
    7 i! p& I* [! C+ g
41.           SwAnn.SetPosition Xx, Yy, 0
    
42.        End With
    
43. 
    % @% X% y' F* E3 j+ }  h& f" V
44. End Function
    
45. 
    
46. 
    # O$ {/ {3 P' L4 Y% J+ b: n

复制代码

/ g3 _2 ]5 p" i, Z5 q

1. 
   
2. ''
   
3. Function MainPlateBOM(SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation, cArr, Arr, wArr, Xx, Yy, oAnchorType)
   5 D% }8 i1 b1 `3 ^* Q; g- W
4.        Xx = Xx / 1000
   
5.        Yy = Yy / 1000
     h' ?7 R3 Q. h4 f3 O- }: C" @
6.        ''
   
7.        With SwTabAnn
   + h% n$ f& x- Q! t. @
8.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
   
9.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)
   8 L* S( b! u( R# u
10.              .SetColumnTitle jj, cArr(jj)
    3 G; u% d- H6 W% s  N  @
11.              .SetColumnWidth jj, wArr(jj) / 1000, 0
    
12.           Next jj
    . }. M6 t8 F4 @" L+ `
13.           For ii = 0 To .RowCount
    
14.              If ii = .RowCount Then
    ) f2 \5 ]1 x, K$ l; \
15.                 .SetRowHeight ii, 0.01, 0
    , T+ H9 q: w" O
16.              Else
    
17.                 .SetRowHeight ii, 0.005, 0
    
18.              End If
    
19.           Next ii
    3 y, b8 D% r  _0 E0 _. K
20.           .AnchorType = oAnchorType
    % Y6 u1 ?# r- \9 M  R
21.           Set SwAnn = .GetAnnotation
    , a6 w. b$ ^+ e& m* d1 ^% v4 |
22.           SwAnn.SetPosition Xx, Yy, 0
    ( a) d6 }4 e- s, q+ g5 C# }2 W1 ^
23.        End With
    ' s& Y/ I9 k, n; Q( O
24. End Function
    + u, r6 f8 `7 D1 R4 M5 g9 l' l( ?
25. Private Sub ChangeBOM()
    
26.     Dim T: T = Timer
    
27.     Dim Arr(1), cArr(1), wArr(1)
    * o, T; b+ x2 a
28.       cArr(0) = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")
    
29.       Arr(0) = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")
    9 ]' s4 Q( G8 A8 j+ l9 _, q/ E% J
30.       wArr(0) = Array(10, 25, 50, 12, 25, 15, 18, 25)
    + s5 D6 w; \0 _
31.       ''
    
32.       cArr(1) = Array("件号", "名    称", "模型质量", "下料尺寸", "下料质量", "数量", "材料", "δ", "下料质量-模型质量", "备  注")
    8 X& @9 ^! J" q
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
    2 ~0 X, P$ R0 d4 E, @; d5 e3 L
38.         Set SwApp = Application.SldWorks
    ' n7 H2 v5 o! W# v! j
39.         Set SwModel = SwApp.ActiveDoc
    . R5 d' }# ~2 Y- `' ?7 \7 D5 S
40.     Dim SwSelMgr As SelectionMgr
    ! c: _9 p; s+ ~9 Y$ B7 z3 |' P
41.         Set SwSelMgr = SwModel.SelectionManager
    
42.     Dim SwFeat As Feature, SwBomFeat As BomFeature
    # ^' `8 ^6 Z, x4 m
43.    
    
44.     Dim SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation
    7 T  t( n( ], t/ @. I& s
45.         Set SwFeat = SwModel.FirstFeature
      [# d" |9 D4 J/ l0 F
46.         Do While Not SwFeat Is Nothing
    ) w( D& d2 ~7 }( W2 Z4 J7 ]
47.            '''
    7 r1 @/ m& v3 L+ V( x/ q& n
48.            If UCase(SwFeat.Name) Like "*BOM*" And SwFeat.GetTypeName = "BomFeat" Then
    
49.               'SwFeat.Select True
    ) a( p' ~7 @3 ^- i4 L- k
50.               Set SwBomFeat = SwFeat.GetSpecificFeature2  ' SwSelMgr.GetSelectedObject5(1)
    % {* E  ?% i6 S4 t, y
51.               Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    
52.               Debug.Print SwBomFeat.GetFeature.Name
    6 I& I7 U. @  @- U/ {# V% L7 d0 D
53.               Set SwTabAnn = SwBomTabAnn
    
54.               'Debug.Print SwFeat.Name, SwFeat.GetTypeName
    * G; E3 C8 n/ C+ m2 F1 u' `
55.               If UCase(SwFeat.Name) Like "*MAIN*" Then
    
56.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(0), Arr(0), wArr(0), 420 - 5, 30, swBOMConfigurationAnchor_BottomRight
    ' [2 g* f7 P9 Z& i) E
57.                    ''
    
58.               ElseIf UCase(SwFeat.Name) Like "*PLATE*" Then
    
59.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(1), Arr(1), wArr(1), 25, 5, swBOMConfigurationAnchor_BottomLeft
    4 A. Z5 L1 p8 F" k% x
60.                     With SwTabAnn '
      |, h  H) |7 A/ R% Y
61.                        For ii = .RowCount To 0 Step -1
    4 S4 L3 u; h/ k1 S0 V3 r
62.                          If .Text(ii, 3) Like "*板材*" Then
    7 Z) G# y0 I* {7 x
63.                             Debug.Print .Text(ii, 6)
    7 N8 Y3 k; l9 t- a9 U. @5 x+ ]
64.                          Else
    " ?0 G: @# ~$ R7 L& z. b
65.                            .DeleteRow (ii)
    + I& h2 x- {8 O1 N6 K' O  g
66.                          End If
    
67.                        Next ii
    
68.                     End With
    
69. 
    
70.               End If
    
71.               Debug.Print "SWBOMFEAT", SwBomFeat.GetFeature.Name
    
72.            PrintTiming T
    4 b- H# x: k6 y
73.            End If
    
74.            Set SwFeat = SwFeat.GetNextFeature
    
75.            SwModel.ClearSelection2 True
    
76.            
    ! p! j7 N: q/ R9 _9 M& h) h* l
77.         Loop
    6 Q5 {8 C& c% `) u) _$ \$ F
78. End Sub
    

复制代码

( a2 s1 v5 P7 a, m; a9 K



. W$ I9 F) [6 A, [
3 [; M! M" @# I* P2 t* x  v8 f

jinqin11

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

qiminger

原来要排列下料单，导出在Excel中进行吧。

阿帕奇

寂静天花板 发表于 2016-2-12 09:32
5 y; D- C7 a2 @# F, \肯定是你选中哪个，才会有下一步的选择，否则软件知道你要干什么。

我看懂了
4 q) X+ q( k" Z* L# @7 e9 X: U楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
具体为：选择命令后选择要执行的部位；选择要执行的部位再选择要执行的命令
楼主倾向于选择命令后选择要执行的部位

机器人@换@人

阿帕奇 发表于 2016-2-13 21:28
我看懂了
. i' v' `( }- H" j/ ~楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
: x1 A2 q& A4 x7 M! H% T具体为：选择命令后选择要 ...

高手，这个解释太精辟了

啥都没准

阿帕奇 发表于 2016-2-13 21:28
+ v% o+ I% m; y我看懂了
楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
2 T; U0 k8 P, Z具体为：选择命令后选择要 ...

还是武直10一语中的

阿帕奇

啥都没准 发表于 2016-2-17 13:13 static/image/common/back.gif
& n% \; [& t6 r7 e% i! V还是武直10一语中的

$ ?& G! C7 A* O6 K7 p- C* vhttp://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/31.png那是谁啊

啥都没准

阿帕奇 发表于 2016-2-21 20:50
7 J' t1 {' R" v: d9 s0 U, H8 X那是谁啊

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

阿帕奇

啥都没准 发表于 2016-2-22 08:29 static/image/common/back.gif
+ ?2 ?1 U& s- ?& F) Y哈哈，玩笑话！武直10”外形“是高仿版的阿帕奇

. }9 F' w: z5 B+ S. ], umade in china啊http://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/03.png
* _3 m! f7 k6 Q: c# y1 I