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

zhang0712222

   经典图书

椭圆封头+筒体生成工程图，
断开剖视图深度是514.534xxxx
结论是断开深信不可控。

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

请各位测试一下附件的工程图，
断开深度不是可控的510断开视图深度。
还是不可控的514.XXXX
aa.zip (215.02 KB, 下载次数: 159)

2016-12-22 09:35 上传

点击文件名下载附件
下载积分: 金币 -1

linjie

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

zzzx

   经典图书

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

shichaoqignfeng

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

★─━々康々

   经典案例图书

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

''
Function BreakOut(SwDraw As DrawingDoc, SwView As View)
    Dim Var, vPos, tmp, oScale
      
        oScale = 1 / SwView.ScaleDecimal
      
    Dim SwDim As Dimension, Depth
    Dim SwModel As ModelDoc2
        Set SwModel = SwView.ReferencedDocument
        Debug.Print SwModel.GetPathName
        'PrintModelDimension SwModel
        Set SwDim = SwModel.Parameter("Depth@PlateSize") '("Depth@PlateSize")
        Depth = SwDim.Value
      
    Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
        With SwDraw
             Var = SwView.GetOutline
             vPos = SwView.Position
            
             For ii = 0 To UBound(Var)
                 Var(ii) = oScale * Var(ii)
                 If ii < 2 Then
                    vPos(ii) = oScale * vPos(ii)
                 End If
             Next ii
            
            
             tmp = .SketchRectangle(-Var(2), -Var(3), 0, Var(2), Var(3), 0, 1)
             .CreateBreakOutSection Depth / 1000
          End With
End Function

复制代码

fvgfa

代码看不明白，测试一下看看。手动可以改变深度。
在装配体中，将筒和封头的基准面与装配体中的基准面做平行配合，再看一下。