Hello, does anyone have a macro that adds registration marks for an Zund cutter ? They are 6mm full black dots and they need to be added all across the perimeter line of the cutting line you want to make. I do this manually but i was wondering if anyone made a macro for this ? Thank you
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.
Well basically I have these graphic elements, that I need to cut on a outline. I've attached a picture below, the magenta outline is what I need to cut, and for the machine (ZundCutter) to read and position properly, in order to cut it exactly as I need, you have to put registration marks all around the imagine(6mm black dots). The thing is I have quite a lot of documents, and a macro would be a life saver. Something like add dots of 6mm in 7mm distance from a rectangle line, with them being spaced all around the retangle, with 400mm in between. If you have something similiar, or maybe a video of how I could make a macro like this I'd really apreciate it. Tell if if you need more details and thank you.
OK, that helps.
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:
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).GroupEnd Sub
thanks a lot ! this would probably work pretty well if I set it up correctly. !