makaka007 发表于 2025-5-28 11:41:23

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

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

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

VBcode:
Sub CreateFourDots()
    Dim doc As Document
    Dim s As Shape
    Dim dotSize As Double
    Dim margin As Double
    Dim pageWidth As Double, pageHeight As Double
   
    ' 设置参数
    dotSize = 6# / 25.4 ' 直径6mm(转换为英寸)
    margin = 10# / 25.4 ' 边距10mm(转换为英寸)
   
    ' 获取当前文档和页面尺寸
    Set doc = ActiveDocument
    pageWidth = doc.ActivePage.SizeWidth
    pageHeight = doc.ActivePage.SizeHeight
   
    ' 创建4个圆点(分别位于四个角落)
    ' 左上角
    Set s = doc.ActiveLayer.CreateEllipse2(margin + dotSize / 2, margin + dotSize / 2, dotSize / 2)
    s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
   
    ' 右上角
    Set s = doc.ActiveLayer.CreateEllipse2(pageWidth - margin - dotSize / 2, margin + dotSize / 2, dotSize / 2)
    s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
   
    ' 左下角
    Set s = doc.ActiveLayer.CreateEllipse2(margin + dotSize / 2, pageHeight - margin - dotSize / 2, dotSize / 2)
    s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
   
    ' 右下角
    Set s = doc.ActiveLayer.CreateEllipse2(pageWidth - margin - dotSize / 2, pageHeight - margin - dotSize / 2, dotSize / 2)
    s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
   
    'MsgBox "已在页面四角创建4个定位圆点", vbInformation
End Sub



刘海 发表于 2025-5-28 12:15:31

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

juliman420 发表于 2025-5-28 13:12:54

这个很多插件都自带添加的功能的
页: [1]
查看完整版本: 写了一个自动添加MARK点的GMS