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

ning84

在材料明细表中，产生零值的原因是什么？

  P# ~9 E3 f: z: t1 h
' l2 u6 U# M, N" ^4 k9 ^( t1 C\
) P: ~0 ]5 \% Y2 \" g7 T4 g

0 \4 l3 W. `4 N

ning84

- X2 @4 }9 x7 M8 E7 V% D/ }$ C/ b与版本没有任何关系。Sw2013照样也出现同样问题。
5 j/ t1 @7 _2 }9 C% F8 h2 v出现这个问题的原因是运行了这段API程序
2 E: d- n- ^5 I& h6 O9 g
7 w. ?7 @; E) q7 ]

1. 
   
2. Private Sub proceBom()
   
3.    Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
   7 l, ~. C9 `6 R& W+ A$ ~( n7 |
4.       Set SwApp = Application.SldWorks
   
5.       Set SwModel = SwApp.ActiveDoc
   
6.    Dim SwDraw As DrawingDoc, SwView As View
   
7.       Set SwDraw = SwModel
   - |0 D, D7 r8 |
8.       Set SwView = SwDraw.GetFirstView
   
9.       Set SwView = SwView.GetNextView
   
10.    Dim ConfName
    
11.       ConfName = SwView.ReferencedConfiguration
    
12.       Set SwView = SwView.GetNextView
    
13.       SwView.ReferencedConfiguration = ConfName
    
14.       Debug.Print SwView.Name
    
15.       
    
16.    Dim SwSelMgr As SelectionMgr, Names
    
17.       Set SwSelMgr = SwModel.SelectionManager
    2 j7 c( L+ a$ X' w* j- P
18.    Dim SwFeat As Feature, SwBomFeat As BomFeature, tmp
    " V0 ]  {6 z* L* ]4 B. t* L' O
19.       tmp = SwModel.Extension.SelectByID2("VesselBOM", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    4 X% p8 B. E% K8 I" ~  `
20.       'tmp = SwModel.Extension.SelectByID2("SaddleFBOM", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    , g$ N4 Q4 r) v% T
21.       'tmp = SwModel.Extension.SelectByID2("SaddleSBOM", "BOMFEATURE", 0, 0, 0, False, 0, Nothing, 0)
    0 j) H  e! ?9 w, v, w- g5 L" h1 x+ `3 _* a
22.       Set SwBomFeat = SwSelMgr.GetSelectedObject5(1)
    
23.       Set SwFeat = SwBomFeat.GetFeature
    
24.       ''
    
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
    & G. ^( V' [0 K, _, M
30.          End If
    
31.       Next jj
    " [& k7 C; t- i' G2 X4 v5 e5 A
32.       ''
    & J$ S7 _3 D/ x
33.       BoolStatus = SwBomFeat.SetConfigurations(False, Visible, Names)
    
34.    Dim SwTabAnn As TableAnnotation
    3 S6 |/ D3 r/ j. a$ N4 I7 |$ t
35.       Set SwTabAnn = SwBomFeat.GetTableAnnotations(0)
    - ?- A) \7 C' v7 n+ P9 N8 P4 i
36.       BomTitle SwTabAnn
    " E- F; |3 o7 m! e4 P9 A" w* v
37.       
    
38. End Sub
    
39. 
    ; @; y3 N4 t0 T* o6 w2 o1 S
40. ''
    ( Z6 ]. Z( Y# M
41. Function BomTitle(SwTabAnn As TableAnnotation)
    & w: `) O8 b; W* I
42.    Dim cArr, Arr
    & W2 ?, P6 D% v; ]; E
43.        'cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", "模型质量", "小计①", "下 料 尺 寸", "下料质量", "小计②", "②-①")
    5 M* i. @5 b4 g1 e) ^1 j7 e
44.        'cArr = Array("序号", "标 准 号", "名        称", "数量", "材  料", " ⑴", "①", "下 料 尺 寸", " ⑵", "②", "②-①")
    $ r5 y: j7 ~8 h7 t; n) i* d0 _& l
45.        cArr = Array("序号", "图号或标准号", "名        称", "数量", "材  料", " ⑴", "⑵", "下 料 尺 寸", " ①", "②", "②-⑵")
    
46.        Arr = Array("序号", "图号", "名称", "数量", "材料", "质量", "", "下料尺寸", "下料质量", "", "")
    3 C/ G3 e; n: V
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
    2 `7 w$ ]$ c, H+ _; U* V( @) n
51.       With SwTabAnn
    5 O6 y! {8 l2 E1 O+ j+ h3 W
52.          ''
    ' T' U6 y& E5 d1 @) [9 n
53.          For jj = 0 To .ColumnCount - 2
    ; J" q% c/ v" T, W
54.             .SetColumnTitle jj, cArr(jj)
    5 y+ T7 m% F+ d
55.             .SetColumnWidth jj, wArr(jj) / 1000, 0
    . w' M2 _, N* M5 d
56.             .SetColumnCustomProperty jj, Arr(jj)
    
57.          Next jj
    
58.          ''
    & r3 h' g8 L, N4 }
59.          For ii = 0 To .RowCount - 2
    : @8 i3 f/ R' C9 o( G( a3 ^
60.              For jj = 0 To .ColumnCount - 1
    
61.                Select Case jj
    
62.                   Case 2
    
63.                      .Text(ii, jj) = " " & Trim(.Text(ii, 2))
    
64.                      .CellTextHorizontalJustification(ii, jj) = swTextJustificationLeft
    8 ^0 [8 Q$ Q" D$ ?: u
65.                   Case Else
    
66.                      .CellTextHorizontalJustification(ii, jj) = swTextJustificationCenter
    
67.                End Select
    . k! U7 r# g9 B5 q: p
68.                ''
    + Z0 }/ }& i3 k2 A: H
69.                Set TextFormat = .GetCellTextFormat(ii, jj)
    * {3 x' F2 k% L& v9 i3 t- L
70.                With TextFormat
    
71.                   .CharHeight = 2.8 / 1000
    4 u% D! L( Q/ c7 @7 y7 r
72.                   .WidthFactor = 0.8
      d2 K) N  w& `8 D! k
73.                   .TypeFaceName = "宋体"
    * @& U8 D, a6 `+ ]$ m
74.                   If ii = SwTabAnn.RowCount - 1 Then
    
75.                      .Bold = True
    $ X; f) J$ }  F
