Macro for adding Zund registration marks?

For automation using macros - or even for suggesting manual workflows - it's very important to understand the problem.

You may know exactly what you want to do, but I think you might need to provide a more detailed description - and perhaps some examples - if you want other people to understand it.

This might be part of a solution: #12 - Macro - "Circles on Curves".

I have another macro - not currently shown in my blog - that can create a "bounding rectangle" around selected content, with a specified "margin" to make the rectangle larger than the selected content.

So, a possible workflow might be:

1. Select the content
2. Create a "bounding rectangle".
3. Convert the rectangle to a curve.
4. Use Circles on Curves to place circles on that curve.

That could look like this:

VIDEO: Bounding Rectangles + Circles on Curves

.

I am far from a macro expert but here is one that I made. It is specific to our process using 60" wide vinyl, .25" Zünd dots, and an extra dot on bottom right edge for correct orientation. You can easily record and edit your own macro to fit your specific need.

Sub ZundTargetsFor86inchPanel()
    ' Created 4/10/2019 jFawcett
    ' Creates Zund targets for <86" length
    '
    ' Create first Zund target
    Dim s1 As Shape
    Set s1 = ActiveLayer.CreateEllipse2(21.151378, 5.306567, 0.625, -0.625)
    ' Fill first Zund target with K-100
    s1.Fill.ApplyNoFill
    s1.Outline.SetPropertiesEx 0.01, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=45#, Justification:=cdrOutlineJustificationMiddle
    s1.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    ' Delete outline from first Zund target
    s1.Outline.SetNoOutline
    ' Size first Zund target to .25" diameter
    ActiveDocument.ReferencePoint = cdrCenter
    s1.SetSize 0.25, 0.25
    ' Align first Zund target to bottom left of selected object
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(2), s1).AlignAndDistribute 0, 2, 0, 0, False, 2
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(2), s1).AlignAndDistribute 2, 0, 0, 0, False, 2
    ' Move first Zund target .375" left
    s1.Move -0.375, 0#
    ' Move first Zund target .5" up
    s1.Move 0#, 0.5
    ' Create second Zund Target
    Dim s2 As Shape
    Set s2 = s1.Duplicate
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(3), s2).AlignAndDistribute 0, 1, 0, 0, False, 2
    ' Move second target to .5" below top
    s2.Move 0#, -0.5
    ' Create third Zund target
    Dim s3 As Shape
    Set s3 = s2.Duplicate
    ' Create fourth Zund target
    Dim s4 As Shape
    Set s4 = s2.Duplicate
    ' Distribute Zund targets vertically
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(4), s4).AlignAndDistribute 0, 3, 0, 0, False, 2
    ActiveDocument.CreateShapeRangeFromArray(s1, s2, s3, s4).AlignAndDistribute 6, 0, 0, 0, False, 2
    ActiveDocument.CreateShapeRangeFromArray(s1, s2, s3, s4).AlignAndDistribute 0, 6, 0, 0, False, 2
    ' Duplicate left side Zund targets
    Dim dup1 As ShapeRange
    Set dup1 = ActiveDocument.CreateShapeRangeFromArray(s1, s2, s3, s4).Duplicate
    ' Aligh dulicate Zund targets to right
    ActiveDocument.CreateShapeRangeFromArray(ActiveLayer.Shapes(9), dup1).AlignAndDistribute 1, 0, 0, 0, False, 2
    ' Move duplicate Zund targets .375" right
    dup1.Move 0.375, 0#
    ' Duplicate bottom right Zund target
    Dim s5 As Shape
    Set s5 = dup1(1).Duplicate
    ' Move fourth Zund target up 2"
    s5.Move 0#, 2#
    ' Select all Zund targets and group them
    Dim s6 As Shape
    Set s6 = ActiveDocument.CreateShapeRangeFromArray(dup1, s5, s4, s1, s2, s3).Group
End Sub