FUNCTION valid_geometrically_bounded_wf_curve
(* SCHEMA associative_draughting; *)
FUNCTION valid_geometrically_bounded_wf_curve(
crv: curve;
schma: STRING
): BOOLEAN;
IF SIZEOF([schma + '.POLYLINE',schma + '.B_SPLINE_CURVE',schma +
'.ELLIPSE',schma + '.CIRCLE'] * TYPEOF(crv)) = 1 THEN
RETURN(TRUE);
ELSE
IF (schma + '.TRIMMED_CURVE') IN TYPEOF(crv) THEN
IF SIZEOF([schma + '.LINE',schma + '.PARABOLA',schma +
'.HYPERBOLA'] * TYPEOF(crv\trimmed_curve.basis_curve)) = 1
THEN
RETURN(TRUE);
ELSE
RETURN(valid_geometrically_bounded_wf_curve(crv\trimmed_curve.
basis_curve,schma));
END_IF;
ELSE
IF (schma + '.OFFSET_CURVE_3D') IN TYPEOF(crv) THEN
RETURN(valid_geometrically_bounded_wf_curve(crv\offset_curve_3d.
basis_curve,schma));
ELSE
IF (schma + '.CURVE_REPLICA') IN TYPEOF(crv) THEN
RETURN(valid_geometrically_bounded_wf_curve(crv\curve_replica.
parent_curve,schma));
ELSE
IF (schma + '.COMPOSITE_CURVE') IN TYPEOF(crv) THEN
RETURN(SIZEOF(QUERY ( ccs <* crv\composite_curve.segments |
(NOT valid_geometrically_bounded_wf_curve(ccs.
parent_curve,schma)) )) = 0);
END_IF;
END_IF;
END_IF;
END_IF;
END_IF;
RETURN(FALSE);
END_FUNCTION; -- valid_geometrically_bounded_wf_curve
Referenced By
Defintion valid_geometrically_bounded_wf_curve is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:12-04:00