求一个添加MAKE点的插件，GMS格式

hncdxg

https://www.52cnp.com/thread-21341-1-1.html 8楼可以白嫖

w2545

1. Dim s As Shape, shs As Shapes
   
2.     Dim hole1 As Shape, hole2 As Shape, hole3 As Shape, hole4 As Shape
   
3.     Dim doc As Document
   
4.     Set doc = ActiveDocument
   
5.     doc.Unit = cdrMillimeter
   
6.     Set shs = ActiveSelection.Shapes
   
7.   ActiveDocument.ReferencePoint = cdrCenter
   
8.     For Each s In shs
   
9.     Set hole1 = ActiveLayer.CreateEllipse(0, 0, T5, T5) ‘ T5 是圆直径  ，zy是左右间距 ，sx是上下间距
   
10.         hole1.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
11.         hole1.SetPosition s.LeftX + zy, s.TopY - sx
    
12.         
    
13.     Set hole2 = ActiveLayer.CreateEllipse(0, 0, T5, T5)
    
14.         hole2.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
15.         hole2.SetPosition s.RightX - zy, s.TopY - sx
    
16.         
    
17.     Set hole3 = ActiveLayer.CreateEllipse(0, 0, T5, T5)
    
18.         hole3.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
19.         hole3.SetPosition s.LeftX + zy, s.BottomY + sx
    
20.         
    
21.     Set hole4 = ActiveLayer.CreateEllipse(0, 0, T5, T5)
    
22.         hole4.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
    
23.         hole4.SetPosition s.RightX - zy, s.BottomY + sx
    
24. 
    
25.     Next s

复制代码

拿走  不谢