76.                   Else
    
77.                      .Bold = False
    
78.                   End If
    
79.                End With
    5 B% \$ c7 H* G2 J+ f$ ]
80.                .SetCellTextFormat .RowCount - 1, jj, False, TextFormat
    
81.              Next jj
    
82.              ''
    
83.            If .Text(ii, 3) <> "-" Then
    
84.              If .Text(ii, 3) = 1 Then
    1 |5 J% }- |4 h* q$ m
85.                   If Val(.Text(ii, 5)) > 0 Then
    ' d1 u( a2 o2 ?7 _
86.                      .Text(ii, 6) = Format(.Text(ii, 5), "0.0#")
    0 m& e8 B) s" I) R' y
87.                      .Text(ii, 5) = " " 'Format(.Text(ii, 5), "0.0#")
    
88.                   End If
    - e1 i8 I( Q3 H. K9 a
89.                   ''
    1 w" |9 U# K' a9 g  p3 h
90.                   If Val(.Text(ii, 8)) > 0 Then
    
91.                      .Text(ii, 9) = Format(.Text(ii, 8), "0.0#")
    
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#")
    
96.                  .Text(ii, 8) = Format(.Text(ii, 8), "0.0#")
    ! O0 S* x$ a; w  }7 P, }+ S
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#")
    
99.              End If
    
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) = " "
     2 A. e8 ?( @+ A" g0 K
104.                  .Text(ii, 9) = " "
     
105.              End If
     6 _4 o: R7 \  V- P: L
106.            End If
     
107.          Next ii
     7 ^$ \: \, H* n( l" F; [1 Y# G
108.          ''
     2 q# g) H* _4 ~" H
109.          For ii = 0 To .RowCount - 1
     9 ]' z# }- _5 N, z
110.              .SetRowHeight ii, 5 / 1000, 0
     
111.          Next ii
     * O3 V5 ^' A* |$ U7 s* n
112.          ''
     
113.       End With
     
114.       
     1 b5 U  R: n% q5 ?6 L5 O9 T& b
115. End Function
     . J: B( v0 C; f& b& s4 f4 x
116. 
     & x& n- b& [8 Y) L. n
117. 
     

复制代码

" }; i5 E  N* d) G/ j

ning84

原材料明细表没问题
; {: U! Q. Q( n) d) L6 b: r7 }
+ n1 H0 B5 P6 r; M- J7 l* @
运行API后出现问题

4 {1 k8 d" g( o8 F3 |7 p. C

2 U6 [4 E6 C+ S

fgshrl

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