ГОС! Р ИСО 10303-203-2003
dimensional_cxponcnts (0, 0, 0. 0, 0, I, 0) THUN RETURN (FALSE);
E N D JF ;
E N D JF ;
IF ’CONFIG_CONTROL_DESIGN.LUMINOUSJNTENSITY_MEASURE’ IN TYPEOF <m..
value_componcnt) THEN
IF derivc_dimcasional_cxponcnls(m.unit_componcm) < >
dimcnsionul_cxponenis(0, 0. 0, 0. 0, 0, I) THEN RETURN (FALSE):
E N D JF :
E N D JF ;
IF ’CONFIG_CONTROL_DESIGN.PLANE_ANGLE_ME
a
SURE’ IN TYPEOF <m.
value_componcnt) THEN
IF dcrivc_dimcnsional_cxponcnts(m.imit_compi>ncnt) < >
dimcasional_cxponcnis(0. 0, 0. 0, 0. 0, 0) THEN RETURN!FALSE);
EN D JF;
E N D JF ;
IF ’CONFIG_CONTROL_DESIGN.SOLID_ANGLE_MEASURE‘ IN TYPEOF <m.
valuc_componcnt) THEN
IF dcrivc_dimcnsional_exponents(m.unit_componcnt) < >
dimensional_exponents (0, 0. 0, 0. 0, 0. 0) THEN RETURN (FALSE);
E N D JF ;
E N D JF ;
IF ’CONFlG_CONTROL_DESIGN.AREA_MEASURE’ IN TYPEOF (m.valuc_componcnt)
THEN
IF deriveJimcn-sianal_cxponcnts(m.unit_componcnl) < >
dimcnsional_cxporvcnts (2. 0, 0, 0, 0, 0, 0) THEN RETURN (FALSE);
EN D JF:
E N D JF ;
IF ’CONFIG_CONTROL_DESIGN.VOLUME_MEASURE’ IN TYPEOF (m.valuc_componcnt)
THEN
IF dcrivc_dimcru;ional_exponcnls<m.uiut_componcnt> < >
dimcnsionaI_cxponcnts (3. 0, 0, 0, 0, 0, 0) THEN RETURN (FALSE);
E N D JF ;
E N D JF ;
IF CONFIG_CONTROL_DESlGN.RATIO_MEASURE’ IN TYPEOF <m.valuc_componcnt)
THEN
IF dcrivc_dimcnxional_cxponcnts(m.unil_componcnt> < >
dimensional_exponcnls (0, 0. 0, 0. 0, 0. 0) THEN RETURN (FALSE);
END_IF ;
END_IF;
IF ’CONFIGJLONTROL_DESIGN.POSITIVE_LENGTH_MEASURE’ IN TYPEOF(m.
valuc_componcnt) THEN
IF deriveJimcnsional_exponents(m.unit_<:omponcnl) < >
dimcnsional_cxponents (l. 0, 0, 0, 0, 0, 0) THEN RETURN(FALSE);
END_IF :
END_IF;
IF ’C’6
n
FIG_CONTROL_DESIGN.POSITIVE_PLANE_ANGLE_MEASURE’ IN TYPEOF (m.
valuc_componcnt) THEN
IF dcrivc_dimcnsional_cxponcnts(m.unil_compancnt) < >
dimcnsional_cxponcnls (0, 0, 0, 0, 0, 0, 0) THEN RETURN(FALSE);
E N D JF :
EN D JF:
RETURN (TRUE) ;
END_FUNCTION; - - vaiid_units
FUNCTION valid_wircframc cdgc_curvc<crv: curve): BOOLEAN:
IFSIZEOF(|’CONFlG_CONTROL_DESIGN.LINE’. CONFIG_CONTROL_DESIGN.CONIC,
’CONFlG_CONTROL_DESIGN.B_SPLINE_CURVE’.
’CONFIG_CONTROL_DESIGN.POLYLINE’] * TYPEOF(crv)) - I THEN
RETURN (TRUE):
ELSE
206