CorelDRAW GMS VBA 选择多物件多节点画圆插件源码

1. 先把多个文件转曲线，一起选住，然后切换到节点工具，选择多个节点。

2. 调用 GMS 插件中 选择多物件多节点画圆 功能，就能在节点上画圆了。

VBA 源码

Sub 选择多物件多节点画圆()
  Dim sr As ShapeRange, sr_tmp As New ShapeRange
  Dim s As Shape, sh As Shape
  Dim nr As NodeRange
  Set sr = ActiveSelectionRange
  
  If sr.Count = 0 Then Exit Sub
  
  For Each sh In sr
    Set nr = sh.Curve.Selection
    If nr.Count > 0 Then
      For Each n In nr
        Set s = ActiveLayer.CreateEllipse2(n.PositionX, n.PositionY, 5, 5)
        sr_tmp.Add s
      Next n
    End If
  Next sh
  
sr_tmp.CreateSelection

End Sub

选择多物件多节点画圆.gms 下载