ГОСТ Р ИСО 10303-203-2003
rclaling_product_dcfinition, schema +
‘.PROPERTY_DEFINITION_REPRESENTATION.DEFINITION’)) | ((
schema + SHAPE_DEFINITION^REPRESENTATION’ ) IN
TYPEOF <pdr>) )) >= I THEN
IF SIZEOF(QliERY ( cdsr <* USEDIN(srr_sct|j). schema 4
*.CONTEXT_DEPENDENT_SHAPE_REPRESENTATION.’ 4
REPRESENTATIONRELATION’) | (NOT (cdsr\
conicxt_dcpcndent_shapc_reprcsentation.
rcprcscntcd_product_rclation\propcrty_dcfinition.
definitionassy)) )) > 0 THEN
RETURN (FALSE) ;
E N D JF:
END IF :
END_REPEAT ;
E N D JF;
END REPEAT;
ENDJF;
RETURN (TRUE);
END_FUNCTION: - - aseemblyshapejsdefincd
FUNCTION associatcd_surfacc(arg: pcurve_or_surface): surface;
LOCAL
surf; surface;
END_LOCAL ;
IF *CONFIG_CONTROL_DESIGN.PCURVE‘ IN TYPEOF (an;) THEN
surf: = arg.basissurfacc;
ELSE
surf := ar^;
END_1F;
RETURN (surf) ;
END.FUNCTION; - - associated.surfacc
FUNCTION bag_to_set(thc_bai:: BAG OF GENERIC: intype
): SET OF GENERIC: intype;
LOCAL
i: INTEGER:
lhc_sct : SET OF GENERIC: intype| );
END_LOCAL;
IF SIZEOF(lhc_bag) > 0 THEN
REPEAT i :« 1 TO HIINDEX(the_bag) BY I;
lhe_sct := thc_sct + thejbagfi);
END_REPEAT;
ENDJF;
RETURN (thc_sct):
END_FUNCTION; - - bag_to_sct
FUNCTION basc_axrs(dim: INTEGER: axisl. axis2, axis3: direction
): LIST 12:3) OF direction:
LOCAL
u: LIST (2:3| OF direction;
dl: direction;
d2: direction;
factor: REAL;
END_LOCAL ;
IF dim - 3 THEN
dl:• NVL(normalisc(axis3), dummy_gri 11directi<m(|0,0.11»;
d2:= first_proj_axis(d 1, axisl);
u:= |d2. sccond_proj_axis(dl,d2.axis2). dl|;
ELSE
IF EXISTS (axisl) THEN
181