FUNCTION facz_get_sc
(input : shape_feature) : SET [0:?] OF surface_condition;
LOCAL
sca : SET OF Surface_condition_association :=
bag_to_set(USEDIN(input,'SURFACE_CONDITIONS_XIM.SURFACE_CONDITION_ASSOCIATION.DESCRIBED_ELEMENT'));
sc : SET OF Surface_condition := [];
END_LOCAL;
REPEAT i := 1 TO HIINDEX(sca);
sc := sc + sca[i]\Surface_condition_association.describing_surface_condition;
END_REPEAT;
RETURN (sc); END_FUNCTION; -- facz_get_sc
|