CorelDRAW vba cdr插件节点添加垂直线

cdr ai 插件开发

已于 2025-01-01 14:59:51 修改

阅读量164

点赞数 3

分类专栏： cdr插件开发源码文章标签：个人开发

于 2024-12-31 13:15:39 首次发布

本文链接：https://blog.csdn.net/qq_33260094/article/details/144847944

版权

cdr插件开发源码专栏收录该内容

23 篇文章

订阅专栏

ActiveDocument.Unit = cdrMillimeter
On Error Resume Next
Dim nod As Node, nodr As NodeRange, seg As Segment
Dim sl As Shape, x As Double, y As Double, a1 As Double
Dim dx As Double, dy As Double, a2 As Double
Dim i As Long

Set nodr = ActiveShape.Curve.Selection
If nodr.Count > 1 Then MsgBox "请选择一个节点后重试", vbExclamation, "aa": Exit Sub
If nodr.Count < 1 Then MsgBox "请选择一个节点后重试", vbExclamation, "aa": Exit Sub
    For Each nod In ActiveShape.Curve.Selection
'    nod.Segment.GetPerpendicularAt
    nod.GetPosition x, y
    a2 = nod.Segment.GetPerpendicularAt(1, cdrRelativeSegmentOffset) * 3.1415926 / 180
    Next nod
  
dx = 50 * Cos(a2)
 dy = 50 * Sin(a2)
 ActiveLayer.CreateLineSegment x - dx, y - dy, x + dx, y + dy
ActiveShape.Outline.Color.CMYKAssign 0, 60, 100, 0