FUNCTION check_curve_planarity
(* SCHEMA step_merged_ap_schema; *)
-- IN AP242
FUNCTION check_curve_planarity
(checked_curve : curve ) : BOOLEAN;
LOCAL
crv : curve := checked_curve;
i : INTEGER;
j : INTEGER;
result : BOOLEAN := FALSE;
END_LOCAL;
IF SIZEOF([ 'STEP_MERGED_AP_SCHEMA.CONIC', 'STEP_MERGED_AP_SCHEMA.LINE' ] * TYPEOF(crv)) > 0 THEN
result := TRUE;
ELSE
IF ('STEP_MERGED_AP_SCHEMA.TRIMMED_CURVE' IN TYPEOF(crv)) AND check_curve_planarity(crv\trimmed_curve.basis_curve) THEN
result := TRUE;
ELSE
IF ('STEP_MERGED_AP_SCHEMA.PCURVE' IN TYPEOF(crv)) AND ('STEP_MERGED_AP_SCHEMA.PLANE' IN TYPEOF(crv\pcurve.basis_surface)) THEN
result := TRUE;
ELSE
IF 'STEP_MERGED_AP_SCHEMA.SURFACE_CURVE' IN TYPEOF(crv) THEN
BEGIN
REPEAT j := 1 TO HIINDEX(crv\surface_curve.basis_surface);
IF 'STEP_MERGED_AP_SCHEMA.PLANE' IN TYPEOF(crv\surface_curve.basis_surface[j]) THEN
result := TRUE;
END_IF;
END_REPEAT;
END;
END_IF;
END_IF;
END_IF;
END_IF;
RETURN (result);
END_FUNCTION;
Referenced By
Defintion check_curve_planarity is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00