
很多时候需要平滑节点减少节点数量,但是这两个函数各司其职
s.Curve.Nodes.All.Smoothen 20
此函数只能执行一次,第二次执行将不会产生效果,修改参数也不会变化
s.Curve.Nodes.All.AutoReduce 0.05
需要多次减少节点可用AutoReduce
Sub Macro1()
' Recorded 2018/11/21
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim s As Shape
For Each s In OrigSelection.Shapes.FindShapes(Type:=cdrCurveShape).Shapes
With s.Curve.Nodes.All
.AutoReduce 1
'.Smoothen 20
End With
Next s
End Sub