TEST

Functions
int	TEST_2_tools_cycle ()
	Informs that a cycle is using two tools at same time such as Balanced Roughing and Balanced Finishing.
int	TEST_cancel_transformation ()
	test if TRANSFO (TRANSLATION,...) is cancelled. In this case, it does not precede a call. Useful in EDM when the translation performs a movement.
int	TEST_change_cycle ()
	cycle change at OPERATION_BEGIN ? CONST_NO for sub-cycles other than the first one. When you program, you can select multiple geometries, the first one is this cycle, and the others are sub-cycles. CONST_NO for 2nd OPERATION_BEGIN call in blocks call. When the cycle changes, you will get CONST_YES Important change : Until version 6.10, this function returned CONST_YES for a sub program call. <>To know if a cycle is a sub program call, use ICALL(TEST_internal_spm_call)
int	TEST_change_plane ()
	plane change ? (different number) OPERATION_BEGIN : CONST_YES if new plane number. OPERATION_END, SPECIFIC_END : CONST_YES only at the end of plane use (only once, even with techno cycles) CONST_YES on OPERATION_END between subprograms calls in ABC rotation. CONST_YES in case of operations in same plane but with different origins (ie : G55 -> G56)
int	TEST_change_primary ()
	change primary angle It is used for 4-axis and 5-axis Milling machines, when you edit the Machine - Work Holding Device - Rotary Axis , you can find the rotation models such as: BA, CB, CA, etc. The first letter of the model is primary， In TurnMill, the primary is C angle. CONST_YES for change primary angle
int	TEST_change_secondary ()
	change secondary angle It is used for 5-axis Milling machines, when you edit the Machine - Work Holding Device - Rotary Axis , you can find the rotation models such as: BA, CB, CA, etc. The second letter of the model is secondary， In TurnMill, you may find in Machine - Kinematics by channel - Second rotary axis, Type A or Type B is the secondary ; CONST_YES for change secondary angle
int	TEST_change_tool ()
	tool change ? (different number) OPERATION_BEGIN : CONST_YES if new tool number. OPERATION_END, SPECIFIC_END : CONST_YES only when tool completes (only once, even with techno cycles) CONST_YES also on last cycle
int	TEST_change_tool_indexing ()
	change tool index in spindle you can activate the Invert by selecting the geometry. CONST_YES for change tool index in spindle, for example ,activate the Invert or cancel the invert. This option has changed from the previous cycle.
int	TEST_change_tool_pocket ()
	tool poste or index change ? It points to the tool and recognizes the tool change even if there are multiple tools on one tool number. For example, if a machine tool number is equipped with a tool holder with multiple pockets, one tool number corresponds to multiple tools
int	TEST_change_tool_pocket_turret ()
	tool poste or index change according to current trl ?
int	TEST_change_tool_turret ()
	tool change according to current trl ? (different number)
int	TEST_conical_thread ()
	conical or circular threading detected at OPERATION_BEGIN In turning cycle, threading for conical, Profile thread,
int	TEST_corner_next ()
	EDM link with following element ?
int	TEST_corner_prev ()
	EDM link with previous element ?
int	TEST_cycle_end ()
	end of last sub_cycle of current cycle, on OPERATION_END CONST_NO for sub-cycles other than the last one. CONST_YES for other cases
int	TEST_cycle_fictive ()
	Blocks output info deactivated by PPG (OPERATION_BEGIN call to prepare tool before SPG writing) (blocks deactivated for multi-holes processing)
int	TEST_cycle_spindle ()
	Informs at OPERATION_BEGIN, whether a subprogram call has to be prepared. This means that the machining toolpath will not be called immediately afterwards; a subprogram call will be made. Operation Copy to get subprogram,.
int	TEST_cycle_turret ()
	CONST_YES if some cycles are affect to the current program.
int	TEST_exist_channel (int canal)
	cycle present on canal in operations list ?
int	TEST_exist_milling ()
	milling cycle present in operations list ? In TurnMill, all cycles are turning, you well get CONST_NO; CONST_YES: One or more Milling cycle is present. in Milling, always get CONST_YES
int	TEST_exist_parting ()
	parting cycle present in operations list ?
int	TEST_exist_rework_spindle ()
	cycle exists on reworking spindle ? Usually applied to MillTurn and SwissTurn, when it has parting or has no parting, the starting or ending block is different. detected at OutputEndChannel ; OutputStartChannel
int	TEST_exist_start_plane ()
	machining present on starting plane
int	TEST_exist_turret (int Itrl, int Btrl0)
	cycle present on turret numtrl in operations list ?
int	TEST_exist_turret2 ()
	ORDO.
int	TEST_first_evol ()
	first evolution point of sub-cycle ? (POINT)
int	TEST_first_hole ()
	first hole ? (DRILLING,...) When you use a canned cycle, one or more holes are selected in a cycle, find the first hole. you can use it in PROCEDURE CycleDrillingCommonBegin
int	TEST_first_roughing ()
	first roughing (in case of pocket) ?
int	TEST_first_tool_edm ()
	first edm tool ? (OPERATION_BEGIN)
int	TEST_first_tool_milling ()
	first milling tool ? (OPERATION_BEGIN) A milling tool is used in multiple cycles, it will help you find the first cycle to use the milling tool.
int	TEST_first_tool_turning ()
	first turning tool ? (OPERATION_BEGIN)
int	TEST_first_turret_tool ()
	first tool on current trl ? (OPERATION_BEGIN) In the specified turret, it can find the first cycle of this TURRET.
int	TEST_hole_cycle ()
	turning or milling hole cycle type ? (or broaching)
int	TEST_internal_spm_call ()
	Informs at OPERATION_BEGIN and OPERATION_END if it's beetween sub-program calls (decomposed or not) CONST_NO on first OPERATION_BEGIN and last OPERATION_END some retracts or init can be omitted in this case.
