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

ning84

椭圆封头+筒体生成工程图，
$ e% O* a( G! s! Y3 S$ q# a5 c断开剖视图深度是514.534xxxx
结论是断开深信不可控。
: G! t! I+ ~" D2 Y
4 m$ O7 r4 v& _2 ?+ o! m# n

& U$ A) T) `. R
$ ]# s/ t* y" p9 R: Z
, X* r8 c5 A: n0 e5 s. T$ W" C
单独生成封头和筒体工程图，其断开剖视图的断开深度为510mm
结论是断开深度可控。
; x% T1 a0 |% V- H6 n, `
4 l& G$ h3 W! d8 H
7 J# j" c- g; {+ P

$ J( }. a1 x) Z# I* [7 _4 p


$ e9 [2 I0 `- N$ T" w  I请各位测试一下附件的工程图，
断开深度不是可控的510断开视图深度。
6 f# W% R# @) y! E9 j, k4 P还是不可控的514.XXXX

) Z: V, |& ~3 w' v  m( D

yk2906

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

qiminger

选择边线<1>，当然不可控了。

xuxinzhi2006

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

ning84

手动不涉及断面视图深度，用代码就涉及到深度。

( }" a9 M: p5 A3 L( z

1. ''
   
2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)
   " T% M7 H/ v" ]% n2 F: p$ w
3. 
   . @& R4 x9 Q3 b- l' [( c$ M# t
4. 
     j# R; N1 }( J: h9 X2 D
5.     Dim Var, vPos, tmp, oScale
   
6.       
   & Q/ W4 K0 g& d9 m2 o4 e* a: u6 v
7.         oScale = 1 / SwView.ScaleDecimal
   : U- ~) X7 l$ T* u. O
8.       
   
9.     Dim SwDim As Dimension, Depth
   
10.     Dim SwModel As ModelDoc2
    5 J: O1 v$ ^6 c, i9 |1 e. `$ r
11.         Set SwModel = SwView.ReferencedDocument
    , F( c4 \: s8 D% ]
12.         Debug.Print SwModel.GetPathName
    
13.         'PrintModelDimension SwModel
    : Y% X1 B/ ], d; l& A& @
14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")
    
15.         Depth = SwDim.Value
    8 N$ D/ O- ?2 s0 t6 t$ {2 H: y
16.       
    1 x; u4 ^/ e, `4 C8 C. t/ ?$ ?0 a8 t
17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
    
18.         With SwDraw
    
19.              Var = SwView.GetOutline
    - V( D1 ?% C$ O4 S4 M- W
20.              vPos = SwView.Position
    
21.             
    
22.              For ii = 0 To UBound(Var)
    
23.                  Var(ii) = oScale * Var(ii)
    2 O  z% }  k+ `  ]% T* G
24.                  If ii < 2 Then
    " ^8 ?$ R( i3 w
25.                     vPos(ii) = oScale * vPos(ii)
    7 U9 R3 O/ Z1 M( U2 t' ~" a: F$ s" F
26.                  End If
    , _' p' W  `% U2 s. R2 x7 K8 t
27.              Next ii
    
28.             
    . e( ?) u0 G0 i3 g* h
29.             
    
30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    # b9 A( `3 V# a% d3 Y6 ~( w
31.              .CreateBreakOutSection Depth / 1000
    
32.           End With
    3 |) |$ t! K3 D7 B
33. End Function

复制代码

qiminger

代码看不明白，测试一下看看。手动可以改变深度。

% v- \( S  c7 a6 P在装配体中，将筒和封头的基准面与装配体中的基准面做平行配合，再看一下。
5 A" r+ P7 x4 O9 `2 V; e

$ b: |+ u5 y, l/ K" j

% W6 n- c# i6 r/ x