cdr插件吧 关注:81贴子:228
  • 0回复贴,共1

节点的平滑与减少节点函数

取消只看楼主收藏回复


很多时候需要平滑节点减少节点数量,但是这两个函数各司其职
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


IP属地:湖南1楼2018-11-21 15:31回复