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

ning84

: o) u3 V# p4 G1 Y  ^0 b$ m# g; P常用方法是人工选择单元格，隐藏选择行。
  v" D8 u0 F6 d4 {) Q0 t; Z$ |  J+ _
  X7 ~5 ?- _, y* K( _8 c: s4 `请问，还有什么更简单快速的方法，隐藏选择材料明细表时的行。


" u1 I# ~* O' Z( A# f
7 ~! g' A, _4 Z& ]2 B$ \# o
8 g! k! u0 Q. L* Z4 w4 W

ning84

用API解决，没找到隐藏单元行的指令。只能用.text(ii,6)来判断。
' t8 w" p& U/ q5 E: l* X  g# M2 b用API解决的问题，厚度排序和合并，下料尺寸排序。

1. 
   # H4 O+ \& I4 u# P: j
2. 
   ( H7 W2 f7 ], H7 H' K3 q
3. Function TitleBomPlateBom()
   
4.    Dim Arr, cArr, wArr
   
5.       cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")
   
6.       Arr = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")
   
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
    6 k8 c9 x, E8 P* Q+ A
12.    Dim SwSelMgr As SelectionMgr, tmp
    + Y9 G- y7 e; L6 o3 d
13.        Set SwSelMgr = SwModel.SelectionManager
    5 |6 c  z% B/ v' W$ O3 V" X" [# E
14.    Dim SwBomFeat As BomFeature, SwBomTabAnn As BomTableAnnotation
    
15.        tmp = SwModel.Extension.SelectByID2("TitleBom", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    5 {# `5 L/ _0 |. A+ y' e$ ]( {* J# U
16.        Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
    
17.        Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    
18.        'Debug.Print SwBomTabAnn.BomFeature.GetFeature.Name
    ) G; u/ M* W# w+ o, ?6 S
19.    Dim SwTabAnn As TableAnnotation, Str, SwAnn As Annotation
    
20.        Set SwTabAnn = SwBomTabAnn
    : p; N0 M- N3 |; i6 J0 l8 L
21.    Dim Xx, Yy
    
22.        Xx = 420 - 5
    : o) x# J0 I1 S) N
23.        Xx = Xx / 1000
    
24.        Yy = 30 / 1000
    
25.        ''
    8 p- d2 y/ a  _( o  f& U1 [
26.        With SwTabAnn
    , O" d! B" u3 G4 @- V/ X4 b' u+ v
27.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
    9 p- v2 r3 o1 l6 x, d
28.              .SetColumnWidth jj, wArr(jj) / 1000, 0
    
29.              .SetColumnTitle jj, cArr(jj)
    " t7 S: ^5 p" O" F
30.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)
    + e  j- w  a8 `; P& P- U4 ?( r
31.           Next jj
    ' {' z; z0 C1 s" w& H
32.           For ii = 0 To .RowCount
      G$ f' Q0 `5 R7 W( ^: ^
33.              If ii = .RowCount Then
    
34.                 .SetRowHeight ii, 0.01, 0
    
35.              Else
    2 C/ O3 g4 O( r, u; p
36.                 .SetRowHeight ii, 0.005, 0
    
37.              End If
    ! i0 g' E2 _8 o1 r8 z6 U! Z) ^& C
38.           Next ii
    . ^* C( M2 t$ t  m  E
39.           .AnchorType = swBOMConfigurationAnchor_BottomRight
    ; O& ?: X) M9 x4 v- |# d
40.           Set SwAnn = .GetAnnotation
    ' S3 t+ y1 J, C3 A6 T; K+ j( t( p
41.           SwAnn.SetPosition Xx, Yy, 0
    . L% J) _; w2 V2 k
42.        End With
    6 s$ }/ n9 U' P; T. z
43. 
    ) U# ?3 J4 U: w% Y+ j- e% u  G3 m
