+PROG   AQUA urs:1
    HEAD                
    CTRL    FACE    NEG     
                    
    NORM    GB 50010-2010           
    CONC    NO  TYPE    FCN 
        1   C   50  
                    
    SECT    1           
                    
    TVAR    'B' 1
    TVAR    'H' 1
    TVAR    'a' '=#H+1-1'

    $ 箱梁外轮廓
    POLY    TYPE    MNO
        O   1
    VERT    NO  Y   Z   REFP
        0   0   0
        1   '=#B/2' 0   0
        2   0   '=-#a'  1
        3   '=-#B'  0   2
        4   0   '=#a'   3
    END




    +PROG   SofimshC urs:2
    SYST    TYPE    GDIV    GDIR
        3D  1000    NEGZ
    GAX 'AXIS'
    GAXA    S   X   Y   SX  SY
        0   0   0   1   0
            L   R
            200 300.75
    GAXP    ID  S   TYPE    TITL
        'AXIS'  0   'S' 'CL Abut 1'
        'AXIS'  32.47   'S' 'Pier 2'
        'AXIS'  74.47   'S' 'Pier 3'
        'AXIS'  106.94  'S' 'CL Abut 4'
    GAXV    ID  NAME    S   V   TYPE
        'AXIS'  H   0   1.5 POLY
        'AXIS'  H   11.47   1.5 D*
        'AXIS'  H   31.47   3   POLY
        'AXIS'  H   33.47   3   D-
        'AXIS'  H   53.47   1.5 D*
        'AXIS'  H   73.47   3   D+
        'AXIS'  H   75.47   3   POLY
        'AXIS'  H   95.47   1.5 D*
        'AXIS'  H   106.94  1.5 POLY
    SPT NO  REF NREF    SX  FIX
        100 AX  'AXIS'  0   PPMM
        101 AX  'AXIS'  32.47   PP
        102 AX  'AXIS'  74.47   PP
        103 AX  'AXIS'  106.94  PP
    SLN NO  NPA NPE REF GRP STYP    SNO
        101 100 101 AXIS    1   B   1
        102 101 102 AXIS    1   B   1
        103 102 103 AXIS    1   B   1
    CTRL    MESH    1    HMIN   1[m]

    END



+PROG AQUA urs:3
HEAD INTERPOLATE ALL SECTIONS
ECHO SECT
INTE ALL
END

    +PROG   Sofiload urs:4
    ACT G

    LC  1   G   DLZ -1

    END

    +PROG   ASE urs:5

    LC  ALL

    END