Example of a Clip Macro

DECLARE,VERSION2,

INTEGER;

DECLARE, PROF_TYPE,

INTEGER;

DECLARE, PROF_PARAM1,

DECIMAL;

DECLARE, PROF_PARAM2,

DECIMAL;

DECLARE, PROF_PARAM3,

DECIMAL;

DECLARE, PROF_PARAM4,

DECIMAL;

DECLARE, PROF_PARAM5,

DECIMAL;

DECLARE, PROF_PARAM6,

DECIMAL;

DECLARE, V2,

VECTOR_2D;

DECLARE, V3,

VECTOR_2D;

DECLARE, V4,

VECTOR_2D;

DECLARE, WEB_FACTOR,

DECIMAL;

DECLARE, FLANGE_FACTOR,

DECIMAL;

DECLARE, PLATE_THICKNESS,

DECIMAL;

DECLARE, CLIP_LOC,

INTEGER;

DECLARE, CUT_TYPE,

INTEGER;

DECLARE, PARAM1,

DECIMAL;

DECLARE, PARAM2,

DECIMAL;

DECLARE, GAP_M,

DECIMAL;

DECLARE, GAP_N,

DECIMAL;

DECLARE, GAP_T,

DECIMAL;

DECLARE, C_MEAS,

DECIMAL;

DECLARE, CLIP_THICKNESS,

DECIMAL;

DECLARE, SURFACE,

STRING;

DECLARE, QUALITY,

STRING;

DECLARE, EXCESS,

DECIMAL;

DECLARE, CLIP_CONTOUR,

CONTOUR_2D;

DECLARE, INTERVALS,

INTERVALLIST_2D;

DECLARE, INTERVAL_TYPES,

STRING;

DECLARE, WELD,

DECIMAL;

DECLARE, WCLIP,

DECIMAL;

DECLARE, WPROF,

DECIMAL;

DECLARE, WSHELL,

DECIMAL;

DECLARE, BCLIP,

DECIMAL;

DECLARE, BWEB,

DECIMAL;

DECLARE, BCWEB,

DECIMAL;

DECLARE, BFLA,

DECIMAL;

DECLARE, BCFLA,

DECIMAL;

DECLARE, BSHELL,

DECIMAL;

DECLARE, BCSHELL,

DECIMAL;

DECLARE, POS_CODE,

INTEGER;

DECLARE, DESIGNATION,

STRING;

DECLARE, POS,

INTEGER;

DECLARE, DESTINATION,

STRING;

DECLARE, INSERT_CODE,

INTEGER;

DECLARE, ASSEMBLY,

STRING;

DECLARE, RESULT,

INTEGER;

DECLARE, MESSAGE,

STRING;

!

Local declarations

!

V2 is the normalized 2d vector along the flange

DECLARE, V2_X,

DECIMAL;

DECLARE, V2_Y,

DECIMAL;

!

C0 - C5 define the node points of the clip contour.

!

DECLARE, C0,

POINT_2D;

DECLARE, C1,

POINT_2D;

DECLARE, C2,

POINT_2D;

DECLARE, C3,

POINT_2D;

DECLARE, C4,

POINT_2D;

DECLARE, C5,

POINT_2D;

!

!

Some additional variables

DECLARE, DIST1,

DECIMAL;

DECLARE, DIST2,

DECIMAL;

DECLARE, DIST3,

DECIMAL;

DECLARE, FIXED_R1,

DECIMAL;

DECLARE, OVERLAP,

DECIMAL;

DECLARE, Q0,

POINT_2D;

DECLARE, RES,

INTEGER;

DECLARE, V1,

VECTOR_2D;

DECLARE, V2_NEG,

VECTOR_2D;

DECLARE, WB1,

POINT_2D;

DECLARE, WB2,

POINT_2D;

DECLARE, X0,

DECIMAL;

DECLARE, Y0,

DECIMAL;

!

**************************************************************

!

Main procedure of clip_1

!

**************************************************************

!

Assign treatment code.

ASSIGN, POS_CODE, 1;

!

FIXED_R1 is the corner radius (15 mm).

ASSIGN, FIXED_R1, 15.0;

!
!

DIST1 is the gap between the bottom side of the clip and the plate carrying the profile.

!
!

DIST2 is the width of the clip. It depends on the clip side, so it will be calculated later.

!
!

DIST3 is the gap between the top side of the clip and the (top side) of the flange.

ASSIGN, DIST1, 50.0;

ASSIGN, DIST3, 50.0;

ASSIGN, OVERLAP, 50.0;

GET/STRUCTURE = ( V2_X, V2, 'VEC', 'X');