44. End Function
    ) {9 s1 c  H- Q
45. 
    
46. 
      z3 y5 e. m# D, R0 r; |6 z

复制代码

  o; F: @! c" k+ R: Z

1. 
   
2. ''
   
3. Function MainPlateBOM(SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation, cArr, Arr, wArr, Xx, Yy, oAnchorType)
   
4.        Xx = Xx / 1000
   9 N7 F6 m# G$ e/ z4 o( I
5.        Yy = Yy / 1000
   , h9 G+ N% {; C  n8 ^
6.        ''
   ! {) Y: I2 `9 y' D7 z' Z' X: y
7.        With SwTabAnn
   
8.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
   # r/ o  }% M/ v; C5 V2 F) Z
9.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)
   / t# f3 X  j- C- Z7 T
10.              .SetColumnTitle jj, cArr(jj)
    
11.              .SetColumnWidth jj, wArr(jj) / 1000, 0
    
12.           Next jj
      {1 e# T. m0 {/ q- P& v
13.           For ii = 0 To .RowCount
    & s  y6 w; M* s# o1 {
14.              If ii = .RowCount Then
    8 [# q" m" L! K/ y( J/ l4 z( }
15.                 .SetRowHeight ii, 0.01, 0
    
16.              Else
    
17.                 .SetRowHeight ii, 0.005, 0
    3 {2 w; S7 r' F8 K2 D4 F
18.              End If
    6 S% O) k; R4 ^' @: Y/ ]
19.           Next ii
      G1 I% Z# ]8 F. p3 h- R/ i
20.           .AnchorType = oAnchorType
    
21.           Set SwAnn = .GetAnnotation
    2 m- P( v3 @. C; F
22.           SwAnn.SetPosition Xx, Yy, 0
    # W' V* p) Q7 Y: w" l
23.        End With
    
24. End Function
    
25. Private Sub ChangeBOM()
    
26.     Dim T: T = Timer
    
27.     Dim Arr(1), cArr(1), wArr(1)
    # |4 X' `5 l& H; x! k8 z: h2 i; h
28.       cArr(0) = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")
    - c! n4 j9 a3 K$ s9 h  C
29.       Arr(0) = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")
    
30.       wArr(0) = Array(10, 25, 50, 12, 25, 15, 18, 25)
    ' b  ?( `; ?- j+ I+ j* `3 d, z7 b
31.       ''
    
32.       cArr(1) = Array("件号", "名    称", "模型质量", "下料尺寸", "下料质量", "数量", "材料", "δ", "下料质量-模型质量", "备  注")
    
33.       Arr(1) = Array("件号", "名称", "质量", "下料尺寸", "下料质量", "", "材料", "δ", "", "")
    . h3 g2 `( G; _$ Z2 _
34.       wArr(1) = Array(10, 40, 15, 35, 15, 10, 20, 8, 40, 15)
    
35.    
    ) F6 S; ?" U4 ~) d9 \" I
36.    
    . m" Z5 `4 r+ T  d+ Z1 j" p/ y
37.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
    , X7 c" Q: d" J. k( a# G
38.         Set SwApp = Application.SldWorks
    
39.         Set SwModel = SwApp.ActiveDoc
    : C/ Z1 R4 V# A, L# f& D9 l
40.     Dim SwSelMgr As SelectionMgr
    
41.         Set SwSelMgr = SwModel.SelectionManager
    2 w/ ]% C9 E0 t
42.     Dim SwFeat As Feature, SwBomFeat As BomFeature
    3 V/ L# q0 z* I7 y6 N7 w
43.    
    
44.     Dim SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation
    
45.         Set SwFeat = SwModel.FirstFeature
    
46.         Do While Not SwFeat Is Nothing
    . W1 t3 X: e8 u& I/ U, _
47.            '''
    : v9 C% {  q- R7 S
48.            If UCase(SwFeat.Name) Like "*BOM*" And SwFeat.GetTypeName = "BomFeat" Then
    ( K. q4 D4 T; c. @8 M6 e3 C' y
49.               'SwFeat.Select True
    
50.               Set SwBomFeat = SwFeat.GetSpecificFeature2  ' SwSelMgr.GetSelectedObject5(1)
    
51.               Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    
52.               Debug.Print SwBomFeat.GetFeature.Name
    0 j8 K4 j7 ?. j/ b* f! s
53.               Set SwTabAnn = SwBomTabAnn
    8 P" w2 I/ w' L; |( a$ v
54.               'Debug.Print SwFeat.Name, SwFeat.GetTypeName
    ) [+ X; G/ S3 P
55.               If UCase(SwFeat.Name) Like "*MAIN*" Then
    
56.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(0), Arr(0), wArr(0), 420 - 5, 30, swBOMConfigurationAnchor_BottomRight
    
57.                    ''
    
58.               ElseIf UCase(SwFeat.Name) Like "*PLATE*" Then
    . H0 N7 b+ Y8 E
59.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(1), Arr(1), wArr(1), 25, 5, swBOMConfigurationAnchor_BottomLeft
    
60.                     With SwTabAnn '
    ( Q5 y( d/ i! z/ e4 I7 u, z  `" f% Y+ _
61.                        For ii = .RowCount To 0 Step -1
    
62.                          If .Text(ii, 3) Like "*板材*" Then
    # F3 p; @  U$ o% G( L. p
63.                             Debug.Print .Text(ii, 6)
    " f- [8 n3 C4 I, f! L2 u
64.                          Else
    0 D8 P6 b/ O- I  M- |: i+ W
65.                            .DeleteRow (ii)
    0 c9 g$ H4 |. L; f8 M
66.                          End If
    , }9 V; k9 q5 \% S$ Z% t; U
67.                        Next ii
    
68.                     End With
    
69. 
    7 c1 q0 G% B& p1 M6 a- Z& }# w
70.               End If
    2 `. }8 D! S# n7 F5 F* r
71.               Debug.Print "SWBOMFEAT", SwBomFeat.GetFeature.Name
    6 o, ?% h" J' E5 Z
72.            PrintTiming T
    ! D2 l  r9 b6 ^4 J/ Z! u
73.            End If
    8 h. e; \' k- z
74.            Set SwFeat = SwFeat.GetNextFeature
    
75.            SwModel.ClearSelection2 True
    5 T) w3 c2 c! p8 @) L) Y3 Z; s* p
76.            
    - C& L0 V$ Q5 @8 d3 ^: g9 `# s+ h
77.         Loop
    
78. End Sub
    ) s" L1 v" u# D- P

复制代码

+ }# Q! Z* T5 C; ?8 z- T2 l
5 t& |4 e+ `% A4 D$ }% [$ |1 N- y
0 ?6 i* O7 x8 }: E7 Q3 J0 Z

jinqin11

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

qiminger

! E7 K! C8 |* Z3 Y$ d8 @
3 O# z5 e- u0 e8 V原来要排列下料单，导出在Excel中进行吧。

阿帕奇

寂静天花板 发表于 2016-2-12 09:32
肯定是你选中哪个，才会有下一步的选择，否则软件知道你要干什么。

6 N0 R' P& m& F2 m我看懂了
2 h3 S. U4 d5 J( p. T/ X7 r楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
具体为：选择命令后选择要执行的部位；选择要执行的部位再选择要执行的命令
楼主倾向于选择命令后选择要执行的部位

机器人@换@人

阿帕奇 发表于 2016-2-13 21:28
2 r7 m/ C# D7 b. }我看懂了
/ V: u. D8 u3 I4 i4 {7 t9 s楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
具体为：选择命令后选择要 ...

高手，这个解释太精辟了

啥都没准

阿帕奇 发表于 2016-2-13 21:28
; b2 G" S8 {; R我看懂了
楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
具体为：选择命令后选择要 ...

2 J  r* l1 C8 i  t& k" Y2 `6 q还是武直10一语中的

阿帕奇

啥都没准 发表于 2016-2-17 13:13 static/image/common/back.gif
$ T+ X- p1 I2 _" `$ y6 L还是武直10一语中的

http://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/31.png那是谁啊

啥都没准

阿帕奇 发表于 2016-2-21 20:50
7 x" ?( f- @' Q* G* \4 _2 e# _那是谁啊

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

阿帕奇

啥都没准 发表于 2016-2-22 08:29 static/image/common/back.gif
, S" B0 i6 _: P# E哈哈，玩笑话！武直10”外形“是高仿版的阿帕奇

made in china啊http://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/03.png