(* SCHEMA IFC4; *)
RULE IfcRepresentationContextSameWCS FOR (IfcGeometricRepresentationContext); LOCAL IsDifferent : LOGICAL := FALSE; END_LOCAL; IF (SIZEOF(IfcGeometricRepresentationContext) > 1) THEN REPEAT i := 2 TO HIINDEX(IfcGeometricRepresentationContext); IF (IfcGeometricRepresentationContext[1].WorldCoordinateSystem :<>: IfcGeometricRepresentationContext[i].WorldCoordinateSystem) THEN IsDifferent := (NOT(IfcSameValidPrecision(IfcGeometricRepresentationContext[1].Precision, IfcGeometricRepresentationContext[i].Precision))) OR (NOT(IfcSameAxis2Placement(IfcGeometricRepresentationContext[1].WorldCoordinateSystem, IfcGeometricRepresentationContext[i].WorldCoordinateSystem, IfcGeometricRepresentationContext[1].Precision))); IF (IsDifferent = TRUE) THEN ESCAPE; END_IF; END_IF; END_REPEAT; END_IF; WHERE WR1 : IsDifferent = FALSE; END_RULE;
Generated by STEP Tools® EXPRESS to HTML Converter
2024-07-11T21:39:05-04:00