FUNCTION fd_get_transforms
(input1 : SET [1:1] OF Geometric_model; input2 : SET [2:2] OF Geometric_model) : SET [0:?] OF Geometric_model_relationship_with_transformation;
LOCAL
gmrwt : SET OF Geometric_model_relationship_with_transformation := [];
END_LOCAL;
gmrwt := bag_to_set(USEDIN(input1[1],'EXTENDED_BASIC_GEOMETRY_ARM.GEOMETRIC_MODEL_RELATIONSHIP.REP_1'));
REPEAT i := 1 TO HIINDEX(gmrwt);
IF NOT
((gmrwt[i]\Geometric_model_relationship.rep_2 IN input2)
AND
('EXTENDED_BASIC_GEOMETRY_ARM.GEOMETRIC_MODEL_RELATIONSHIP_WITH_TRANSFORMATION' IN TYPEOF(gmrwt[i])))
THEN
RETURN(?);
END_IF;
END_REPEAT;
RETURN(gmrwt); END_FUNCTION; -- fd_get_transforms
|