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

ning84

椭圆封头+筒体生成工程图，
3 g3 _8 p% S5 o/ `断开剖视图深度是514.534xxxx
结论是断开深信不可控。
8 w  f& }& ?* X7 Z
) D8 L$ Z0 z( A) K2 V* X

; J) r% n" q; L0 [8 Z( r" N

3 r9 w- P8 }: e; H& U- N' m
4 M) s0 d) T7 F# c4 a' X1 O  I单独生成封头和筒体工程图，其断开剖视图的断开深度为510mm
6 q6 L: F: k2 n) I: U. x$ x$ F结论是断开深度可控。





0 X9 j+ f) @- B7 d

0 X! I2 v( O- \, C7 u. j7 z" E: J: `请各位测试一下附件的工程图，
; r9 ?2 o. ~7 A* k断开深度不是可控的510断开视图深度。
+ Z3 L# t% `; b' F# S' D) u还是不可控的514.XXXX
' E8 t1 j/ J  D" _" q- N
, n1 c9 V- T) _# U1 |

yk2906

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

qiminger

选择边线<1>，当然不可控了。
7 C1 J' r2 g. ^  f& w

xuxinzhi2006

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

ning84

手动不涉及断面视图深度，用代码就涉及到深度。
5 c# o3 m) D7 A) H5 |( e) d

1. ''
   4 O/ r  N& d; p: Q! L4 j
2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)
   
3. 
   1 v4 ]. k+ \8 X1 J4 i. i0 m0 @& r
4. 
   
5.     Dim Var, vPos, tmp, oScale
   $ ?# ^1 x% t( `# B" [
6.       
   
7.         oScale = 1 / SwView.ScaleDecimal
   / T" c5 i$ H8 B$ H% s2 b1 Z
8.       
   3 D6 H5 N( L8 A& w: z
9.     Dim SwDim As Dimension, Depth
   
10.     Dim SwModel As ModelDoc2
    
11.         Set SwModel = SwView.ReferencedDocument
    + X3 z, r- @6 t1 H2 K
12.         Debug.Print SwModel.GetPathName
    
13.         'PrintModelDimension SwModel
    
14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")
    " d- o. A4 t: H4 y
15.         Depth = SwDim.Value
    
16.       
    3 W5 K2 ]) b- c1 g9 z& @
17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
    9 I9 k' V: f$ `( ]2 x+ R
18.         With SwDraw
    
19.              Var = SwView.GetOutline
    4 r' _& C# e7 h, d7 p  y) a7 E
20.              vPos = SwView.Position
    7 ^! q& B! g+ k) ]: q! W
21.             
    
22.              For ii = 0 To UBound(Var)
    : j& \1 P4 j& i2 Z) X* a
23.                  Var(ii) = oScale * Var(ii)
    
24.                  If ii < 2 Then
    2 [8 _* A$ R  ~/ i
25.                     vPos(ii) = oScale * vPos(ii)
    / U( r+ i5 ^" D; j3 Y$ t+ m# M  `' A
26.                  End If
    
27.              Next ii
    & T9 {3 w! k. j  o: a
28.             
    
29.             
    
30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    2 \# e* s' }) Z, u7 j
31.              .CreateBreakOutSection Depth / 1000
    
32.           End With
    
33. End Function

复制代码

qiminger

* I% H+ d, y$ W) i
0 j" M/ b  v0 R. _代码看不明白，测试一下看看。手动可以改变深度。

) C- m% s5 ^; U( p, B+ H. {在装配体中，将筒和封头的基准面与装配体中的基准面做平行配合，再看一下。
( X9 [& A5 Z0 Z+ Q* B/ N! o5 l


$ J: \9 u" r7 H' c
* |7 u9 S' U# R% ?' |: K0 V8 T