cdr 插件创建矩形对象

最新推荐文章于 2025-04-28 10:15:58 发布

cdr ai 插件开发

最新推荐文章于 2025-04-28 10:15:58 发布

阅读量128

点赞数 2

分类专栏： cdr插件开发源码文章标签：前端 javascript 开发语言

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

版权

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

23 篇文章

订阅专栏

Function 创建矩形()
    '设置活动文档的单位为毫米
    ActiveDocument.Unit = cdrMillimeter
    '定义一个图形类型的变量s1，用于后续存放创建的图形对象
    Dim s1 As Shape
    '在活动图层创建一个左上角坐标为(0, 0)，宽度为50毫米，高度为100毫米的矩形，并将其赋值给s1变量
    Set s1 = ActiveLayer.CreateRectangle2(0, 0, 50, 100)
    '设置矩形的轮廓线宽度为0.1（这里单位应该跟随文档设置的毫米单位）
    s1.Outline.Width = 0.1
    '设置矩形的填充颜色为CMYK模式下的（青0，品红100，黄0，黑0），也就是纯品红色填充
    s1.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
    '设置矩形轮廓线的颜色为CMYK模式下的（青100，品红0，黄0，黑0），也就是纯青色轮廓
    s1.Outline.SetProperties Color:=CreateCMYKColor(100, 0, 0, 0)
End Function