为什么材料明细表的数量会出现零值？

ning84

在材料明细表中，产生零值的原因是什么？
% t$ u3 A! Z/ L+ O- {6 M7 g2 ]+ p
! ^# Z3 z$ @1 |4 c8 a3 Z
\
% [% i( n, v# r% ^9 \
; m. m  Y) c, D  L+ _


* [1 q: S3 a) d; N* D5 G+ ?

ning84

9 Q/ `* R0 L. x! i
与版本没有任何关系。Sw2013照样也出现同样问题。
出现这个问题的原因是运行了这段API程序

1. 
   " D3 C/ p3 R- A  H  n! T
2. Private Sub proceBom()
   4 u! u$ _6 L5 g4 r6 N1 Q% f+ c
3.    Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   
4.       Set SwApp = Application.SldWorks
   
5.       Set SwModel = SwApp.ActiveDoc
   . t7 K4 ~/ E- C" P/ Q( |' P; ?
6.    Dim SwDraw As DrawingDoc, SwView As View
   5 j$ r! S. L0 y9 |' K
7.       Set SwDraw = SwModel
   ' n2 c  x3 w- }3 _  }' X" a
8.       Set SwView = SwDraw.GetFirstView
   5 G2 b* k- E; M7 f
9.       Set SwView = SwView.GetNextView
   
10.    Dim ConfName
    
11.       ConfName = SwView.ReferencedConfiguration
      a' V- A+ l, C+ f
12.       Set SwView = SwView.GetNextView
    
13.       SwView.ReferencedConfiguration = ConfName
    2 h2 [' Q' G/ n# I3 E
14.       Debug.Print SwView.Name
    
15.       
    & q& W: ]2 W: q
16.    Dim SwSelMgr As SelectionMgr, Names
    ! t2 w# h8 L3 F6 s: [' L
17.       Set SwSelMgr = SwModel.SelectionManager
    
18.    Dim SwFeat As Feature, SwBomFeat As BomFeature, tmp
    
19.       tmp = SwModel.Extension.SelectByID2("VesselBOM", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    
20.       'tmp = SwModel.Extension.SelectByID2("SaddleFBOM", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    , N! g- f. \5 n0 m& P
21.       'tmp = SwModel.Extension.SelectByID2("SaddleSBOM", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    $ N# Y7 W8 S% D6 T% o
22.       Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
    
23.       Set SwFeat = SwBomFeat.GetFeature
    
24.       ''
    0 f( V+ }3 v4 u1 w1 g8 J
25.       Names = SwBomFeat.GetConfigurations(False, Visible)
    
26.       For jj = 0 To UBound(Names)
    
27.          If Names(jj) = ConfName Then 'SwView.ReferencedConfiguration Then
    
28.             Visible(jj) = True
    
29.             Exit For
    
30.          End If
    + ~! x1 D6 t2 U2 d; C5 Z0 N2 p
31.       Next jj
    , n! K/ Z  e1 h( K5 `
32.       ''
    7 K% [* \- c6 a2 F; i' k6 I
33.       BoolStatus = SwBomFeat.SetConfigurations(False, Visible, Names)
    $ P/ [9 Y1 q+ L
34.    Dim SwTabAnn As TableAnnotation
    1 c5 O$ q+ G, b
35.       Set SwTabAnn = SwBomFeat.GetTableAnnotations(0)
    
36.       BomTitle SwTabAnn
    7 H/ T1 I7 A* d) `+ L( p
37.       
    % L& s9 R3 n- y8 ?2 E" k
38. End Sub
    - |8 Z, w3 k5 f8 {* C) K- {
39. 
    * K( }# O- m& ^' n0 J$ w+ l
40. ''
    
41. Function BomTitle(SwTabAnn As TableAnnotation)
    
42.    Dim cArr, Arr
    2 \  z- _' T# x9 J$ O7 |
43.        'cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", "模型质量", "小计①", "下 料 尺 寸", "下料质量", "小计②", "②-①")
    " m4 N0 d0 T# f$ s& V1 }
44.        'cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", " ⑴", "①", "下 料 尺 寸", " ⑵", "②", "②-①")
    
45.        cArr = Array("序号", "图号或标准号", "名        称", "数量", "材  料", " ⑴", "⑵", "下 料 尺 寸", " ①", "②", "②-⑵")
    , R5 [8 c) K- f8 y: G$ C
46.        Arr = Array("序号", "图号", "名称", "数量", "材料", "质量", "", "下料尺寸", "下料质量", "", "")
    
47.    Dim wArr
    
48.        'wArr = Array(8, 20, 50, 8, 25, 12, 12, 40, 12, 12, 11)
    
49.        wArr = Array(8, 17, 45, 8, 18, 10, 10, 35, 10, 10, 9)
    
50.   Dim TextFormat As TextFormat
    
51.       With SwTabAnn
    7 d2 u5 q' P0 e- J- B
52.          ''
    . V' F) O% h$ G2 y5 O8 n' r( e9 x/ E
53.          For jj = 0 To .ColumnCount - 2
    
54.             .SetColumnTitle jj, cArr(jj)
    ) E# F% A$ ~6 {1 f0 y7 t
55.             .SetColumnWidth jj, wArr(jj) / 1000, 0
    
56.             .SetColumnCustomProperty jj, Arr(jj)
    
57.          Next jj
    
58.          ''
    & E) N1 ]. W# d5 z
59.          For ii = 0 To .RowCount - 2
    
60.              For jj = 0 To .ColumnCount - 1
    
61.                Select Case jj
    7 P  q: o9 C5 t
62.                   Case 2
    
63.                      .Text(ii, jj) = " " & Trim(.Text(ii, 2))
    
64.                      .CellTextHorizontalJustification(ii, jj) = swTextJustificationLeft
    
65.                   Case Else
    ; z; M" n+ U# m/ Z1 f+ V( ^: b3 j9 B
66.                      .CellTextHorizontalJustification(ii, jj) = swTextJustificationCenter
    
67.                End Select
    
68.                ''
    
69.                Set TextFormat = .GetCellTextFormat(ii, jj)
    
70.                With TextFormat
    
71.                   .CharHeight = 2.8 / 1000
    % G9 d, k: }$ a& T- H/ h7 u+ @
72.                   .WidthFactor = 0.8
    ) n8 `# y/ I, ]$ @& }4 K. \5 o
73.                   .TypeFaceName = "宋体"
    2 L. U! a6 J) q1 _" d' q
74.                   If ii = SwTabAnn.RowCount - 1 Then
    ( s3 ]) `# z5 B& z! _; k0 Y% C/ K
75.                      .Bold = True
    2 r+ h# M1 {) w+ |7 i
76.                   Else
    , E: ]$ }7 i9 y0 H+ S1 z
77.                      .Bold = False
    
78.                   End If
    
79.                End With
    1 B( ~0 x8 L3 Z
80.                .SetCellTextFormat .RowCount - 1, jj, False, TextFormat
    
81.              Next jj
    
82.              ''
    2 m( r7 s7 M" B9 L
83.            If .Text(ii, 3) <> "-" Then
    4 R) R7 j: S7 \) w
84.              If .Text(ii, 3) = 1 Then
    
85.                   If Val(.Text(ii, 5)) > 0 Then
    
86.                      .Text(ii, 6) = Format(.Text(ii, 5), "0.0#")
    7 M; E8 I0 x+ U4 Y  m5 E% r
87.                      .Text(ii, 5) = " " 'Format(.Text(ii, 5), "0.0#")
    $ ~- E4 L# _4 @/ b' L2 k
88.                   End If
    
89.                   ''
    % t: c7 S2 |" r, S4 y$ g6 W
90.                   If Val(.Text(ii, 8)) > 0 Then
    , Z1 x$ ]5 [# y0 G' t3 j) P
91.                      .Text(ii, 9) = Format(.Text(ii, 8), "0.0#")
    5 r. U" l/ P( F* m; Y+ {6 Q
92.                      .Text(ii, 8) = " " 'Format(.Text(ii, 8), "0.0#")
    
93.                   End If
    
94.              Else
    
95.                  .Text(ii, 5) = Format(.Text(ii, 5), "0.0#")
    , D) A# @0 ]# E: i" U: W  ~
96.                  .Text(ii, 8) = Format(.Text(ii, 8), "0.0#")
      G1 I: n; J7 O8 |9 g: ~1 p
97.                  .Text(ii, 6) = Format(.Text(ii, 5) * .Text(ii, 3), "0.0#")
    
98.                  .Text(ii, 9) = Format(.Text(ii, 8) * .Text(ii, 3), "0.0#")
    / C- o- `3 w$ H& [9 H0 s
99.              End If
    2 N$ E, J. f6 Y. N4 N9 b6 C1 t
100.              If .Text(ii, 7) <> "" And Val(.Text(ii, 9)) > 0 Then
     
101.                  .Text(ii, 10) = Format(Val(.Text(ii, 9)) - Val(.Text(ii, 6)), "0")
     
102.              Else
     
103.                  .Text(ii, 8) = " "
     
104.                  .Text(ii, 9) = " "
     
105.              End If
     1 L) b* f. a$ i. w! K
106.            End If
     / U, j6 _" i5 V2 J3 |$ T6 A3 U4 n' W
107.          Next ii
     $ m' |0 @+ g7 Y- V2 [! f8 p
108.          ''
     : [4 t1 S5 \* i+ F
109.          For ii = 0 To .RowCount - 1
     5 N. f1 |3 G& \- _9 A+ i5 Q# _
110.              .SetRowHeight ii, 5 / 1000, 0
     
111.          Next ii
     
112.          ''
     . S; X  s6 D# M4 H+ g1 X1 }
113.       End With
     
114.       
     
115. End Function
     
116. 
     0 q+ {# c2 R8 T- t& r
117. 
     - d2 V& {" N3 b! R

复制代码

8 X4 R) v( S) d0 @$ H) T

ning84

原材料明细表没问题


* i) @- K5 ]' a" l% I+ B运行API后出现问题


+ n- [5 W8 Y, l) ?

fgshrl

我们还出现过负值和小数，代理商已经把问题发SW美国总部，以后就再没消息了