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

ning84

椭圆封头+筒体生成工程图，
1 s; a) K0 }" h; i: z8 `断开剖视图深度是514.534xxxx
, i' {( k0 o2 ^3 W5 X. _, M结论是断开深信不可控。

9 ^6 U& B) ]3 U9 z0 K
# W6 Z5 Y8 K8 i0 |: ?
; j! y/ F9 ~" l4 ~" A' `
- X$ p* O; G' t8 Z! B

单独生成封头和筒体工程图，其断开剖视图的断开深度为510mm
结论是断开深度可控。


) O( ?* d8 W9 ^3 }

# m1 s9 c8 ]: S0 U6 S
, X) t9 H0 ?5 b7 q- j$ Z
6 _0 ]) D" r) P. A+ u' Q" s' z
" {! V6 j# G& K9 r! m2 s6 s请各位测试一下附件的工程图，
断开深度不是可控的510断开视图深度。
7 f2 ^+ c* G6 z- @: K还是不可控的514.XXXX
  p% K1 T* E8 Z$ L1 v

yk2906

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

qiminger

选择边线<1>，当然不可控了。
  A& F% A. I( m, ~, M+ L  b5 g

xuxinzhi2006

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

ning84

手动不涉及断面视图深度，用代码就涉及到深度。
: l5 S! N8 ~7 P) O
* _9 A0 P" H8 b# t

1. ''
   : ~3 A9 x, O, h- G5 x0 N
2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)
   0 w5 b" X2 a6 Q/ _1 S0 b8 F9 f
3. 
   
4. 
   
5.     Dim Var, vPos, tmp, oScale
   1 E( G  x* ^% _: c# v* Y6 p
6.       
   
7.         oScale = 1 / SwView.ScaleDecimal
   " ~; o; k0 I$ f( A
8.       
   ' @; I+ q7 o3 k, }1 C' x* k
9.     Dim SwDim As Dimension, Depth
   
10.     Dim SwModel As ModelDoc2
    5 J* a1 G' k% \$ {  a% Y
11.         Set SwModel = SwView.ReferencedDocument
    3 J$ Y- A/ a6 E; y9 r2 e- q9 ]* s
12.         Debug.Print SwModel.GetPathName
    . \2 t: u0 U& o( o
13.         'PrintModelDimension SwModel
    2 z2 W3 Z4 ?0 X- L" ~+ }: m
14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")
    
15.         Depth = SwDim.Value
    
16.       
    $ |! [- r* t9 t
17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
    0 V: @% z0 c# [. _! u7 B/ l1 g, t
18.         With SwDraw
    
19.              Var = SwView.GetOutline
    % A* ^; ~7 `  A* y: l: w2 ?% p. |
20.              vPos = SwView.Position
    ' D8 n- b' h9 ?) |0 R& M
21.             
    9 t. E9 G5 K: ~% ~" T
22.              For ii = 0 To UBound(Var)
    
23.                  Var(ii) = oScale * Var(ii)
    ) |, s( {! N3 q( [; i
24.                  If ii < 2 Then
    3 S3 @, i, W' V- U/ n: u
25.                     vPos(ii) = oScale * vPos(ii)
    # g* X. \% W5 x* |+ r% k
26.                  End If
    
27.              Next ii
    & [0 e  g3 ]: j& `0 [
28.             
    
29.             
    
30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    + c: @5 e4 _. f" w
31.              .CreateBreakOutSection Depth / 1000
    , i8 R3 Q4 C( H% G1 Z
32.           End With
    
33. End Function

复制代码

qiminger

代码看不明白，测试一下看看。手动可以改变深度。
# I; u0 k: R+ _  ]; I1 l! L/ n
在装配体中，将筒和封头的基准面与装配体中的基准面做平行配合，再看一下。