I am currently looking for macro tools for Corel Draw X8 (free if possible) as I am struggling to find any that will be compatible for Corel X8
- Tool for Crop Marks
- Tool for Hole Positions
If any one could possibly help it would be much appreciated
which type crop marks? I have a macro for A. Although not the most streamlined approach.
I need this macro like A
Been using this for a while. Just have to tweak to your specs
Sub CropMarkAll() Dim s1 As ShapeDim s2 As ShapeDim sr1 As ShapeRangeDim sr2 As New ShapeRangeDim cl_horiz As DoubleDim cl_vert As DoubleDim crop_length_target As DoubleDim line_width As Double, line_color As Double
crop_length_target = 0.25 line_width = 0.003
Optimization = True ActiveDocument.BeginCommandGroup "crop mark all" EventsEnabled = FalseActiveDocument.Unit = cdrInch Set sr1 = ActiveSelectionRange.Shapes.All For Each s1 In sr1 If s1.SizeWidth / 2 < crop_length_target Then cl_horiz = s1.SizeWidth / 2 Else cl_horiz = crop_length_target End If If s1.SizeHeight / 2 < crop_length_target Then cl_vert = s1.SizeHeight / 2 Else cl_vert = crop_length_target End If
Set s2 = ActiveLayer.CreateLineSegment(s1.LeftX, s1.TopY - cl_vert, s1.LeftX, s1.TopY) s2.Curve.SubPaths(1).AppendLineSegment s1.LeftX + cl_horiz, s1.TopY s2.Outline.Width = line_width s2.Name = "crop mark" s2.Outline.Color.CMYKAssign 0, 0, 0, 70 sr2.Add s2 Set s2 = ActiveLayer.CreateLineSegment(s1.RightX - cl_horiz, s1.TopY, s1.RightX, s1.TopY) s2.Curve.SubPaths(1).AppendLineSegment s1.RightX, s1.TopY - cl_vert s2.Outline.Width = line_width s2.Name = "crop mark" s2.Outline.Color.CMYKAssign 0, 0, 0, 70 sr2.Add s2 Set s2 = ActiveLayer.CreateLineSegment(s1.RightX, s1.BottomY + cl_vert, s1.RightX, s1.BottomY) s2.Curve.SubPaths(1).AppendLineSegment s1.RightX - cl_horiz, s1.BottomY s2.Outline.Width = line_width s2.Name = "crop mark" s2.Outline.Color.CMYKAssign 0, 0, 0, 70 sr2.Add s2 Set s2 = ActiveLayer.CreateLineSegment(s1.LeftX + cl_horiz, s1.BottomY, s1.LeftX, s1.BottomY) s2.Curve.SubPaths(1).AppendLineSegment s1.LeftX, s1.BottomY + cl_vert s2.Outline.Width = line_width s2.Name = "crop mark" s2.Outline.Color.CMYKAssign 0, 0, 0, 70 sr2.Add s2 sr2.Combine Next s1 sr1.Delete sr2.CreateSelection
Optimization = False EventsEnabled = True Application.Refresh ActiveDocument.EndCommandGroupEnd Sub
Macro like B? Thank you