FUNCTION no_2d_location_for_component
(comp : assembly_component_armx) : BOOLEAN;
LOCAL i, j : INTEGER; cis : SET OF Contextual_item_shape; loc : SET OF Component_2d_location_armx; END_LOCAL; REPEAT i := 1 TO SIZEOF(comp.occurrence_contexts); cis := bag_to_set(USEDIN(comp.occurrence_contexts[i],'SHAPE_PROPERTY_ASSIGNMENT_XIM.CONTEXTUAL_ITEM_SHAPE.DESCRIBED_ELEMENT')); REPEAT j := 1 TO SIZEOF(cis); loc := bag_to_set(USEDIN(cis[j],'CONTEXTUAL_SHAPE_POSITIONING_XIM.CONTEXTUAL_SHAPE_REPRESENTATION.CONTEXTUAL_SHAPE')); IF (SIZEOF(loc) > 0) THEN RETURN (FALSE); END_IF; END_REPEAT; END_REPEAT;
RETURN (TRUE); END_FUNCTION; -- no_2d_location_for_component
|