From 11952d2062a67acf0a878c45daa99233563caa7b Mon Sep 17 00:00:00 2001
From: Yorik van Havre <yorik@uncreated.net>
Date: Sun, 4 Sep 2016 15:27:55 -0300
Subject: [PATCH] Arch: area properties for Arch objects - fixes #2635

---
 src/Mod/Arch/ArchComponent.py | 45 +++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/src/Mod/Arch/ArchComponent.py b/src/Mod/Arch/ArchComponent.py
index 310b10b2a88b..f62ad3a91c07 100644
--- a/src/Mod/Arch/ArchComponent.py
+++ b/src/Mod/Arch/ArchComponent.py
@@ -300,11 +300,17 @@ def __init__(self,obj):
         obj.addProperty("App::PropertyEnumeration","Role","Arch","The role of this object")
         obj.addProperty("App::PropertyBool","MoveWithHost","Arch","Specifies if this object must move together when its host is moved")
         obj.addProperty("App::PropertyLink","IfcProperties","Arch","Custom IFC properties and attributes")
+        obj.addProperty("App::PropertyArea","VerticalArea","Arch","The area of all vertical faces of this object")
+        obj.addProperty("App::PropertyArea","HorizontalArea","Arch","The area of the projection of this object onto the XY plane")
+        obj.addProperty("App::PropertyLength","PerimeterLength","Arch","The perimeter length of the horizontal area")
         obj.Proxy = self
         self.Type = "Component"
         self.Subvolume = None
         self.MoveWithHost = False
         obj.Role = Roles
+        obj.setEditorMode("VerticalArea",1)
+        obj.setEditorMode("HorizontalArea",1)
+        obj.setEditorMode("PerimeterLength",1)
 
     def execute(self,obj):
         if obj.Base:
@@ -676,6 +682,45 @@ def applyShape(self,obj,shape,placement,allowinvalid=False,allownosolid=False):
                         FreeCAD.Console.PrintWarning(obj.Label + " " + translate("Arch","has an invalid shape")+"\n")
             else:
                 FreeCAD.Console.PrintWarning(obj.Label + " " + translate("Arch","has a null shape")+"\n")
+        self.computeAreas(obj)
+
+    def computeAreas(self,obj):
+        "computes the area properties"
+        if not obj.Shape:
+            return
+        if obj.Shape.isNull():
+            return
+        if not obj.Shape.isValid():
+            return
+        if not obj.Shape.Faces:
+            return
+        a = 0
+        fset = []
+        for f in obj.Shape.Faces:
+            ang = f.normalAt(0,0).getAngle(FreeCAD.Vector(0,0,1))
+            if (ang > 1.57) and (ang < 1.571):
+                a += f.Area
+            if ang < 1.5707:
+                fset.append(f)
+        if a and hasattr(obj,"VerticalArea"):
+            if obj.VerticalArea.Value != a:
+                obj.VerticalArea = a
+        if fset and hasattr(obj,"HorizontalArea"):
+            import Drawing,Part
+            pset = []
+            for f in fset:
+                pf = Part.Face(Part.Wire(Drawing.project(f,FreeCAD.Vector(0,0,1))[0].Edges))
+                pset.append(pf)
+            if pset:
+                self.flatarea = pset.pop()
+                for f in pset:
+                    self.flatarea = self.flatarea.fuse(f)
+                self.flatarea = self.flatarea.removeSplitter()
+                if obj.HorizontalArea.Value != self.flatarea.Area:
+                    obj.HorizontalArea = self.flatarea.Area
+                if hasattr(obj,"PerimeterLength") and (len(self.flatarea.Faces) == 1):
+                    if obj.PerimeterLength.Value != self.flatarea.Faces[0].OuterWire.Length:
+                        obj.PerimeterLength = self.flatarea.Faces[0].OuterWire.Length
 
 
 class ViewProviderComponent: