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
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
I've never made a macro before, so should i just copy the stuff between the instructions in a macro to make it work ? thank you