• 微信公众号:美女很有趣。 工作之余,放松一下,关注即送10G+美女照片!

【CorelDraw VBA 011例】创建B样条

开发技术 开发技术 4天前 7次浏览
Sub mCreateBSpline()
    '##创建B样条
    ' Recorded 2021/8/21 星期六
    Dim bs As BSpline
    Dim sh As Shape
    Dim Kg As Boolean
    Set sh = ActiveShape
    Set bs = ActiveDocument.CreateBSpline(sh.Curve.Nodes.Count, True)
    With sh.Curve
        For i = 1 To .Nodes.Count
            If i Mod 2 = 0 Then Kg = True Else Kg = False
            bs.ControlPoints(i).SetProperties .Nodes(i).PositionX, .Nodes(i).PositionY, Kg
        Next i
    End With
    ActiveLayer.CreateBSpline bs
End Sub

  


程序员灯塔
转载请注明原文链接:【CorelDraw VBA 011例】创建B样条
喜欢 (0)