VisioBot3000

1.1

VisioContainer.ps1

<#
        .SYNOPSIS
        Draws a container

        .DESCRIPTION
        Draws a container around previously drawn shapes on the active page.

        .PARAMETER Name
        The name to assign to the dropped shape

        .PARAMETER Conents
        A scriptblock which, when executed, outputs the objects to be contained in the container

        .PARAMETER Shape
        The master shape to use to draw the container

        .PARAMETER Label
        The text to label the container with

        .INPUTS
        None. You cannot pipe objects to New-VisioContainer.

        .OUTPUTS
        Visio.Shape

        .EXAMPLE
        New-VisioContainer -shape (Get-VisioShape Domain) -label MyDomain -contents {
            New-VisioShape -master WebServer -label BackupServer -x 5 -y 8
        }

#>
Function New-VisioContainer {
    [CmdletBinding(SupportsShouldProcess = $True)]
    Param( [string]$Name,
        [Scriptblock]$Contents,
        $Shape,
        $Label)

    [void]$script:Visio.ActiveDocument.Pages[1]
         
    if (!$Name) {
        $Name = $Label
    }
    if ($shape -is [string]) {
        $shape = Get-VisioShape $shape
    }
    if ($PSCmdlet.ShouldProcess('Visio', 'Drop a container around shapes')) {
        $page = Get-VisioPage
        if ($Contents) {
            [array]$containedObjects = & $Contents
            $firstShape = $containedObjects[0]
            if ($updatemode) {
                $droppedContainer = $page.Shapes | Where-Object {$_.Name -eq $Name}
            }
        
            if (get-variable droppedContainer -Scope Local -ErrorAction Ignore) {
                If ($droppedContainer.ContainerProperties.GetMemberShapes(16 + 2) -notcontains $firstShape.ID) {
                    $droppedcontainer.ContainerProperties.AddMember($firstShape, 2)
                }
            } else {
                $droppedContainer = $page.DropContainer($Shape, $page.Application.ActiveWindow.Selection)
                $droppedContainer.Name = $Name
            } 
            $droppedContainer.ContainerProperties.SetMargin($vis.PageUnits, 0.25)
            $containedObjects | select-object -Skip 1 | foreach-object { 
                if (-not $updatemode -or ($droppedContainer.ContainerProperties.GetMemberShapes(16 + 2) -notcontains $_.ID)) {
                    $droppedcontainer.ContainerProperties.AddMember($_, 1)
                }
            }        
            $droppedContainer.ContainerProperties.FitToContents()
            $droppedContainer.Text = $Label
            $Script:LastDroppedObject = $droppedContainer

            $droppedContainer

        }
        New-Variable -Name $Name -Value $droppedContainer -Scope Global -Force
    }
}

<#
        Copies a master for a container from a stencil and gives it a name.

        .DESCRIPTION
        Copies a master for a container from a stencil and gives it a name. Also creates a function with the same name to drop the container (with contents) onto the active Visio page.

        .PARAMETER Name
        The name used to refer to the shape

        .PARAMETER StencilName
        Which stencil to get the master from

        .PARAMETER MasterName
        The name of the master in the stencil

        .INPUTS
        None. You cannot pipe objects to Register-VisioContainer.

        .OUTPUTS
        None

        .EXAMPLE
        Register-VisioContainer -Name BasicContainer -StencilName Containers -MasterName Plain

#>
Function Register-VisioContainer {
    [CmdletBinding()]
    Param([string]$Name,
        [Alias('From')][string]$StencilName,
        [string]$MasterName)
 
    if (!$MasterName) {
        $MasterName = $Name
    }
    $newShape = $stencils[$StencilName].Masters | Where-Object {$_.Name -eq $MasterName}
    $script:Shapes[$Name] = $newshape
    $outerName = $Name
    new-item -Path Function:\ -Name "global`:$outername" -value {param($Label, $Contents, $Name) New-VisioContainer -label $Label -contents $Contents -shape $outername -name $Name}.GetNewClosure() -force  | out-null
    $script:GlobalFunctions.Add($outername) | Out-Null
}