财产行为领域

    Public Sub GetSlabAndHoleAreas(ByVal slabBlock As AcadBlock, ByRef slabArea As Double, ByRef holeArea As Double)
        Dim entity As AcadEntity
        Try
            'Extract the slab outline area and hole areas in mm2
            slabArea = 0
            holeArea = 0
            For Each entity In slabBlock
                'Find the largest outline i.e. the slab outline
                If entity.ObjectName = "AcDbRegion" Then
                    If entity.Area > slabArea Then
                        slabArea = entity.Area
                    End If
                End If
                'Find the holes
                If entity.Layer = EASICAD_LAYERS.HOLE_SYMBOL Or entity.Layer = EASICAD_LAYERS.COLUMN_CUTOUT_SYMBOL Then
                    holeArea += entity.Area
                End If
            Next
        Catch ex As Exception
            MsgBox("Reusable.GetSlabAndHoleAreas : " & ex.Message, MsgBoxStyle.OkOnly, EasiCADException.EasiCADErrorTitle)
        End Try
    End Sub

         .....
                explodedRegion = holeRegion.Explode
                'Subtract the hole from the slab outline
                'This actually changes the outline of the slab!
                floorOutlineRegion.Boolean(AcBooleanType.acSubtraction, holeRegion)
         .....