OpenSCAD rendering script

Export-SCAD.ps1

<#
.SYNOPSIS

Export STLs and PNGs of OpenSCAD scripts to the desktop.

.DESCRIPTION

Exports all defined parts from an OpenSCAD script.

Assumptions:
- The OpenSCAD script defines a RENDER_PART variable.
- When RENDER_PART = 0, it echo()s a list of parts with a number and name.

The name will be used as the STL and PNG filename.

if (RENDER_PART == 0)
{
    echo("render 1 m5dial body");
    echo("render 2 m5dial support");
}

.PARAMETER SCADScript
Path of the OpenSCAD script.

.PARAMETER PartNumber (Optional)
Part number to export, if only 1 part is desired.


#>
[CmdletBinding()]
param (
    [Parameter(Position = 0, mandatory = $true)]
    [string]
    $SCADScript,

    # Parameter help description
    [Parameter(Position = 1, mandatory = $false)]
    [ValidateRange("Positive")]
    [int]
    $PartNumber = -1,

    # Just list the available parts
    [Parameter()]
    [switch]
    $List = $false,

    # Inlcude PNG outputs
    [Parameter()]
    [switch]
    $IncludePNG = $false
)

function Export-SinglePart {
    [CmdletBinding()]
    param (
        [Parameter(Position = 0, mandatory = $true)]
        [string]
        $SCADScript,
        # Which part to export
        [Parameter(Position = 1, mandatory = $true)]
        [ValidateRange("Positive")]
        [int]
        $PartNumber,
        # Part Name
        [Parameter(Position = 2, mandatory = $true)]
        [string]
        $PartName,
        # Parameter help description
        [Parameter(Position = 3, Mandatory = $true)]
        [bool]
        $IncludePNG
    )
    $dval = "RENDER_PART=$PartNumber"
    $stl_dest = "$home\Desktop\$($PartName).stl"
    Write-Host -ForegroundColor Cyan "`nRendering $PartName..."
    if ($IncludePNG) {
        $png_dest = "$home\Desktop\$($PartName).png"
        & openscad -D $dval -o $stl_dest -o $png_dest $SCADScript
    }
    else {
        & openscad -D $dval -o $stl_dest $SCADScript
    }
}

function Get-PartList {
    param (
        # Path of the SCAD script we are interrogating
        [Parameter()]
        [string]
        $SCADScript
    )

    $dval = "RENDER_PART=0"
    $PartList = @{}
    & openscad -D $dval -o "$temp\scriptlist.stl" $SCADScript |
    ForEach-Object {
        if ($_ -match '(\d+) (.*)\"') {
            $PartList[[int]$Matches.1] = $Matches.2
        }
    }
    return $PartList
}

$PartList = Get-PartList($SCADScript)
if ($List) {
    $PartList.Keys | Sort-Object | ForEach-Object {
        Write-Host $_, $PartList[$_]
    }
    Exit
}

if ($PartNumber -eq -1) {
    foreach ($Key in $PartList.Keys) {
        Export-SinglePart -SCADScript $SCADScript -PartNumber $Key -PartName $PartList[$Key] -IncludePNG $IncludePNG
    }
}
else {
    if ($PartList.ContainsKey($PartNumber)) {
        Export-SinglePart -SCADScript $SCADScript -PartNumber $PartNumber -PartName $PartList[$PartNumber] -IncludePNG $IncludePNG
    }
    else {
        Write-Error "$SCADScript doesn't have part number '$PartNumber'"
    }
}

rendertest.scad

// MARK: Render Control
RENDER_PART = 2;

if (RENDER_PART == 0)
{
    echo("render 1 first part");
    echo("render 2 second part");
}
if (RENDER_PART == 1)
{
    // Render an actual part.
    cube([ 10, 10, 10 ]);
}
if (RENDER_PART == 2)
{
    // Render another part.
    complex_part();
}
if (RENDER_PART == -1)
{
    // Render a test part, but only during development.
    // -1 isn't in the list of renderable parts for the script.
    subpart1();
}

// Start designs in modules here.
module complex_part()
{
    union()
    {
        subpart1();
        subpart2();
    }
}

module subpart1() { cube([ 50, 50, 50 ], center = true); }

module subpart2() { translate([ 0, 0, 25 ]) cylinder(h = 50, r = 25); }