CorelDRAW cdr插件创建椭圆

Sub 创建椭圆()
    ' 声明一个名为 s1 的变量，其类型被定义为 Shape，在 CorelDRAW 的 VBA 编程环境中，Shape 类型通常用于表示各种图形对象，例如后续要创建的椭圆对象就会赋值给这个变量
    Dim s1 As Shape
    ' 使用 ActiveLayer（表示当前活动的图层）的 CreateEllipse2 方法来创建一个椭圆对象。传入的参数 (2.483827, 1.45511, 2.086543, -0.986524) 应该是用于确定椭圆在文档中的位置、大小等相关属性的坐标值（具体含义取决于 CorelDRAW 中 CreateEllipse2 方法对这些参数的定义方式），并将创建好的椭圆对象赋值给变量 s1
    Set s1 = ActiveLayer.CreateEllipse2(2.483827, 1.45511, 2.086543, -0.986524)
    ' 调用 s1 所代表椭圆对象的 Fill（填充）属性的 ApplyNoFill 方法，目的是让椭圆内部不应用任何填充颜色，使其呈现为空心的状态
    s1.Fill.ApplyNoFill
    ' 调用 s1 所代表椭圆对象的 Outline（轮廓）属性的 SetProperties 方法，传入参数 0.2，这里大概率是设置椭圆轮廓的宽度为 0.2（具体单位取决于 CorelDRAW 文档当前所设置的单位，比如毫米、厘米等），不过此方法可能还需要更多参数来完整设置轮廓的其他属性，比如颜色、样式等，但此处仅设置了宽度
    s1.Outline.SetProperties 0.2
    ' 调用 s1 所代表椭圆对象的 Fill（填充）属性的 UniformColor（纯色填充相关属性）的 CMYKAssign 方法，传入参数 0, 100, 0, 0，这是按照 CMYK 颜色模式来设置椭圆的填充颜色，即青（C）色值为 0，品红（M）色值为 100，黄（Y）色值为 0，黑（K）色值为 0，也就是将椭圆内部填充为一种特定的红色调
    s1.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
    ' 再次调用 s1 所代表椭圆对象的 Outline（轮廓）属性的 SetProperties 方法，这次通过 CreateCMYKColor 函数创建一个 CMYK 颜色对象（传入参数 100, 0, 100, 0，表示青（C）色值为 100，品红（M）色值为 0，黄（Y）色值为 100，黑（K）色值为 0，对应的是一种特定的紫色调）来设置椭圆轮廓的颜色。不过此方法同样可能需要补充更多参数来完整设置轮廓的其他属性，如宽度、样式等，这里仅设置了颜色
    s1.Outline.SetProperties Color:=CreateCMYKColor(100, 0, 100, 0)
End Sub