椭圆封头+筒体生成工程图，断开剖视图深度不可控?

ning84

椭圆封头+筒体生成工程图，
断开剖视图深度是514.534xxxx
) a5 y6 @) j; ]0 O+ V结论是断开深信不可控。
7 x& C1 o$ N. w( i6 O$ M


8 l1 _( b. [' _
" B: ^5 C% u& s

单独生成封头和筒体工程图，其断开剖视图的断开深度为510mm
结论是断开深度可控。
: B5 ^9 Q  Y: _$ y- u+ n, x

6 F2 U9 E- f$ n5 s2 ]1 J5 v5 ?
1 ?+ |4 Q6 ?9 f: i2 m4 q& ~& Q


% @% Q7 p+ B& I" x$ o2 l
请各位测试一下附件的工程图，
4 C& B3 V. ~  e8 y断开深度不是可控的510断开视图深度。
3 M, q! R4 R6 y/ S还是不可控的514.XXXX

7 p1 s5 `  R: t+ K  m4 {

yk2906

都不是一个图，何来哪个更准确之说。

qiminger

选择边线<1>，当然不可控了。
1 K( K, ^) j" U3 H

xuxinzhi2006

楼主的理解有问题！你这个就不是使用断开剖视图目的？

ning84

手动不涉及断面视图深度，用代码就涉及到深度。
( \* o& y4 Q, b% U' f4 i9 z
  c" X, v* Q; Z- S1 L0 J$ Q

1. ''
   
2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)
   0 s& E1 J7 ~3 n" {
3. 
   
4. 
   9 s& A4 [: O& _% Z7 s: b
5.     Dim Var, vPos, tmp, oScale
   
6.       
   - [/ J! M8 Y2 S9 H. Z
7.         oScale = 1 / SwView.ScaleDecimal
   6 n0 P3 _+ F# {. @& c) Y
8.       
   % O* x  z4 \  [
9.     Dim SwDim As Dimension, Depth
   1 s! i5 q3 ]9 C6 O
10.     Dim SwModel As ModelDoc2
    . T" F! u1 C6 s+ C: C# d* L
11.         Set SwModel = SwView.ReferencedDocument
    
12.         Debug.Print SwModel.GetPathName
    
13.         'PrintModelDimension SwModel
    
14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")
    
15.         Depth = SwDim.Value
    4 x& @" I- o# p  f" |
16.       
    6 k4 Y/ ]. n: m$ q
17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
    $ Z: }1 N: o1 K, P  F7 `' m& `
18.         With SwDraw
    5 K9 Z& f* w6 V- {1 ]$ \
19.              Var = SwView.GetOutline
    
20.              vPos = SwView.Position
    4 T7 p; l# d; m; V) a; r$ ~+ ~7 w
21.             
    
22.              For ii = 0 To UBound(Var)
    
23.                  Var(ii) = oScale * Var(ii)
    2 m9 r- T- R3 K( l+ g
24.                  If ii < 2 Then
    ! K9 B3 u% @9 l  `: X5 ^1 |0 [
25.                     vPos(ii) = oScale * vPos(ii)
    , X! }% [. [! {+ g
26.                  End If
    0 K2 W! u: M. E% Z% e% ~
27.              Next ii
    / r: g3 V1 k* N' N2 Z- t
28.             
    
29.             
    
30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    ' x  x) p$ A& M- [. y
31.              .CreateBreakOutSection Depth / 1000
    3 O& ?" g" V3 w9 X
32.           End With
    
33. End Function

复制代码

qiminger

  \5 H9 {$ @5 m" b' N" ?0 k6 Y  g: c
代码看不明白，测试一下看看。手动可以改变深度。
$ T4 U- i) z3 A' ]7 H+ g; U
; _% t% Z8 H7 R& j% x( M# T在装配体中，将筒和封头的基准面与装配体中的基准面做平行配合，再看一下。
, W7 ~" Y( U2 c' v

- D  K4 g5 E% `# e
, P* p$ o5 Z+ R0 E6 S! F
0 y- d2 |) O% }