ГОС! Р ИСО 10303-203-2003
surfaсe cuп е.associated_geomctry |i|) THEN
IF NOT msf_surlace_chcck(cv\surfacc_curvc.
s*ssociatcd_£cometry|i|) THEN
RETURN (FALSE) ;
E N D JF ;
ELSE
IF ’CONFIGJX)NTROL_DESIGN.PCURVE’ IN TYPEOF<cv\
surfacc_cunc.associatcd_gcomctry| i|) THEN
IF NOT tmf_curve_check(cv\surfaee_curve.
associated.„geometry |i|) THEN
RETURN (FALSE) ;
ENDJF:
ENDJF;
E N D JF ;
END_REPEAT;
RETURN (TRUE) ;
ENDJF:
ELSE
IF ’CONFIG_C’ONTROL_DESIGN.POLYLINE’ IN TYPEOF(cv) THEN
IF SIZEOF(cv\polvlinc.points) >*■ 3 THEN
RETURN (TRUE) ;
E N D JF ;
END_IF ;
E N D JF :
END JF ;
E N D JF ;
ENDJF;
ENDJF;
ENDJF:
E N D JF ;
RETURN (FALSE) ;
ENDJUNCTION; - - msf_cutve_chcck
FUNCTION msf_surfacc_chcck(surf: surface): BOOLEAN;
IF ’CONFIGJX)NTROL_DESIGN.ELEMENTARY_SURFACE’ IN TYPEOF (surl) THEN
RETURN (TRUE);
ELSE
IF •C’ONFIG_CONTROL_DESIGN.SWEPT_SURFACE’ IN TYPEOF (surf) THEN
RETURN(msf_curve_chcck(suri\swept_surfilcc.swept curve» ;
ELSE
IF ((’CONFIGJl’ONTROL_DESIGN.OFFSET_SURFACE’ IN TYPEOF (surf)) AND <
surf\ofTsci_surface.sclfJnterscct = FALSE)) OR <surf\
offset_surface.sclf_intcrsect ™UNKNOWN) THEN
RETURN (msf surface_chcck(surI\olTsel_surfacc.basis_surl’ace)) ;
ELSE
IF CONFIG_CONTROL_DESlGN.SURFACE_REPLICA’ IN TYPEOF (surf) THEN
RETURN (msf_surface chcck(surl\surlacc_rcplica.paa-nt surfacc)) ;
ELSE
IF ((’CONFIG_CONTROL_DESIGN.B_SPLINE_SURFACE’ IN TYPEOF (surf))
AND (surf\,b_splmc surCacc.sclf_intcrscct *• FALSE)) OR (
surf\b_spline_surfacc.sclfjntcrscct = UNKNOWN) THEN
RETURN (TRUE);
E N D JF ;
E N D JF ;
E N D JF ;
E N D JF ;
E N D JF ;
RETURN (FALSE) ;
END FUNOTION; - - msf_surt ace chcck
198