GET/STRUCTURE = ( V2_Y, V2, 'VEC', 'Y');

!
!

V1 is a vector along the web of the profile cross section, that means, along the V-axis of the local clip coordinate system.

VECTOR_2D, V1, 0.0, 1.0;

!

Vector in the negative direction of V1.

VECTOR_2D, V1_NEG, 0.0, -1.0;

!

Vector in the negative direction of V2.

VECTOR_2D, V2_NEG, -V2_X, -V2_Y;

!

---------------------------------------------------------------

!

Define clip contour node points on mould line side

!

---------------------------------------------------------------

IF, CLIP_LOC == 1;

!

Set DIST2. It may depend on the clip side.

ASSIGN, DIST2, GAP_M + OVERLAP;

!

C0 is located DIST1 from the bottom of the web

POINT_2D, C0, 0.0, DIST1;

!

C1 is located DIST3 from the top of the profile.

POINT_2D, C1, 0.0, WEB_FACTOR * PROF_PARAM1 - DIST3;

!
!

Let Q0 be a point on distance "DIST2" from C1, in the negative direction of V2.

CALL, 'move_point_2d', C1, V2_NEG, DIST2, Q0;

!
!

C2 C3 defines the starting and ending point on the upper arc segment with radius FIXED_R1.

CALL, 'fillet_radius_2d',
C1, V2_NEG, Q0, V1_NEG, FIXED_R1, C2, C3, RES;

!
!

C4 C5 defines the starting and ending point on the lower arc segment with radius FIXED_R1

CALL, 'fillet_radius_2d',
C3, V1_NEG, C0, V2, FIXED_R1, C4, C5, RES;

!
!

Calculate the start and the end point of the bevel/welding interval that overlaps the penetrated plate.

CALL, 'move_point_2d', C1, V2_NEG, GAP_M, WB1;
CALL, 'move_point_2d', C0, V2_NEG, GAP_M, WB2;
ENDIF;

!

---------------------------------------------------------------

!

Define clip contour node points on non-mould line side

!

---------------------------------------------------------------

IF, CLIP_LOC == 2;

!

Set DIST2

ASSIGN, DIST2, GAP_N + OVERLAP;
IF, PROF_TYPE == 10;
ASSIGN, X0, FLANGE_FACTOR * PROF_PARAM2 * V2_X;
ASSIGN, Y0, FLANGE_FACTOR * PROF_PARAM2 * V2_Y;
ELSE;
ASSIGN, X0, FLANGE_FACTOR * PROF_PARAM3 * V2_X;
ASSIGN, Y0, FLANGE_FACTOR * PROF_PARAM3 * V2_Y;
ENDIF;

!

C0 is located DIST3 from the top of the profile.

POINT_2D, C0, X0, Y0 + WEB_FACTOR * PROF_PARAM1 - DIST3;

!

C1 is located DIST1 from the bottom of the web

POINT_2D, C1, X0, Y0 + DIST1;

!
!

Let Q0 be a point on distance "DIST2" from C1, in the direction of V2.

CALL, 'move_point_2d', C1, V2, DIST2, Q0;

!
!

C2 C3 defines the starting and ending point on the lower arc segment with radius FIXED_R1

CALL, 'fillet_radius_2d',
C1, V2, Q0, V1, FIXED_R1, C2, C3, RES;

!
!

C4 C5 defines the starting and ending point on the upper arc segment with radius FIXED_R1

CALL, 'fillet_radius_2d',
C3, V1, C0, V2_NEG, FIXED_R1, C4, C5, RES;

!
!

Calculate the start and the end point of the bevel/welding interval that overlaps the penetrated plate.

CALL, 'move_point_2d', C1, V2, GAP_N, WB1;
CALL, 'move_point_2d', C0, V2, GAP_N, WB2;
ENDIF;

!
!

Define the clips contour.
The direction of the clip contour should be counter
clockwise starting with the first segment that is
welded against the profile.

!
!

CONTOUR, CLIP_CONTOUR, C0
    /LINEEND = C1
    /LINEEND = C2
    /ARCRADIUS = ( C3, FIXED_R1)
    /LINEEND = C4
    /ARCRADIUS = ( C5, FIXED_R1)
    /LINEEND = C0;

!

Define weld/bevel intervals.

INTERVALLIST_2D, INTERVALS
/APPEND = ( C0, C1)
/APPEND = ( WB1, WB2);

!

!

Set weld/bevel interval types.

ASSIGN, INTERVAL_TYPES, '10,40';
ASSIGN, RESULT, 0;
ASSIGN, MESSAGE, ‘’;
ENDMACRO;