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

ning84

椭圆封头+筒体生成工程图，
+ l, W9 B1 {/ u. Y; F断开剖视图深度是514.534xxxx
结论是断开深信不可控。
4 V2 U0 O9 D3 {


& q3 [1 x7 d( N


) a! H8 c, ?1 O9 d- L! B5 R, H单独生成封头和筒体工程图，其断开剖视图的断开深度为510mm
- I+ i! |; `" \7 P3 y& Y结论是断开深度可控。




5 U# W' }2 F) E: O, y


: {5 ^& L% q7 S- Z; b请各位测试一下附件的工程图，
/ o! k% F, Y8 U% k& d断开深度不是可控的510断开视图深度。
还是不可控的514.XXXX

yk2906

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

qiminger

选择边线<1>，当然不可控了。
: ?. I3 P6 o7 ]8 q- Q% V) P

xuxinzhi2006

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

ning84

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

; O& w& \3 v4 ?' D2 A

1. ''
   
2. Function BreakOut(SwDraw As DrawingDoc, SwView As View)
   ) h; @. K( H: k4 K9 _% y2 h
3. 
   ' S2 P8 z( k; O) Y+ \
4. 
   
5.     Dim Var, vPos, tmp, oScale
   + t! L$ ^; i/ A  K& p' A4 Z3 d" ?
6.       
   
7.         oScale = 1 / SwView.ScaleDecimal
   
8.       
   $ S$ I& i4 Y( I8 w& \' i/ s
9.     Dim SwDim As Dimension, Depth
   0 k! x0 \: A( L
10.     Dim SwModel As ModelDoc2
    6 ?/ J$ g- P; {) ^$ k- @  J
11.         Set SwModel = SwView.ReferencedDocument
    
12.         Debug.Print SwModel.GetPathName
      R, B* ?) x- `
13.         'PrintModelDimension SwModel
    
14.         Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")
    ) }1 d  }4 O6 Q
15.         Depth = SwDim.Value
    & _" x5 D: n  G6 {
16.       
    & ?3 T( A7 \8 c8 T4 G: F
17.     Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
    
18.         With SwDraw
    " h( |5 r2 o1 P  y- z+ w1 D, z5 G
19.              Var = SwView.GetOutline
    & [' |6 i' `" Y6 E1 P1 v; x
20.              vPos = SwView.Position
    
21.             
    
22.              For ii = 0 To UBound(Var)
    
23.                  Var(ii) = oScale * Var(ii)
    
24.                  If ii < 2 Then
    
25.                     vPos(ii) = oScale * vPos(ii)
    1 c# y) {7 s' C+ t" \- Y% \3 ^* e
26.                  End If
    
27.              Next ii
    
28.             
    
29.             
    
30.              tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
    
31.              .CreateBreakOutSection Depth / 1000
    
32.           End With
    7 S$ z* u3 ?6 U& S
33. End Function

复制代码

qiminger

% h: h9 M* u8 [% g( R7 `8 y& J1 J
" q5 P2 n: J/ {! Q- ?4 e代码看不明白，测试一下看看。手动可以改变深度。
( e# O& |3 t& R5 g4 a: y
: o6 f# F& |& G# k在装配体中，将筒和封头的基准面与装配体中的基准面做平行配合，再看一下。