CorelDRAW cdr插件 创建圆形

' 将当前活动文档的单位设置为毫米（cdrMillimeter应该是预先定义好的表示毫米的常量，具体依赖于CorelDRAW相关的对象模型）
ActiveDocument.Unit = cdrMillimeter  
' 声明一个名为s1的变量，类型为Shape（用于后续存储图形对象，在CorelDRAW中Shape通常代表各种绘制的图形元素，比如矩形、圆形等）
Dim s1 As Shape  
' 在当前活动图层上创建一个椭圆，圆心坐标为(0, 0)，半径（这里推测是长半轴或者短半轴长度，具体看CorelDRAW的API定义）为30，并将这个椭圆对象赋值给s1变量
Set s1 = ActiveLayer.CreateEllipse2(0, 0, 30)  
' 为s1表示的椭圆对象应用无填充效果，也就是让椭圆内部不填充颜色
s1.Fill.ApplyNoFill  
' 为s1表示的椭圆对象设置轮廓属性，这里将轮廓宽度设置为0.2（具体单位取决于前面设置的文档单位，也就是毫米），不过代码这里可能不太完整，一般SetProperties方法可能还需要更多参数来完整设置轮廓的样式等情况，比如颜色等（具体看CorelDRAW API要求）
s1.Outline.SetProperties 0.2  
' 为s1表示的椭圆对象的填充颜色设置为CMYK模式下的颜色值，分别为青（C）为0，品红（M）为100，黄（Y）为100，黑（K）为0，也就是设置为一种特定的洋红色填充效果
s1.Fill.UniformColor.CMYKAssign 0, 100, 100, 0  
' 为s1表示的椭圆对象设置无轮廓效果，也就是让椭圆的边框不显示
s1.Outline.SetNoOutline  
' 再次为s1表示的椭圆对象设置轮廓属性，这次通过CreateCMYKColor函数创建一个CMYK模式的颜色对象（青（C）为0，品红（M）为100，黄（Y）为0，黑（K）为0，是一种特定的红色调）来设置轮廓颜色，不过同样这里可能代码也不太完整，SetProperties方法可能需要完整指定其他相关轮廓属性参数（具体看CorelDRAW API要求）
s1.Outline.SetProperties Color:=CreateCMYKColor(0, 100, 0, 0)