写了一个自动添加MARK点的GMS

makaka007

广告行业的设计朋友，经常要用到定位巡边切割，在制作文件的时候都要添加MARK点来定位

但每次手动添加有些麻烦，我写了一个VB脚本，可以自动添加，脚本设置为6mm，边距10mm，你也可以自己修改适合自己的尺寸。

1. VBcode:
   
2. Sub CreateFourDots()
   
3.     Dim doc As Document
   
4.     Dim s As Shape
   
5.     Dim dotSize As Double
   
6.     Dim margin As Double
   
7.     Dim pageWidth As Double, pageHeight As Double
   
8.    
   
9.     ' 设置参数
   
10.     dotSize = 6# / 25.4 ' 直径6mm(转换为英寸)
    
11.     margin = 10# / 25.4 ' 边距10mm(转换为英寸)
    
12.    
    
13.     ' 获取当前文档和页面尺寸
    
14.     Set doc = ActiveDocument
    
15.     pageWidth = doc.ActivePage.SizeWidth
    
16.     pageHeight = doc.ActivePage.SizeHeight
    
17.    
    
18.     ' 创建4个圆点(分别位于四个角落)
    
19.     ' 左上角
    
20.     Set s = doc.ActiveLayer.CreateEllipse2(margin + dotSize / 2, margin + dotSize / 2, dotSize / 2)
    
21.     s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
22.    
    
23.     ' 右上角
    
24.     Set s = doc.ActiveLayer.CreateEllipse2(pageWidth - margin - dotSize / 2, margin + dotSize / 2, dotSize / 2)
    
25.     s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
26.    
    
27.     ' 左下角
    
28.     Set s = doc.ActiveLayer.CreateEllipse2(margin + dotSize / 2, pageHeight - margin - dotSize / 2, dotSize / 2)
    
29.     s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
30.    
    
31.     ' 右下角
    
32.     Set s = doc.ActiveLayer.CreateEllipse2(pageWidth - margin - dotSize / 2, pageHeight - margin - dotSize / 2, dotSize / 2)
    
33.     s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
34.    
    
35.     'MsgBox "已在页面四角创建4个定位圆点", vbInformation
    
36. End Sub

复制代码

刘海

能不能多几个图案  比如  L    +  等定位符号

juliman420

这个很多插件都自带添加的功能的