设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 2945|回复: 9
收起左侧

[讨论] 如何快速隐藏材料明细表的行。

[复制链接]
ning84
发表于 2016-2-10 21:12:19 | 显示全部楼层 |阅读模式 来自： 中国甘肃兰州

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要 登录 才可以下载或查看，没有帐号？注册

x
00.jpg
, I* w. l& Z/ }; ?1 g/ m常用方法是人工选择单元格，隐藏选择行。3 O* M( t8 O5 {2 s; x
5 _% R8 W0 T8 W5 b0 q( c
请问，还有什么更简单快速的方法，隐藏选择材料明细表时的行。- o7 l( h! V2 y7 M& l

, w6 T, s2 S" `7 g+ O) `* f! q. i" S. N# N
7 w, r/ [! V* w, m' ^6 G
5 ~3 i5 k3 |6 {, R
回复

举报

ning84
 楼主| 发表于 2016-2-11 06:51:16 | 显示全部楼层 来自： 中国甘肃兰州
本帖最后由 ning84 于 2016-2-14 17:27 编辑   A6 `; t& A+ g+ ?- l' e

( j4 {: u+ j" I! g4 z3 G$ Z' ?用API解决，没找到隐藏单元行的指令。只能用.text(ii,6)来判断。% L- }0 W9 }8 ~6 F* \- [
用API解决的问题，厚度排序和合并，下料尺寸排序。
- F( E/ t/ O7 Z

  1. 0 S( M" }5 |) w6 Y6 ]) c7 i

  2. . ]( d2 Z! U" x0 h
  3. Function TitleBomPlateBom()
    $ G  N8 S6 U5 H( Y
  4.    Dim Arr, cArr, wArr! r% O' R- q+ i. d2 l
  5.       cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")5 U7 f4 A  Y7 o9 c0 I
  6.       Arr = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")8 ^, t- T* b$ f/ z
  7.       wArr = Array(10, 25, 50, 12, 25, 15, 18, 25)
    . J1 S' @+ Q8 V# s; [: Y3 m
  8.       
    " m9 j3 ^7 T" S3 v' |3 K
  9.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
    - q. B; }8 G1 X$ I! V& z- l
  10.        Set SwApp = Application.SldWorks
    0 O( W% @( e9 G2 f5 k; Q; j" Z
  11.        Set SwModel = SwApp.ActiveDoc+ o/ n% ]# \- A/ U9 w& q
  12.    Dim SwSelMgr As SelectionMgr, tmp
    ) E1 Y( p) [! a5 F
  13.        Set SwSelMgr = SwModel.SelectionManager& D2 G  D5 r- Y+ Q& Q$ B+ a
  14.    Dim SwBomFeat As BomFeature, SwBomTabAnn As BomTableAnnotation
    % t& n: T# S% R* e
  15.        tmp = SwModel.Extension.SelectByID2("TitleBom", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    9 _8 a3 W' f! `  v1 ]9 K2 T
  16.        Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
    : d' d' i- M( z) \+ B
  17.        Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)' i# v( H- J6 n+ c
  18.        'Debug.Print SwBomTabAnn.BomFeature.GetFeature.Name4 d0 s  c; ^. f5 r' j
  19.    Dim SwTabAnn As TableAnnotation, Str, SwAnn As Annotation
    ; Q# t3 o, Z& n  Q: U% O3 ]
  20.        Set SwTabAnn = SwBomTabAnn# s  l4 ~  t7 _7 Z$ f
  21.    Dim Xx, Yy/ J5 Z& Q) X- |+ H9 z8 g+ f% G
  22.        Xx = 420 - 5) M/ x% c) V8 b% z+ V4 z
  23.        Xx = Xx / 1000
    # P! @* s0 k" X9 e* k, b% _; s
  24.        Yy = 30 / 1000
    6 Z6 f8 t$ [8 C: I) L; h
  25.        ''
    0 D* n- `, D: H1 X1 N
  26.        With SwTabAnn
    / b2 C% H4 S. D8 g
  27.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1$ [) n* V5 A9 h2 k# V" M9 L" B' D
  28.              .SetColumnWidth jj, wArr(jj) / 1000, 0% C5 O. C; P  h, p/ c5 r9 p. Y% A" A
  29.              .SetColumnTitle jj, cArr(jj)
    . F. B4 I) [4 {5 Y0 t' q8 N
  30.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)6 ?7 d. K* w8 q0 f" G' x# W
  31.           Next jj
    : B: d# \8 D6 E1 U) [
  32.           For ii = 0 To .RowCount7 n# X5 u) c- g) u$ ]' D
  33.              If ii = .RowCount Then
    ) |2 W2 N7 n- v" a( q( Z! }+ p% b
  34.                 .SetRowHeight ii, 0.01, 0( J# W, w: s" t& X
  35.              Else/ i( J4 b, k, K" V' x
  36.                 .SetRowHeight ii, 0.005, 0) j% f/ x$ |. H& e! z2 s
  37.              End If7 O; @, b7 t- b3 Q; ~
  38.           Next ii9 L7 t) G8 J9 x" X+ k* j. x
  39.           .AnchorType = swBOMConfigurationAnchor_BottomRight
    * v3 Z* x) f6 q% {0 h
  40.           Set SwAnn = .GetAnnotation0 W. w" ?. S) o( v, @
  41.           SwAnn.SetPosition Xx, Yy, 0
    * p; O' j6 r$ T5 T
  42.        End With
    2 s* ]' X; K: G) k
  43. 7 W) f/ D) ]: p; C  l
  44. End Function3 U( r$ ^$ C$ }" u' `
  45. 1 Q5 N0 D9 _$ q" ~* I
  46. ! Q! w5 a" Q2 ]
复制代码
9 x  T7 m' O+ e- v
/ ~0 r/ l' `$ F: f: A9 m

8 ~, u% V4 v, k; }
  1. ' w/ y$ Y1 D( u2 Z# ]+ |, {) M6 b
  2. ''
    $ j  q2 V' B4 N, S* I" M1 m8 ^8 o
  3. Function MainPlateBOM(SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation, cArr, Arr, wArr, Xx, Yy, oAnchorType)  q  s* f3 x9 G1 v) v8 h2 }
  4.        Xx = Xx / 1000
    ! p7 s3 I/ J0 F) t
  5.        Yy = Yy / 1000
    + x2 q* W, a2 z* U7 x, b! L
  6.        '') {- s3 h, G! t7 _+ P8 _7 O
  7.        With SwTabAnn2 l, b- U( J" q8 z) C2 K7 d
  8.           For jj = 0 To UBound(cArr)  ' .ColumnCount - 1
      i' i; r+ p' T- t/ D0 g
  9.              SwBomTabAnn.SetColumnCustomProperty jj, Arr(jj)" g! t" y9 m: u1 `& t5 {+ ^
  10.              .SetColumnTitle jj, cArr(jj)9 [+ T1 {( L; C
  11.              .SetColumnWidth jj, wArr(jj) / 1000, 05 J/ Y/ Q% V0 E
  12.           Next jj
    * @0 z. ~! e5 p" d8 {* B0 ?
  13.           For ii = 0 To .RowCount) Y3 L- v  p7 ]+ r2 q! M5 U  m* U
  14.              If ii = .RowCount Then% \' d# Z& }3 Z8 U2 w9 l
  15.                 .SetRowHeight ii, 0.01, 0
    - P( r7 t/ Z0 p1 E
  16.              Else4 d6 v! r7 h' a9 ^+ M! l! p
  17.                 .SetRowHeight ii, 0.005, 0+ _$ ~5 t( x3 B2 J+ F3 z
  18.              End If# `) a6 V5 x; u3 \, G9 b& ]- P
  19.           Next ii8 G& M( B) o1 h
  20.           .AnchorType = oAnchorType2 J; m. ^) Z- i4 {
  21.           Set SwAnn = .GetAnnotation
    0 X8 U, X( i( W) ]: |6 T: i
  22.           SwAnn.SetPosition Xx, Yy, 0
    ) b* v4 R- ]  E9 q& l
  23.        End With' E7 T6 Z+ j' W$ @4 j! T  a1 t
  24. End Function& p, K( @; z/ H) z' o9 A
  25. Private Sub ChangeBOM()% M/ d7 r" h- Z" J7 \
  26.     Dim T: T = Timer. H' }6 `0 S! ?0 s. Y9 x5 K" l
  27.     Dim Arr(1), cArr(1), wArr(1)
    ) o& Y: B8 p8 [7 H& T
  28.       cArr(0) = Array("序号", "标 准 号", "名        称", "数量", "材  料", "质量" & Chr(13) & "(单)", "质量" & Chr(13) & "(合)", "备  注")9 H" G- k: p$ U0 j& L
  29.       Arr(0) = Array("", "标准号", "名称", "", "材料", "质量", "", "备注")  J' I$ E+ N) T* F# g. U* k6 b
  30.       wArr(0) = Array(10, 25, 50, 12, 25, 15, 18, 25)
    $ ?1 \4 b2 G! D, k( W
  31.       ''- E9 F. x6 g- d. |8 g
  32.       cArr(1) = Array("件号", "名    称", "模型质量", "下料尺寸", "下料质量", "数量", "材料", "δ", "下料质量-模型质量", "备  注")
    & H% d1 f8 L! |2 l
  33.       Arr(1) = Array("件号", "名称", "质量", "下料尺寸", "下料质量", "", "材料", "δ", "", "")* s8 j+ g; j) {2 p
  34.       wArr(1) = Array(10, 40, 15, 35, 15, 10, 20, 8, 40, 15), i1 V( H# u: \+ E7 n) h4 [
  35.    
    0 z1 h/ F  T' p/ {- J
  36.     2 n6 ]9 z7 R, B. n7 l# a" N0 ~4 {
  37.     Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc23 ~' h/ f8 u% m0 x$ R5 s, E
  38.         Set SwApp = Application.SldWorks
    4 `8 v2 [% ~0 N" a
  39.         Set SwModel = SwApp.ActiveDoc
    $ c4 s+ Q/ o  U1 G' K$ Q
  40.     Dim SwSelMgr As SelectionMgr
    & A' p! K& C$ [9 U7 k, Q5 ]
  41.         Set SwSelMgr = SwModel.SelectionManager9 ~0 m5 ?% Z7 A) J0 `5 P# Z
  42.     Dim SwFeat As Feature, SwBomFeat As BomFeature
    3 i. q& h$ s+ Q( ?  ^
  43.     % G5 j& h( \: b; U
  44.     Dim SwBomTabAnn As BomTableAnnotation, SwTabAnn As TableAnnotation/ }  T5 e- E( z7 l, l9 M
  45.         Set SwFeat = SwModel.FirstFeature5 b+ G; Y3 P! h9 Z- O/ E6 W
  46.         Do While Not SwFeat Is Nothing
    # {+ L% `9 k) ^- N0 q' Y9 e7 l
  47.            '''0 c  @. D3 w1 z0 _
  48.            If UCase(SwFeat.Name) Like "*BOM*" And SwFeat.GetTypeName = "BomFeat" Then
    7 Q, B5 Y7 |: z6 J
  49.               'SwFeat.Select True6 Y# s7 M8 M: \# v& L7 {# P
  50.               Set SwBomFeat = SwFeat.GetSpecificFeature2  ' SwSelMgr.GetSelectedObject5(1)
    7 S  m/ z, {. w. f/ X+ J
  51.               Set SwBomTabAnn = SwBomFeat.GetTableAnnotations(0)
    1 e- }- J) C" D) B: c/ I
  52.               Debug.Print SwBomFeat.GetFeature.Name& c& |4 b6 i+ r+ U5 X  F: e! x
  53.               Set SwTabAnn = SwBomTabAnn
    2 D: U; y1 `; p  }5 j
  54.               'Debug.Print SwFeat.Name, SwFeat.GetTypeName; d) x2 f# {4 r5 \  P  F; s6 y
  55.               If UCase(SwFeat.Name) Like "*MAIN*" Then
    % ?% e( T9 W, l5 h) |: w% f; }( A2 u
  56.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(0), Arr(0), wArr(0), 420 - 5, 30, swBOMConfigurationAnchor_BottomRight
    8 m2 b% o* B% Y( f5 l$ d$ g, A6 S
  57.                    ''* A: ~6 J" h8 J2 u8 U3 |. i# j
  58.               ElseIf UCase(SwFeat.Name) Like "*PLATE*" Then# n! `% S' G0 |6 h* \! D
  59.                  MainPlateBOM SwBomTabAnn, SwTabAnn, cArr(1), Arr(1), wArr(1), 25, 5, swBOMConfigurationAnchor_BottomLeft& z6 y# T5 I, ]( C1 A! W
  60.                     With SwTabAnn '7 r# z; h$ |: e4 `
  61.                        For ii = .RowCount To 0 Step -17 X, i$ t2 V; }' W# @7 C
  62.                          If .Text(ii, 3) Like "*板材*" Then
    6 [3 c. P2 E! g8 z8 n6 [$ t9 x
  63.                             Debug.Print .Text(ii, 6)
    , x0 l' c+ [) V1 x* z6 U
  64.                          Else$ T' Y% z6 V. p' o3 E0 W( J
  65.                            .DeleteRow (ii)" y6 ]" L( _! ?# z$ T, s0 F. q# T5 C
  66.                          End If
    5 ?5 \0 }$ e$ O( N1 u# m2 L/ a# Z
  67.                        Next ii
    " ]: z6 V$ M: |4 R+ Y3 R; E
  68.                     End With
    ; O/ \2 u1 I+ y7 a) `$ H5 H

  69. ( u9 g  R9 L: |4 ^: T* J
  70.               End If
    5 r8 ^, A3 t, ~4 S  m! x
  71.               Debug.Print "SWBOMFEAT", SwBomFeat.GetFeature.Name
    3 \- O- m. h2 L5 F  P$ {
  72.            PrintTiming T9 ^! b: ]7 z0 X" A- Q7 u
  73.            End If
    ( j, n1 J) M2 d$ z- a) ^; n& b
  74.            Set SwFeat = SwFeat.GetNextFeature
    % g! H; v/ Y: R4 y# y3 p7 T
  75.            SwModel.ClearSelection2 True
    ; e0 p1 d) ]( B+ Z2 T
  76.            , u1 S& n, \) x/ o0 O: F; [
  77.         Loop
    8 i# ?; _8 Q9 x" T( U! n$ ?; i3 x
  78. End Sub. X! ?4 ?% z( p' p: d$ K8 Y/ x
复制代码
0 b8 M+ C# u4 g+ H
+ @. w9 m- n4 |8 P1 [( L$ J9 G
! t, U, h/ |1 A* z% T% r

5 q6 v3 f% F- w0 w
, f( A2 w3 y0 i: B5 n% M2 P! A6 c; [) E; w0 O( N' C
回复 支持 3 反对 0

举报

jinqin11
发表于 2016-2-11 21:12:17 | 显示全部楼层 来自： 中国安徽蚌埠
用shift选择头和尾，用crl剔除多余的，然后点隐藏
回复 支持 3 反对 0

举报

qiminger
发表于 2016-2-12 09:22:07 | 显示全部楼层 来自： 中国辽宁
本帖最后由 qiminger 于 2016-2-12 11:09 编辑 + d0 L  X8 c9 i" X1 h
$ v: I+ X8 y4 m* S: F! M% h) m
原来要排列下料单，导出在Excel中进行吧。
回复 支持 3 反对 0

举报

阿帕奇
发表于 2016-2-13 21:28:49 | 显示全部楼层 来自： 中国辽宁盘锦
寂静天花板 发表于 2016-2-12 09:32; H+ L2 o4 o; H$ B5 ?# H
肯定是你选中哪个，才会有下一步的选择，否则软件知道你要干什么。

- R) t! Z. t  F3 Y2 V我看懂了+ f1 f% D. \: K! k. p9 p
楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
4 N. c1 d% w; h; J' p* x具体为：选择命令后选择要执行的部位；选择要执行的部位再选择要执行的命令  Q* h8 q& D4 n
楼主倾向于选择命令后选择要执行的部位
回复 支持 反对

举报

机器人@换@人
发表于 2016-2-17 09:25:29 | 显示全部楼层 来自： 中国江苏苏州
阿帕奇 发表于 2016-2-13 21:28
5 F/ r  w6 {" h( H# @! D我看懂了
3 A) p; D7 ~5 y  v! @; I楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的* @  Z; m3 K/ e
具体为：选择命令后选择要 ...

0 l# I; @, H# e/ L2 g- `$ k高手，这个解释太精辟了
回复 支持 反对

举报

啥都没准
发表于 2016-2-17 13:13:55 | 显示全部楼层 来自： 中国四川乐山
阿帕奇 发表于 2016-2-13 21:28
6 J) G6 F4 P8 K7 Q' W+ h我看懂了
8 W+ w3 \; z: w# R楼主的意思是，这个命令也要和别的命令可以有两种操作方法是一样的
0 c3 P1 X" _/ M具体为：选择命令后选择要 ...

) E3 h3 |7 H3 u! S7 y还是武直10一语中的
回复 支持 反对

举报

阿帕奇
发表于 2016-2-21 20:50:15 | 显示全部楼层 来自： 中国辽宁
啥都没准 发表于 2016-2-17 13:13 static/image/common/back.gif# `* E! m! q+ O) C) Z
还是武直10一语中的

* @  ~1 U/ \5 q/ `) j% Ahttp://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/31.png那是谁啊$ v" J. i1 y' }( s" t
回复 支持 反对

举报

啥都没准
发表于 2016-2-22 08:29:43 | 显示全部楼层 来自： 中国四川乐山
阿帕奇 发表于 2016-2-21 20:50
+ z% `+ O+ {4 J$ ~$ J7 B那是谁啊
3 {! k/ h7 l* U& {9 w
哈哈，玩笑话！武直10”外形“是高仿版的阿帕奇
回复 支持 反对

举报

阿帕奇
发表于 2016-2-27 10:48:20 | 显示全部楼层 来自： 中国辽宁
啥都没准 发表于 2016-2-22 08:29 static/image/common/back.gif" R+ a. D3 x) l+ _/ O9 K
哈哈，玩笑话！武直10”外形“是高仿版的阿帕奇
* a1 ]4 a) W( |9 ?! l5 d
made in china啊http://www.3dportal.cn/discuz///mobcent//app/data/phiz/default/03.png* k8 S1 r" K9 e" h7 {
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表