Pipedata3d – Welding Neck Flange-卡核

Pipedata3d – Welding Neck Flange

Abstract. Pipedata3d show piping component data in tables and 3D modeling. It can help the piping designers to looking up piping information quickly and so improve the efficiency of piping design.

Key Words. Pipedata3d, ASME, GB, HG, CB, Piping Design

1. Introduction

在管道设计过程中，会使用到大量的标准，如ASME，DIN，GB，CB，HG，SH等等。管道设计人员在设计过程中，需要翻阅相关标准手册，查找所需要的数据，较为繁琐。如果能将相关管件的数据以直观的方式展示出来，可以极大地提高管道设计人员的设计效率。

Pipedata3d通过把标准数据以表格及三维的方式展示出来，更加形象直观，在方便设计人员查询数据的同时，增加了些许趣味性。

本文将Pipedata3d的结合ASME B16.5中的对焊法兰将实现过程简要介绍一下，并给出相关的实现脚本代码，感兴趣的可以自己玩玩。

2.ASME B16.5 Weld Neck Flange

标准ASME B16.5中对焊法兰的相关尺寸如下图所示：

Figure 2.1 Welding Neck Flange Dimension

Figure 2.2 Dimensions of Class 150 Flanges

以上数据来源为ASME B16.5-2009, Pipe Flanges and Flanged Fittings。ASME is the registered trademark of The America Society of Mechanical Engineers.

3.Flange Modeling

基于OpenCASCADE中Draw Test Harness中的脚本，可以实现上述参数化式的造型，部分Tcl脚本如下所示：

    set dn 15
    set o 90
    set tf 9.6
    set x 30
    set ah 21.3
    set y 46
    set b 15.8
    set r 3
    set rf 1.6
       
    # modeling
    pcylinder aRaisedFace [expr $x/2.0] $rf
    pcylinder aFlange [expr $o/2.0] $tf
    pcone aNeck [expr $x/2.0] [expr $ah/2.0] [expr $y-$tf*2.0]
    pcylinder aWeld [expr $ah/2.0] $tf
    pcylinder aSocket [expr $b/2.0] [expr $y+$rf]
    
    nexplode aFlange E
    blend aFlange aFlange $r aFlange_2
    
    renamevar aWeld F
    explode F F
    renamevar F E
    explode E E
    chamf aWeld E E_1 F_1 S $rf
    
    # transform to the right position
    ttranslate aFlange 0 0 $rf
    ttranslate aNeck 0 0 [expr $tf+$rf]
    ttranslate aWeld 0 0 [expr $y+$rf-$tf]
    
    # boolean operations
    bop aRaisedFace aFlange
    bopfuse aResultShape
    
    bop aResultShape aNeck
    bopfuse aResultShape
    
    bop aResultShape aWeld
    bopfuse aResultShape
    
    bop aResultShape aSocket
    bopcut aResultShape
    
    # visualize
    vinit
    vsetgradientbg 180 200 255 180 180 180 2
    vsetdispmode 1
    
    vdisplay aResultShape