int	TEST_last_cycle (int Btrl)
	last operation according to channel ? In Milling only CONST_NO is working It is more used for Operation_End
int	TEST_last_evol ()
	last evolution point of sub-cycle ? (POINT)
int	TEST_last_hole ()
	last hole ? (DRILLING,...) only with rotating tools
int	TEST_last_rapg80 ()
	last retraction in this sub-cycle ? ( CYCLE_DRILLING_CANCEL) When multiple holes are selected in a cycle, it finds the last one. It is used for OutputDrillingCancel
int	TEST_last_return ()
	last return point of sub-cycle ? (RET_...)
int	TEST_last_tool ()
	last tool according to channel ?
int	TEST_latest_cycle (int Bnext, int Bcanal, int Bchuck, int Btrl)
	last cycle according to turret, chuck, channel ? ignoring techno cycles
int	TEST_leadin_arc ()
	leadin/leadout arc ? (CRCL in particular case) for procedures APPROACH_PLANE, RETURN_PLANE, ... approach : READ_PATH_point : point destination (apres arc entree) READ_PATH_point_start : point intermediaire (depart arc entree) retour : READ_PATH_point : point destination (point de retour) READ_PATH_point_inter : point intermediaire (fin arc sortie) caracteristiques arc : READ_PATH_center, READ_PATH_radius, READ_PATH_direction, .. V5.9 : this function is available on CRCL procedure.
int	TEST_machine_pattern ()
	patterns table defined in MCG file or not ?
int	TEST_milling_cycle ()
	milling cycle ? In Turnmill, determine if it is a milling cycle. It is commonly used in Operation_Begin
int	TEST_modif_plane ()
	change primary angle or secondary angle there must be an angle change to be considered a plane change. Note: The default plane of GO2cam is empty, and the first cycle is the change from empty to having a plane, which is also a plane change.
int	TEST_MTE_activated ()
	working with MTE or not ?
int	TEST_MTE_call ()
	MTE simulation is running ?
int	TEST_multax ()
	READ_PATH_point_5axis must be used if return is yes return : CONST_YES CONST_NO.
int	TEST_NCcontrol_activated ()
	CONST_YES if informations for NC check have to be output.
int	TEST_new_main_pattern (int Idsync)
	main code pattern is not the same taht current one ?
int	TEST_next_approach_point (double *Pt)
	approaches same point on following sub-cycle ? (useful in return to avoid wire_cutting)
int	TEST_part_in_chuck (int Ichuck)
	part is in chuck , used at start
int	TEST_part_return ()
	returning cycle present in operations list ? In turning, you can do part manipulation, CONST_YES: In the machining tree, there is either part rework or part return CONST_NO: In the machining tree, there is no part rework or part return
int	TEST_part_return_next ()
	RETOURN_PIECE or REPRISE_PIECE techno cycle immediately follows. (allows retraction at OPERATION_END)
int	TEST_parting_cycle ()
	Used in turning to know if cycle is PARTING.
int	TEST_parting_rework_cycle ()
	Used in turning to know if cycle is PARTING and next cycle is REWORK you can find it in FUNCTION IsPartingReworkOperation.
int	TEST_path_edm_conic ()
	test if EDM toolpath with constant taper and conical radius
int	TEST_path_edm_iso ()
	test if EDM toolpath with constant taper and radius of ISO type
int	TEST_path_edm_taper ()
	test if EDM toolpath with constant taper and conical radius
int	TEST_path_in_inch ()
	test if toolpath movment are in INCH or not
int	TEST_path_modified ()
	Test if the initial toolpath has been modified. The modification can be a techno user function, or a point generated by collision management. This test is mainly useful for toolpath macros, if you want to replace movements by a NC cycle. (the GO2cam cycles are automatically decomposed when the toolpath is modified).
int	TEST_paxis3_invers ()
	PAX3 coordinates in opposite to GO2cam plane ? (WRITE_NC_init_plane inverse normal vector of plane ?)
int	TEST_paxis3_orthognal ()
	PAX3 coordinates in opposite to GO2cam plane ? (WRITE_NC_init_plane changes normal vector of plane ?)
int	TEST_paxis3_recalculate ()
	PAX3 coordinates affected by plane recalculation ?
int	TEST_plane_fictiv ()
	detect if plane is not created by GO2cam (sub-routines)
int	TEST_point_evol ()
	evolution point of sub-cycle ? (POINT)
int	TEST_pplane_recalculate ()
	plane coordinates affected by plane recalculation ?
int	TEST_probing_cycle ()
	probe cycle ?
int	TEST_rapg80_down ()
	CycleDrillingCancel to move lower pilot hole ? accessible on previous hole in V4.4 CONST_YES After jumping, the next hole becomes low. OR a hole at high elevations to a hole at low elevations.
int	TEST_rapg80_jump ()
	CycleDrillingCancel used to jump obstacles ? ( CONST_YES on the 2 points ) accessible on previous hole in V4.4 return : CONST_YES CONST_NO.
int	TEST_rapg80_up ()
	CycleDrillingCancel to climb higher pilot hole ? accessible on previous hole in V4.4 return : CONST_YES CONST_NO.
int	TEST_secondary_move ()
	Test if secondary is moving or not on toolpath with multax treatment return : CONST_YES CONST_NO.
int	TEST_select_integer_tec (int Btyp, int Bclef, int Ival)
	select tool, machine, DPP file structure index to access lit_xTEC, ldppxxx, edppxxx data. (CONST_YES if OK)
int	TEST_select_spm (int Indice)
	select nth SPG sub-cycle, to access starting and ending points (useful for EDM).
int	TEST_select_string_tec (int Btyp, int Bclef, const std::string &Sval)
	select tool, machine, DPP file structure index to access lit_xTEC, ldppxxx, edppxxx data. (CONST_YES if OK) You can find it in PROCEDURE Origin
