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 下载