hncdxg 发表于 2024-5-4 10:45:29

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

w2545 发表于 2024-5-5 17:55:43

Dim s As Shape, shs As Shapes
    Dim hole1 As Shape, hole2 As Shape, hole3 As Shape, hole4 As Shape
    Dim doc As Document
    Set doc = ActiveDocument
    doc.Unit = cdrMillimeter
    Set shs = ActiveSelection.Shapes
ActiveDocument.ReferencePoint = cdrCenter
    For Each s In shs
    Set hole1 = ActiveLayer.CreateEllipse(0, 0, T5, T5) ‘ T5 是圆直径，zy是左右间距 ，sx是上下间距
      hole1.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
      hole1.SetPosition s.LeftX + zy, s.TopY - sx
      
    Set hole2 = ActiveLayer.CreateEllipse(0, 0, T5, T5)
      hole2.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
      hole2.SetPosition s.RightX - zy, s.TopY - sx
      
    Set hole3 = ActiveLayer.CreateEllipse(0, 0, T5, T5)
      hole3.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
      hole3.SetPosition s.LeftX + zy, s.BottomY + sx
      
    Set hole4 = ActiveLayer.CreateEllipse(0, 0, T5, T5)
      hole4.Fill.UniformColor.CMYKAssign 0, 0, 0, 100
      hole4.SetPosition s.RightX - zy, s.BottomY + sx

    Next s
拿走不谢
页: 1 [2]
查看完整版本: 求一个添加MAKE点的插件，GMS格式