int	TEST_select_tec (int Btyp, int Indice)
	select tool, machine, DPP file structure index to access lit_xTEC, ldppxxx, edppxxx data. (CONST_YES if OK)
int	TEST_spm_call ()
	Informs at OPERATION_BEGIN, whether a subprogram call has to be prepared. This means that the machining toolpath will not be called immediately afterwards; a subprogram call will be made. The tool call, thus, remains outside the subprogram. Operation Copy to get subprogram, TEST_cycle_spindle can also be used.
int	TEST_stock_change ()
	stock change, only available with dental application
int	TEST_stock_pocket ()
	pocket present in stock profile ? Used for roughing cycles in turning. Some machines cannot carry out canned roughing if there is a pocket in the stock ( NUM )
int	TEST_synchro_pattern (int Idsync)
	a pattern is defined on synchro or not ?
int	TEST_tangent_next ()
	element tangent to following one ?
int	TEST_tangent_prev ()
	element tangent to previous one ?
int	TEST_text_nc_cycle ()
	techno cycle with NC blocs ? in this case, only nc bloks need to be output
int	TEST_tool_end ()
	tool job is finish ? (end of last cycle with this tool) The same tool processes multiple cycles, at the same time, the cycles are continuous. It will find the last of these consecutive cycles. OPERATION_END, SPECIFIC_END :
int	TEST_tool_pocket_opposite ()
	is turning tool opposite used ? (OKUMA MULTUS,...)
int	TEST_tool_turret_B180 ()
	is tool selected with B180 position for turret on Baxis
int	TEST_tool_type (int Btyp, int Bout)
	particular type tool ? useful in turning with Rotary Tool for following type of tool
int	TEST_toolpath_modif ()
	CONST_YES, when you use Contouring,Zrepeat Facing, ZREPEAT POCKET, TAPER CUTTING;.
int	TEST_turn_cycle_b ()
	to know if turning cycle is using Baxis. In GO2cam Baxis Turning you can only find it in continuous B turning
int	TEST_turn_cycle_c ()
	to know if turning cycle is using Caxis (and not spindle rotation). In GO2cam Caxis Turning you can only find it in eccentric turning
int	TEST_turn_cycle_y ()
	to know if turning cycle is using Yaxis. In GO2cam Yaxis Turning you can only find it in Parting or eccentric turning
int	TEST_turning_cycle ()
	In Turnmill or SwissMill, let you know if it's a turning cycle. It is commonly used in Operation_Begin.
int	TEST_type_cycle (int Btyp, int Bcyc)
	particular type cycle ? useful in turning with RT for following type of cycle useful in milling for controlling facing tools
int	TEST_wire_thread ()
	presence of ENFILE_FIL techno function on sub-cycle ?
int	TYPE_next_cycle (int Bnext, int Bcanal, int Bchuck, int Btrl)
	type opf next cycle according to turret, chuck, channel ? CONST_NO if last cycle or CONST_PARTING, CONST_CYC_TECHNO, ...

Detailed Description

Tests

Function Documentation

TEST_2_tools_cycle()

int TEST_2_tools_cycle

(

)

Informs that a cycle is using two tools at same time
such as Balanced Roughing and Balanced Finishing.

is2tools := ICALL(TEST_2_tools_cycle);

TEST_cancel_transformation()

int TEST_cancel_transformation

(

)

test if TRANSFO (TRANSLATION,...) is cancelled.
In this case, it does not precede a call.
Useful in EDM when the translation performs a movement.

Version

4.4

istrf = ICALL(TEST_cancel_transformation)

TEST_change_cycle()

int TEST_change_cycle

(

)

cycle change at OPERATION_BEGIN ?
CONST_NO for sub-cycles other than the first one.
When you program, you can select multiple geometries,
the first one is this cycle, and the others are sub-cycles.
CONST_NO for 2nd OPERATION_BEGIN call in blocks call.
When the cycle changes, you will get CONST_YES

Important change : Until version 6.10, this function returned CONST_YES for a sub program call. <>To know if a cycle is a sub program call, use ICALL(TEST_internal_spm_call)

Version

4.4

IF (ICALL(TEST_change_cycle) = CONST_YES) then
BEGIN
    writeln( 'The cycle is change!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','The cycle is change!!',1);
    WRITEB;
END;

TEST_change_plane()

int TEST_change_plane

(

)

plane change ? (different number)
OPERATION_BEGIN :
CONST_YES if new plane number.
OPERATION_END, SPECIFIC_END :
CONST_YES only at the end of plane use
(only once, even with techno cycles)
CONST_YES on OPERATION_END between subprograms calls in ABC rotation.
CONST_YES in case of operations in same plane but with different origins (ie : G55 -> G56)

ischplan  := ICALL(TEST_change_plane);

TEST_change_primary()

int TEST_change_primary

(

)

change primary angle
It is used for 4-axis and 5-axis Milling machines,
when you edit the Machine - Work Holding Device - Rotary Axis ,
you can find the rotation models such as: BA, CB, CA, etc.
The first letter of the model is primary，
In TurnMill, the primary is C angle.
CONST_YES for change primary angle

Version

5.13

IF (ICALL(TEST_change_primary) = CONST_YES) then
BEGIN
    writeln( 'The primary is change!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','The primary is change!!',1);
    WRITEB;
END;

TEST_change_secondary()

int TEST_change_secondary

(

)

change secondary angle
It is used for 5-axis Milling machines,
when you edit the Machine - Work Holding Device - Rotary Axis ,
you can find the rotation models such as: BA, CB, CA, etc.
The second letter of the model is secondary，
In TurnMill, you may find in Machine - Kinematics by channel - Second rotary axis,
Type A or Type B is the secondary ;
CONST_YES for change secondary angle

Version

5.13

IF (ICALL(TEST_change_secondary) = CONST_YES) then
BEGIN
    writeln( 'The secondary is change!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','The secondary is change!!',1);
    WRITEB;
END;

TEST_change_tool()

int TEST_change_tool

