CorelDRAW VBA 创建特别形状物件 T形

vip

创建自定义形状的 VBA 源码

Sub DrawTShapeSimple()
    ' 声明变量
    Dim crv As Curve
    Dim sp As SubPath
    Dim st As Shape ' 声明st为Shape类型，更符合实际
    Dim redColor As Color ' 声明一个Color对象来存储红色
    
    ActiveDocument.Unit = cdrMillimeter

    ' 1. 在内存中创建一个新的曲线对象
    Set crv = Application.CreateCurve(ActiveDocument)

    ' 2. 为曲线创建第一个子路径，并设置起始点 (20, 40)
    Set sp = crv.CreateSubPath(20, 40)

    ' 3. 绘制T形轮廓的各个线段
    sp.AppendLineSegment 20, 0
    sp.AppendLineSegment 0, 4
    sp.AppendLineSegment 0, 36

    ' 4. 闭合子路径，使其成为一个封闭的形状
    sp.Closed = True

    ' 5. 将内存中的曲线对象实际创建（绘制）到活动图层上，并获取其Shape对象
    Set st = ActiveLayer.CreateCurve(crv)

    ' 6. 给形状填充红色
    Set redColor = Application.CreateCMYKColor(0, 100, 100, 0)
    
    ' 将创建的红色设置为形状的统一填充颜色
    st.Fill.UniformColor = redColor
    
End Sub