Marcin: Created page with "import FreeCAD import FreeCADGui import tempfile import webbrowser import os def print_master_checklist(): doc = FreeCAD.ActiveDocument if not doc: FreeCAD.Console.PrintError("No active document found.\n") return selection = FreeCADGui.Selection.getSelection() # Even if nothing is selected, we will try to generate the page # so you can see that the script is working. # --- HTML Header --- html = """..."

2025-11-18T15:24:53Z

Created page with "import FreeCAD import FreeCADGui import tempfile import webbrowser import os def print_master_checklist(): doc = FreeCAD.ActiveDocument if not doc: FreeCAD.Console.PrintError("No active document found.\n") return selection = FreeCADGui.Selection.getSelection() # Even if nothing is selected, we will try to generate the page # so you can see that the script is working. # --- HTML Header --- html = """..."

New page

import FreeCAD

import FreeCADGui

import tempfile

import webbrowser

import os

def print_master_checklist():

doc = FreeCAD.ActiveDocument

if not doc:

FreeCAD.Console.PrintError("No active document found.\n")

return

selection = FreeCADGui.Selection.getSelection()

# Even if nothing is selected, we will try to generate the page

# so you can see that the script is working.

# --- HTML Header ---

html = """

<!DOCTYPE html>

<html>

<head>

<title>Shop Master List</title>

<style>

body { font-family: sans-serif; padding: 20px; }

h1 { border-bottom: 2px solid #333; padding-bottom: 10px; margin-bottom: 5px;}

h2 { margin-top: 20px; background-color: #eee; padding: 5px; border-bottom: 1px solid #aaa;}

table { width: 100%; border-collapse: collapse; margin-top: 10px; }

th { background-color: #f0f0f0; text-align: left; border: 1px solid #333; padding: 8px; }

td { border: 1px solid #333; padding: 8px; }

.dim { font-family: monospace; font-weight: bold; white-space: nowrap; font-size: 1.1em;}

.checkbox { width: 50px; text-align: center; font-size: 20px; }

.warning { color: red; font-weight: bold; }

@media print { .no-print { display: none; } body { padding: 0; } }

</style>

</head>

<body onload="window.print()">

<h1>Shop Master List</h1>

<p><b>Project:</b> """ + doc.Label + """<br>

<b>Date:</b> <script>document.write(new Date().toLocaleDateString());</script></p>

"""

# Lists to hold our data

part_rows = ""

measure_rows = ""

part_count = 0

measure_count = 0

# --- Helper to process objects ---

if selection:

items_to_process = list(selection)

processed_ids = set()

while items_to_process:

obj = items_to_process.pop(0)

# Avoid infinite loops or duplicates

if obj.Name in processed_ids:

continue

processed_ids.add(obj.Name)

# 1. If it's a Folder/Group, add its contents to the queue

if hasattr(obj, "Group") and obj.Group:

items_to_process.extend(obj.Group)

# We don't 'continue' here because a group might ALSO have a shape (rare but possible)

# 2. Check for Measurement (Distance)

is_measurement = False

# Check for standard Measure tool or Draft Dimensions

if hasattr(obj, "Distance") or hasattr(obj, "Length"):

# Distinguish between a Part that happens to have a Length (like a Cube)

# and a Measurement object.

# Measurement objects usually don't have a "Shape" that is a solid.

if not hasattr(obj, "Shape") or obj.Shape.Volume < 1e-6:

val = 0.0

try:

if hasattr(obj, "Distance"):

# Handle wrapped values vs direct floats

val = obj.Distance.Value if hasattr(obj.Distance, "Value") else obj.Distance

elif hasattr(obj, "Length"):

val = obj.Length.Value if hasattr(obj.Length, "Value") else obj.Length

# Only add if we got a valid number

if isinstance(val, (int, float)):

val_str = FreeCAD.Units.Quantity(val, 'mm').UserString

measure_rows += f"""

<tr>

<td>{obj.Label}</td>

<td class="dim">{val_str}</td>

<td class="checkbox">☐</td>

</tr>

"""

measure_count += 1

is_measurement = True

except:

pass # Skip if calculation fails

# 3. Check for 3D Part (Cutlist) - Only if it wasn't a measurement

if not is_measurement and hasattr(obj, 'Shape') and not obj.Shape.isNull():

# We filter out things with 0 volume (like lines or planes) for the Cutlist

if obj.Shape.Volume > 0:

bbox = obj.Shape.BoundBox

raw_dims = sorted([bbox.XLength, bbox.YLength, bbox.ZLength], reverse=True)

L_str = FreeCAD.Units.Quantity(raw_dims[0], 'mm').UserString

W_str = FreeCAD.Units.Quantity(raw_dims[1], 'mm').UserString

T_str = FreeCAD.Units.Quantity(raw_dims[2], 'mm').UserString

part_rows += f"""

<tr>

<td>{obj.Label}</td>

<td class="dim">{L_str}</td>

<td class="dim">{W_str}</td>

<td class="dim">{T_str}</td>

<td class="checkbox">☐</td>

</tr>

"""

part_count += 1

# --- Build the HTML Tables ---

if part_count > 0:

html += """

<h2>Material Cut List</h2>

<table>

<thead>

<tr>

<th>Part Name</th>

<th>Length</th>

<th>Width</th>

<th>Thickness</th>

<th class="checkbox">Cut</th>

</tr>

</thead>

<tbody>

""" + part_rows + """

</tbody>

</table>

"""

if measure_count > 0:

html += """

<h2>Critical Measurements</h2>

<table>

<thead>

<tr>

<th>Measurement Name</th>

<th>Value</th>

<th class="checkbox">Check</th>

</tr>

</thead>

<tbody>

""" + measure_rows + """

</tbody>

</table>

"""

# If nothing found, show a friendly message in the HTML instead of crashing

if part_count == 0 and measure_count == 0:

html += """

<h2 style="color:red;">No Parts Selected</h2>

<p>Please select your <b>3D Parts</b> or <b>Measurement Objects</b> in the FreeCAD tree before running this macro.</p>

"""

html += """

</body>

</html>

"""

# --- Launch Browser ---

try:

fd, path = tempfile.mkstemp(suffix=".html")

with os.fdopen(fd, 'w') as tmp:

tmp.write(html)

webbrowser.open('file://' + path)

print("HTML Page generated.")

except Exception as e:

FreeCAD.Console.PrintError(f"Error creating print file: {e}\n")

if __name__ == "__main__":

print_master_checklist()

Cut List Macro in FreeCAD - Revision history