(

)

tool change ? (different number)
OPERATION_BEGIN :
CONST_YES if new tool number.
OPERATION_END, SPECIFIC_END :
CONST_YES only when tool completes
(only once, even with techno cycles)
CONST_YES also on last cycle

IF (ICALL( TEST_change_tool) = CONST_YES)  then
BEGIN
    writeln( 'The TOOL is change!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','The TOOL is change!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'The TOOL is NOT change!!');
END;

See also

TEST_change_tool_turret, TEST_last_tool

TEST_change_tool_indexing()

int TEST_change_tool_indexing

(

)

change tool index in spindle
you can activate the Invert by selecting the geometry.
CONST_YES for change tool index in spindle,
for example ,activate the Invert or cancel the invert.
This option has changed from the previous cycle.

Version

5.13

index := ICALL(TEST_change_tool_indexing);

TEST_change_tool_pocket()

int TEST_change_tool_pocket

(

)

tool poste or index change ?
It points to the tool and recognizes the tool change
even if there are multiple tools on one tool number.
For example, if a machine tool number is equipped with a tool holder with multiple pockets,
one tool number corresponds to multiple tools

Version

5.13

IF (ICALL( TEST_change_tool_pocket) = CONST_YES)  then
BEGIN
    writeln( 'The TOOL is change and change the pocket!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','The TOOL is change and change the pocket!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'The TOOL is NOT change!!');
END;

TEST_change_tool_pocket_turret()

int TEST_change_tool_pocket_turret

(

)

tool poste or index change according to current trl ?

Version

5.13

ismodout := ICALL(TEST_change_tool_pocket_turret);

TEST_change_tool_turret()

int TEST_change_tool_turret

(

)

tool change according to current trl ? (different number)

ischout := ICALL(TEST_change_tool_turret);

See also

TEST_change_tool, TEST_last_tool

TEST_conical_thread()

int TEST_conical_thread

(

)

conical or circular threading detected at OPERATION_BEGIN
In turning cycle, threading for conical, Profile thread,

IF (ICALL( TEST_conical_thread) = CONST_YES)  then
BEGIN
    writeln( 'This is a conical_thread!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','This is a conical_thread!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'This is not a conical_thread!!');
END;

TEST_corner_next()

int TEST_corner_next

(

)

EDM link with following element ?

test := ICALL(TEST_link_next);

TEST_corner_prev()

int TEST_corner_prev

(

)

EDM link with previous element ?

test := ICALL(TEST_link_prev);

TEST_cycle_end()

int TEST_cycle_end

(

)

end of last sub_cycle of current cycle, on OPERATION_END
CONST_NO for sub-cycles other than the last one.
CONST_YES for other cases

Version

5.11

isfincycle := ICALL(TEST_cycle_end);

TEST_cycle_fictive()

int TEST_cycle_fictive

(

)

Blocks output info deactivated by PPG
(OPERATION_BEGIN call to prepare tool before
SPG writing)
(blocks deactivated for multi-holes processing)

Version

4.4

iscycbro := ICALL(TEST_cycle_fictive);

TEST_cycle_spindle()

int TEST_cycle_spindle

(

)

Informs at OPERATION_BEGIN, whether a subprogram call
has to be prepared.
This means that the machining toolpath will not be called
immediately afterwards; a subprogram call will be made.
Operation Copy to get subprogram,.

iscycbro := ICALL(TEST_cycle_spindle);

See also

TEST_spm_call

TEST_cycle_turret()

int TEST_cycle_turret

(

)

CONST_YES if some cycles are affect to the current program.

iscyc := ICALL(TEST_cycle_turret);

TEST_exist_channel()

int TEST_exist_channel

(

int

canal

)

cycle present on canal in operations list ?

Version

6.01

retour := ICALL(TEST_exist_channel,2);

TEST_exist_milling()

int TEST_exist_milling

(

)

milling cycle present in operations list ?
In TurnMill, all cycles are turning, you well get CONST_NO;
CONST_YES: One or more Milling cycle is present.
in Milling, always get CONST_YES

IF (ICALL(TEST_exist_milling) = CONST_YES)  then
BEGIN
    writeln( 'There are milling cycles!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There are milling cycles!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There are no milling cycles!!');
END;

TEST_exist_parting()

int TEST_exist_parting

(

)

parting cycle present in operations list ?

retour := ICALL(TEST_exist_parting);

TEST_exist_rework_spindle()

int TEST_exist_rework_spindle

(

)

cycle exists on reworking spindle ?
Usually applied to MillTurn and SwissTurn,
when it has parting or has no parting,
the starting or ending block is different.
detected at OutputEndChannel ; OutputStartChannel

Version

4.5

IF (ICALL(TEST_exist_rework_spindle) = CONST_YES)  then
BEGIN
    writeln( 'There is a rework_spindle!!');
    strcpy(str_Section,'STOP_CHANNEL');
    ConcatVal(str_Section,int_Channel,0);
    OutputDatSection(str_Section);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not a rework_spindle!!');
    strcpy(str_Section,'STOP_CHANNEL_without_rework_spindle');
    ConcatVal(str_Section,int_Channel,0);
    OutputDatSection(str_Section);
    WRITEB;
END;

TEST_exist_start_plane()

int TEST_exist_start_plane

(

)

machining present on starting plane

retour := ICALL(TEST_exist_start_plane);

TEST_exist_turret()

int TEST_exist_turret	(	int	Itrl,
		int	Btrl0 )

cycle present on turret numtrl in operations list ?

Version

4.6

Parameters

[in]	Itrl	turret number (1...n)
[in]	Btrl0	cycles on turret 0 (all turrets) allowed

bval:= ICALL(TEST_exist_turret,2,CONST_YES,CONST_NO);

TEST_exist_turret2()

int TEST_exist_turret2

(

)

ORDO.

cycle present on turret2 in operations list ?

retour := ICALL(TEST_exist_turret2);

TEST_first_evol()

int TEST_first_evol

(

)

first evolution point of sub-cycle ? (POINT)

test := ICALL(TEST_first_evol);

TEST_first_hole()

int TEST_first_hole

(

)

first hole ? (DRILLING,...)
When you use a canned cycle, one or more holes are selected in a cycle,
find the first hole.
you can use it in PROCEDURE CycleDrillingCommonBegin

ispremier := ICALL(TEST_first_hole);

TEST_first_roughing()

int TEST_first_roughing

(

)

first roughing (in case of pocket) ?

isprem_eb := ICALL(TEST_first_roughing);

TEST_first_tool_edm()

int TEST_first_tool_edm

(

)

first edm tool ? (OPERATION_BEGIN)

ispremier := ICALL(TEST_first_tool_edm);

TEST_first_tool_milling()

int TEST_first_tool_milling

(

)

first milling tool ? (OPERATION_BEGIN)
A milling tool is used in multiple cycles,
it will help you find the first cycle to use the milling tool.

IF IsMillingOperation and (ICALL(  TEST_first_tool_milling) = CONST_YES)  then
BEGIN
    writeln( 'There is the first_tool milling!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is the first_tool milling!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not the first_tool milling!!');
END;

TEST_first_tool_turning()

int TEST_first_tool_turning

(

)

first turning tool ? (OPERATION_BEGIN)

ispremier := ICALL(TEST_first_tool_turning);

TEST_first_turret_tool()

int TEST_first_turret_tool

(

)

first tool on current trl ? (OPERATION_BEGIN)
In the specified turret, it can find the first cycle of this TURRET.

Version

6.01

PCALL(READ_PART_turret_no, int_Turret);
IF (int_Turret = 2) and (ICALL(TEST_first_turret_tool) = CONST_YES)  then
BEGIN
    writeln( 'There is the first_tool milling!!',  int_Turret);
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is the first_tool milling!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not the first_tool milling!!');
END;

TEST_hole_cycle()

int TEST_hole_cycle

(

)

turning or milling hole cycle type ? (or broaching)

IF (ICALL(TEST_hole_cycle) = CONST_YES)  then
BEGIN
    writeln( 'There is a hole cycle!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is a hole cycle!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not a hole cycle!!');
END;

TEST_internal_spm_call()

int TEST_internal_spm_call

(

)

Informs at OPERATION_BEGIN and OPERATION_END
if it's beetween sub-program calls (decomposed or not)
CONST_NO on first OPERATION_BEGIN and last OPERATION_END
some retracts or init can be omitted in this case.

Version

6.07

retour := ICALL(TEST_internal_spm_call);

See also

TEST_spm_call

TEST_last_cycle()

int TEST_last_cycle

(

int

Btrl

)

last operation according to channel ?
In Milling only CONST_NO is working
It is more used for Operation_End

Version

4.4

Parameters

[in]

Btrl

CONST_YES: Automatically finds the last cycle of each channel. CONST_NO: Automatically finds the last cycle of the machining tree.

IF (ICALL( TEST_last_cycle,CONST_YES) = CONST_YES)  then
BEGIN
    writeln( 'There is the last cycle!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is the last cycle!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not the last cycle!!');
END;

TEST_last_evol()

int TEST_last_evol

(

)

last evolution point of sub-cycle ? (POINT)

isder_evol := ICALL(TEST_last_evol);

TEST_last_hole()

int TEST_last_hole

(

)

last hole ? (DRILLING,...) only with rotating tools

Version

4.4

isdernier := ICALL(TEST_last_hole);

See also

TEST_last_rapg80

TEST_last_rapg80()

int TEST_last_rapg80

(

)

last retraction in this sub-cycle ? ( CYCLE_DRILLING_CANCEL)
When multiple holes are selected in a cycle,
it finds the last one.
It is used for OutputDrillingCancel

dernier := ICALL(TEST_last_rapg80);

TEST_last_return()

int TEST_last_return

(

)

last return point of sub-cycle ? (RET_...)

der_ret := ICALL(TEST_last_return);

TEST_last_tool()

int TEST_last_tool

(

)

last tool according to channel ?

Version

6.03

dernier := ICALL(TEST_last_tool);

See also

TEST_change_tool, TEST_change_tool_turret, TEST_last_cycle

TEST_latest_cycle()

int TEST_latest_cycle	(	int	Bnext,
		int	Bcanal,
		int	Bchuck,
		int	Btrl )

last cycle according to turret, chuck, channel ? ignoring techno cycles

Version

6.03

Parameters

[in]	Bnext	only last sub-cycle is valid CONST_YES or CONST_NO
[in]	Bcanal	only cycle on current channel CONST_YES or CONST_NO
[in]	Bchuck	only cycle on current chuck CONST_YES or CONST_NO
[in]	Btrl	only cycle on current turret CONST_YES or CONST_NO

dernier := ICALL(TEST_latest_cycle,CONST_YES,CONST_YES,CONST_YES,CONST_NO);

TEST_leadin_arc()

int TEST_leadin_arc

(

)

leadin/leadout arc ? (CRCL in particular case)
for procedures APPROACH_PLANE, RETURN_PLANE, ...
approach :
READ_PATH_point : point destination (apres arc entree)
READ_PATH_point_start : point intermediaire (depart arc entree)
retour :
READ_PATH_point : point destination (point de retour)
READ_PATH_point_inter : point intermediaire (fin arc sortie)
caracteristiques arc :
READ_PATH_center, READ_PATH_radius, READ_PATH_direction, ..
V5.9 : this function is available on CRCL procedure.

retour := ICALL(TEST_leadin_arc);

TEST_machine_pattern()

int TEST_machine_pattern

(

)

patterns table defined in MCG file or not ?

Version

6.10

IF (ICALL(TEST_machine_pattern) = CONST_YES) THEN

TEST_milling_cycle()

int TEST_milling_cycle

(

)

milling cycle ?
In Turnmill, determine if it is a milling cycle.
It is commonly used in Operation_Begin

isfra := ICALL(TEST_milling_cycle);

TEST_modif_plane()

int TEST_modif_plane

(

)

change primary angle or secondary angle
there must be an angle change to be considered a plane change.
Note: The default plane of GO2cam is empty, and the first cycle is the change
from empty to having a plane, which is also a plane change.

Version

6.03

IF (ICALL(TEST_modif_plane) = CONST_YES) then
BEGIN
    writeln( 'The plane is change!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','The plane is change!!',1);
    WRITEB;
END;

TEST_MTE_activated()

int TEST_MTE_activated

(

)

working with MTE or not ?

Version

6.02

IF (ICALL(TEST_MTE_activated) = CONST_YES) THEN

TEST_MTE_call()

int TEST_MTE_call

(

)

MTE simulation is running ?

Version

6.08

ismte := ICALL(TEST_MTE_call);

TEST_multax()

int TEST_multax

(

)

READ_PATH_point_5axis must be used if return is yes
return : CONST_YES CONST_NO.

Version

5.5

TEST_NCcontrol_activated()

int TEST_NCcontrol_activated

(

)

CONST_YES if informations for NC check have to be output.

ischeck := ICALL(TEST_NCcontrol_activated);

TEST_new_main_pattern()

int TEST_new_main_pattern

(

int

Idsync

)

main code pattern is not the same taht current one ?

Version

6.10

Parameters

[in]

Idsync

synchro index (1,...) or 0

IF (ICALL(TEST_new_main_pattern) = CONST_YES) THEN

TEST_next_approach_point()

int TEST_next_approach_point

(

double *

Pt

)

approaches same point on following sub-cycle ?
(useful in return to avoid wire_cutting)

Parameters

[in]

Pt

point courant

IF( ICALL(TEST_next_approach_point,pts) = CONST_NO) THEN COUPE_FIL;

TEST_part_in_chuck()

int TEST_part_in_chuck

(

int

Ichuck

)

part is in chuck , used at start

Parameters

[in]

Ichuck

1 or 2:chuck number

IF (ICALL(TEST_part_in_chuck,Ichuck ) = CONST_YES)  then

TEST_part_return()

int TEST_part_return

(

)

returning cycle present in operations list ?
In turning, you can do part manipulation,
CONST_YES: In the machining tree, there is either part rework or part return
CONST_NO: In the machining tree, there is no part rework or part return

IF (ICALL(TEST_part_return) = CONST_YES)  then

TEST_part_return_next()

int TEST_part_return_next

(

)

RETOURN_PIECE or REPRISE_PIECE techno cycle
immediately follows. (allows retraction at OPERATION_END)

Version

4.5

IF (ICALL( TEST_part_return_next) = CONST_YES)  then
BEGIN
    writeln( 'There is the last cycle before part rework!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is the last cycle before part rework!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not the last cycle before part rework!!');
END;

TEST_parting_cycle()

int TEST_parting_cycle

(

)

Used in turning
to know if cycle is PARTING.

Version

6.07

istour := ICALL(TEST_parting_cycle);

TEST_parting_rework_cycle()

int TEST_parting_rework_cycle

(

)

Used in turning
to know if cycle is PARTING and next cycle is REWORK
you can find it in FUNCTION IsPartingReworkOperation.

Version

6.03

istour := ICALL(TEST_parting_rework_cycle);

TEST_path_edm_conic()

int TEST_path_edm_conic

(

)

test if EDM toolpath with constant taper and conical radius

test := ICALL(TEST_path_edm_conic);

TEST_path_edm_iso()

int TEST_path_edm_iso

(

)

test if EDM toolpath with constant taper and radius of ISO type

Version

4.4

test := ICALL(TEST_path_edm_iso);

TEST_path_edm_taper()

int TEST_path_edm_taper

(

)

test if EDM toolpath with constant taper and conical radius

test := ICALL(TEST_path_edm_taper);

TEST_path_in_inch()

int TEST_path_in_inch

(

)

test if toolpath movment are in INCH or not

Version

5.9

test := ICALL(TEST_path_in_inch);

TEST_path_modified()

int TEST_path_modified

(

)

Test if the initial toolpath has been modified.
The modification can be a techno user function,
or a point generated by collision management.
This test is mainly useful for toolpath macros,
if you want to replace movements by a NC cycle.
(the GO2cam cycles are automatically decomposed
when the toolpath is modified).

Version

4.5

test := ICALL(TEST_path_modified);

TEST_paxis3_invers()

int TEST_paxis3_invers

(

)

PAX3 coordinates in opposite to GO2cam plane ?
(WRITE_NC_init_plane inverse normal vector of plane ?)

IF ((ICALL(TEST_paxis3_orthognal) = CONST_NO) AND

See also

TEST_paxis3_orthognal

TEST_paxis3_orthognal()

int TEST_paxis3_orthognal

(

)

PAX3 coordinates in opposite to GO2cam plane ?
(WRITE_NC_init_plane changes normal vector of plane ?)

Version

6.01

IF (ICALL(TEST_paxis3_orthognal) = CONST_NO) THEN

See also

TEST_paxis3_invers

TEST_paxis3_recalculate()

int TEST_paxis3_recalculate

(

)

PAX3 coordinates affected by plane recalculation ?

itest := ICALL(TEST_paxis3_recalculate)

TEST_plane_fictiv()

int TEST_plane_fictiv

(

)

detect if plane is not created by GO2cam (sub-routines)

test := ICALL(TEST_plane_fictiv);

TEST_point_evol()

int TEST_point_evol

(

)

evolution point of sub-cycle ? (POINT)

isevol := ICALL(isPT_EVOLUITION);

See also

READ_PATH_evol_type

TEST_pplane_recalculate()

int TEST_pplane_recalculate

(

)

plane coordinates affected by plane recalculation ?

itest := ICALL(TEST_pplane_recalculate);

TEST_probing_cycle()

int TEST_probing_cycle

(

)

probe cycle ?

Version

6.06

probe := ICALL(TEST_probing_cycle);

TEST_rapg80_down()

int TEST_rapg80_down

(

)

CycleDrillingCancel to move lower pilot hole ?
accessible on previous hole in V4.4
CONST_YES After jumping, the next hole becomes low.
OR a hole at high elevations to a hole at low elevations.

IF (ICALL(TEST_rapg80_down) = CONST_YES) then
BEGIN
    writeln( 'Here down!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','Here down!!',1);
    WRITEB;
END;

TEST_rapg80_jump()

int TEST_rapg80_jump

(

)

CycleDrillingCancel used to jump obstacles ?
( CONST_YES on the 2 points )
accessible on previous hole in V4.4
return : CONST_YES CONST_NO.

obstacle:= ICALL(TEST_rapg80_jump);

TEST_rapg80_up()

int TEST_rapg80_up

(

)

CycleDrillingCancel to climb higher pilot hole ?
accessible on previous hole in V4.4
return : CONST_YES CONST_NO.

remonte:= ICALL(TEST_rapg80_up);

TEST_secondary_move()

int TEST_secondary_move

(

)

Test if secondary is moving or not on toolpath with multax treatment
return : CONST_YES CONST_NO.

Version

6.07

TEST_select_integer_tec()

int TEST_select_integer_tec	(	int	Btyp,
		int	Bclef,
		int	Ival )

select tool, machine, DPP file structure index to access
lit_xTEC, ldppxxx, edppxxx data. (CONST_YES if OK)

Version

4.5

Parameters

[in]	Btyp	TEC_PPCOM_FORMAT DPP comments' format TEC_PPCYCLE DPP cycle comments TEC_PPCOD_FEED DPP feeds codes TEC_PPCOD_SPEED DPP speeds codes TEC_PPCOD_ARRO codes arrosage DPP TEC_PPCOD_GAMME DPP spindle speed range code TEC_PPPLAN DPP planes processing
[in]	Bclef	integer key (GPP_INTEGER_PLANE_NO,...)
[in]	Ival	value searched for Bclef

IF ICALL(TEST_select_integer_tec,CONST_SELECT_PP_PLANE ,GPP_INTEGER_PLANE_NO,120) = CONST_YES THEN
    PCALL(WRITE_DPP_real,GPP_REAL_PLANE_R_MAX,0);

See also

TEST_select_tec, TEST_select_string_tec

TEST_select_spm()

int TEST_select_spm

(

int

Indice

)

select nth SPG sub-cycle,
to access starting and ending points (useful for EDM).

Version

4.4

Parameters

[in]

Indice

0 for not taking 1...n into account in 1..der to select a particular sub-cycle.

TEST_select_string_tec()

int TEST_select_string_tec	(	int	Btyp,
		int	Bclef,
		const std::string &	Sval )

select tool, machine, DPP file structure index to access
lit_xTEC, ldppxxx, edppxxx data. (CONST_YES if OK)
You can find it in PROCEDURE Origin

Version

4.5

Parameters

[in]	Btyp	TEC_PPCLEF （it is point to GPP - Keys）
[in]	Bclef	reference string key (GPP_STRING_KEY,...)
[in]	Sval	string searched for Bclef

TEST_select_tec()

int TEST_select_tec	(	int	Btyp,
		int	Indice )

select tool, machine, DPP file structure index to access
lit_xTEC, ldppxxx, edppxxx data. (CONST_YES if OK)

Version

4.4

Parameters

[in]	Btyp	TEC_ATTACHE tool holder TEC_TOURELLE machine turret TEC_OUTFIX machine fixed tool TEC_JAUGE machine gauge TEC_PUNTOLE sheet metal TEC_PPCLEF DPP address letter TEC_PPCYCLE DPP cycle processing TEC_PPAUX_G DPP G group TEC_PPAUX_M DPP M group TEC_PPCOD_FEED DPP feeds codes TEC_PPCOD_SPEED DPP speeds codes TEC_PPCOD_GAMME DPP spindle speed range code TEC_PPCOM_FORMAT DPP comments' format TEC_PPCOM_ENTETE DPP header comments TEC_PPCOM_DEBUT DPP start comments TEC_PPCOM_CYCLE DPP cycle comments TEC_PPCOM_OUTIL DPP tool comments TEC_PPCOD_ARRO DPP coolant codes TEC_PPPLAN DPP planes processing TEC_PPCOM_LISOUT tools list header comments TEC_PPCOL_LISOUT tools list columns definition
[in]	Indice	element's index (0,...) except turret (1,...)

TEST_spm_call()

int TEST_spm_call

(

)

Informs at OPERATION_BEGIN, whether a subprogram call
has to be prepared.
This means that the machining toolpath will not be called
immediately afterwards; a subprogram call will be made.
The tool call, thus, remains outside the subprogram.
Operation Copy to get subprogram,
TEST_cycle_spindle can also be used.

IF (ICALL( TEST_spm_call) = CONST_YES)  then
    BEGIN
        writeln( 'There is spm_call!!');
        PCALL(OUTPUT_NC_TAB_STR,'CO','There is spm_call!!',1);
        WRITEB;
    END
    ELSE
    BEGIN
        writeln( 'There is not spm_call!!');
    END;

See also

TEST_internal_spm_call

TEST_stock_change()

int TEST_stock_change

(

)

stock change, only available with dental application

Version

6.02

isnewbrut := ICALL(TEST_stock_change);

TEST_stock_pocket()

int TEST_stock_pocket

(

)

pocket present in stock profile ?
Used for roughing cycles in turning.
Some machines cannot carry out canned roughing
if there is a pocket in the stock ( NUM )

ispoche := ICALL(TEST_stock_pocket);

TEST_synchro_pattern()

int TEST_synchro_pattern

(

int

Idsync

)

a pattern is defined on synchro or not ?

Version

6.10

Parameters

[in]

Idsync

synchro index (1,...) or 0 If Idsync is null, test if there is one synchro with pattern in opelist

IF (ICALL(TEST_synchro_pattern) = CONST_YES) THEN

TEST_tangent_next()

int TEST_tangent_next

(

)

element tangent to following one ?

tgt_prec := ICALL(TEST_tangent_next);

TEST_tangent_prev()

int TEST_tangent_prev

(

)

element tangent to previous one ?

tgt_prec := ICALL(TEST_tangent_prev);

TEST_text_nc_cycle()

int TEST_text_nc_cycle

(

)

techno cycle with NC blocs ?
in this case, only nc bloks need to be output

Version

6.03

istexte := ICALL(TEST_text_nc_cycle);

TEST_tool_end()

int TEST_tool_end

(

)

tool job is finish ? (end of last cycle with this tool)
The same tool processes multiple cycles,
at the same time, the cycles are continuous.
It will find the last of these consecutive cycles.
OPERATION_END, SPECIFIC_END :

Version

6.01

IF (ICALL( TEST_tool_end) = CONST_YES)  then
BEGIN
    writeln( 'There is tool_end!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is tool_end!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not tool_end!!');
END;

TEST_tool_pocket_opposite()

int TEST_tool_pocket_opposite

(

)

is turning tool opposite used ? (OKUMA MULTUS,...)

Version

5.9

inverse := ICALL(TEST_tool_pocket_opposite);

See also

READ_PART_turning_b_angle

TEST_tool_turret_B180()

int TEST_tool_turret_B180

(

)

is tool selected with B180 position for turret on Baxis

Version

6.02

b180 := ICALL(TEST_tool_turret_B180);

TEST_tool_type()

int TEST_tool_type	(	int	Btyp,
		int	Bout )

particular type tool ?
useful in turning with Rotary Tool for following type of tool

Version

4.5

Parameters

[in]	Btyp	CONST_TURNING CONST_CYCLE_MILLING CONST_EDM_CYCLE
[in]	Bout	read BOOLEAN_TOOL_TYPE

PCALL(READ_PART_boolean_tec,BOOLEAN_TOOL_TYPE,typout);
IF (ICALL(TEST_tool_type,CONST_TURNING,typout)= CONST_YES)  then

See also

UTIL_load_next_diff_tool_turret

TEST_toolpath_modif()

int TEST_toolpath_modif

(

)

CONST_YES, when you use Contouring,Zrepeat Facing, ZREPEAT POCKET, TAPER CUTTING;.

Version

6.06

ismod := ICALL(TEST_toolpath_modif);

TEST_turn_cycle_b()

int TEST_turn_cycle_b

(

)

to know if turning cycle is using Baxis.
In GO2cam Baxis Turning you can only find it in continuous B turning

Version

2026

isturnB := ICALL(TEST_turn_cycle_b);

TEST_turn_cycle_c()

int TEST_turn_cycle_c

(

)

to know if turning cycle is using Caxis (and not spindle rotation).
In GO2cam Caxis Turning you can only find it in eccentric turning

Version

2026

isturnC := ICALL(TEST_turn_cycle_c);

TEST_turn_cycle_y()

int TEST_turn_cycle_y

(

)

to know if turning cycle is using Yaxis.
In GO2cam Yaxis Turning you can only find it in Parting or eccentric turning

Version

6.07

isturnY := ICALL(TEST_turn_cycle_y);

TEST_turning_cycle()

int TEST_turning_cycle

(

)

In Turnmill or SwissMill, let you know if it's a turning cycle.
It is commonly used in Operation_Begin.

IF (ICALL(TEST_turning_cycle)= CONST_YES)  then
BEGIN
    writeln( 'There is Turning!!');
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is Turning!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not Turning!');
END;

TEST_type_cycle()

int TEST_type_cycle	(	int	Btyp,
		int	Bcyc )

particular type cycle ?
useful in turning with RT for following type of cycle
useful in milling for controlling facing tools

Parameters

[in]	Btyp	CONST_TURNING CONST_CYCLE_MILLING CONST_CYCLE_3D_MILLING CONST_EDM_CYCLE
[in]	Bcyc	READ_PART_cycle_no

Remarks

remarque : 3D cycles are llways Milling cyles

PCALL(READ_PART_cycle_no,int_CycleNo);
IF (ICALL(TEST_type_cycle,CONST_CYCLE_MILLING,int_CycleNo)= CONST_YES)  then
BEGIN
    writeln( 'There is Milling!!',int_CycleNo);
    PCALL(OUTPUT_NC_TAB_STR,'CO','There is Milling!!',1);
    WRITEB;
END
ELSE
BEGIN
    writeln( 'There is not Milling!');
END;

See also

READ_PART_next_cycle_typno

TEST_wire_thread()

int TEST_wire_thread

(

)

presence of ENFILE_FIL techno function on sub-cycle ?

IF (ICALL(TEST_wire_thread)=CONST_YES)) THEN

TYPE_next_cycle()

int TYPE_next_cycle	(	int	Bnext,
		int	Bcanal,
		int	Bchuck,
		int	Btrl )

type opf next cycle according to turret, chuck, channel ? CONST_NO if last cycle or CONST_PARTING, CONST_CYC_TECHNO, ...

Version

6.10

Parameters

[in]	Bnext	if CONST_NO, function will return typ current cycle if not last sub-cycle
[in]	Bcanal	only cycle on current channel CONST_YES or CONST_NO
[in]	Bchuck	only cycle on current chuck CONST_YES or CONST_NO
[in]	Btrl	only cycle on current turret CONST_YES or CONST_NO

typcyc := ICALL(TYPE_next_cycle,CONST_YES,CONST_YES,CONST_YES,CONST_NO);