Paper space limits.py

# purpose and IO: IN[0]=sheet Ids (list/int/ElementId or None), IN[1]=tolerance_ft (float, optional), OUT=per-sheet dict with offending element Ids # Reports any paper-space elements whose bounding box (in the sheet view) lies outside the largest title block's bbox. # Ignores title blocks and CAD Import/Link instances named like "0,0,0" / "0,0-Origin". import clr clr.AddReference('RevitAPI') clr.AddReference('RevitServices') from Autodesk.Revit.DB import ( FilteredElementCollector, ViewSheet, FamilyInstance, BuiltInCategory, ImportInstance, ElementId ) from RevitServices.Persistence import DocumentManager doc = DocumentManager.Instance.CurrentDBDocument input_ids = IN[0] if len(IN)>0 else None tol = float(IN[1]) if len(IN)>1 and IN[1] not in (None, "") else 0.0 # feet def _to_elemid(e): if isinstance(e, ElementId): return e try: return ElementId(int(e)) except: return None target_sheet_ids = None if input_ids: ids = [] seq = input_ids if isinstance(input_ids, (list, tuple)) else [input_ids] for x in seq: eid = _to_elemid(x) if eid: ids.append(eid) if ids: target_sheet_ids = set(ids) def tblocks_on_sheet(sheet): return list( FilteredElementCollector(doc, sheet.Id) .OfCategory(BuiltInCategory.OST_TitleBlocks) .OfClass(FamilyInstance) .WhereElementIsNotElementType() ) def largest_tb_bbox(sheet): ranked = [] for tb in tblocks_on_sheet(sheet): bb = tb.get_BoundingBox(sheet) if bb: area = abs((bb.Max.X - bb.Min.X) * (bb.Max.Y - bb.Min.Y)) ranked.append((area, bb)) if not ranked: return None ranked.sort(key=lambda x:x[0], reverse=True) return ranked[0][1] def is_origin_cad_import(elem): if not isinstance(elem, ImportInstance): return False name = "" try: name = elem.Name or "" except: name = "" if not name: try: sym = doc.GetElement(elem.GetTypeId()) name = sym.Name if sym else "" except: name = "" s = name.lower().replace(" ", "") return ("0,0,0" in s) or ("0,0-origin" in s) or ("00,0-origin" in s) def paper_elems(sheet): return list(FilteredElementCollector(doc, sheet.Id).WhereElementIsNotElementType()) def inside(bb_elem, bb_ref, tol=0.0): # bb_elem is fully inside bb_ref with tolerance (in feet) if not bb_elem or not bb_ref: return True return (bb_elem.Min.X >= bb_ref.Min.X - tol and bb_elem.Min.Y >= bb_ref.Min.Y - tol and bb_elem.Max.X <= bb_ref.Max.X + tol and bb_elem.Max.Y <= bb_ref.Max.Y + tol) results = [] sheets = list(FilteredElementCollector(doc).OfClass(ViewSheet)) if target_sheet_ids: sheets = [s for s in sheets if s.Id in target_sheet_ids] for s in sheets: tb_bb = largest_tb_bbox(s) if not tb_bb: results.append({"sheet": s.SheetNumber, "name": s.Name, "status": "no title block", "offenders": []}) continue offenders = [] for e in paper_elems(s): # skip title blocks and "origin" CAD imports if e.Category and e.Category.Id.IntegerValue == int(BuiltInCategory.OST_TitleBlocks): continue if is_origin_cad_import(e): continue bb = e.get_BoundingBox(s) if not bb: continue if not inside(bb, tb_bb, tol): cat = e.Category.Name if e.Category else "NoCategory" offenders.append({"Id": e.Id.IntegerValue, "Category": cat}) results.append({ "sheet": s.SheetNumber, "name": s.Name, "status": "audited", "tolerance_ft": tol, "offender_count": len(offenders), "offenders": offenders }) OUT = results

Comments

Post a Comment

Popular posts from this blog

Powerpoint countdown and current time in slides VBA

Add text fields- this VBA searches through the objects in the first frame until it finds " " in the text some where, truncates everything from and to the right and replaces it with an active countdown timer or current time in the box. Refreshes every 500ms with a prtsafe call so it doesn't bog down the CPU. Add a slide advance to start the next slide and begin automated slide advancement. Attribute VB_Name = "Countdown" Private Declare PtrSafe Function WaitMessage Lib "user32" () As Long Public Sub Wait ( Seconds As Double ) ''non cpu-intensive wait timer '' https://stackoverflow.com/questions/57268161/sleep-wait-timer-in-powerpoint-vba-thats-not-cpu-intensive Dim endtime As Double endtime = DateTime.Timer + Seconds Do WaitMessage DoEvents Loop While DateTime.Timer < endtime End Sub Sub Countdown_from_Start () Dim Time As Date Dim Count As ...
Read more

Revit area plans adding new types and references (Gross and rentable)

Image
Note to self: Add additional (duplicate) gross area and net area schemed under Area Plans And Area schemes... Really counter-intuitive place to put this instead of say...  Area Plans> New Type> Edit Type (ADD) or Create an area plan, then Go to Properties, Edit Type and Duplicate... Always seem to forget this one! 2015-10-16-And for the calculation type... To update: this also applies to Revit as well as LT- The gross calculations cannot be overridden, however the 'rentable' comes in various flavors... From AD Revit help: Applies to Revit LT 2015 Rules are determined by one type of space bordering another space. The following table shows area measurement rules. To find the appropriate measurement rule, find the selected Area Type and the corresponding Bordering Area Type. Gross Building Area Scheme Types Gross Building Area Scheme Types Area Type Selected Bordering Area Type Measurement Rule Gross Building Area Gross Buil...
Read more

Revit Dynamo View Form Python Output Form Resizable, Aggressively on top

import clr import sys clr . AddReference ( "System.Windows.Forms" ) clr . AddReference ( "System.Drawing" ) from System . Drawing import Size , Font , FontStyle , GraphicsUnit from System . Windows . Forms import ( Form , TextBox , FormBorderStyle , FormStartPosition , ScrollBars , DockStyle ) # join text list text = "\r\n" . join ( IN [ 0 ]) # new defaults DEF_W = 450 DEF_H = 800 MIN_W = 100 MIN_H = 100 DEF_TITLE = "Dynamo Viewer" def get_int_input ( idx , default_val , min_val ): try : v = IN [ idx ] except : return default_val if v is None : return default_val try : v = int ( v ) except : return default_val if v < min_val : return default_val return v # width and height with validation/fallback fWide = get_int_input ( 1 , DEF_W , MIN_W ) fHigh = get_int_input ( 2 , ...
Read more