CDR插件开源

randlyang

.版本 2
.支持库 CorelDRAW

.子程序 一键转曲
.局部变量 Query, 文本型
.局部变量 Shape_Range, ShapeRange
.局部变量 页面计次, 整数型

Active_Document.BeginCommandGroup (“一键转曲”)
Query ＝ “@type='text:artistic' or @type='text:paragraph'”
进度条1.最大位置 ＝ All_Pages


.变量循环首 (1, All_Pages, 1, 页面计次)
    Active_Document.GetPages ().GetItem (页面计次).Activate ()
    Shape_Range ＝ Active_Document.GetSelectableShapes ().FindShapes (“”, 6, 真, Query)
    Shape_Range.ConvertToCurves ()
    进度条1.位置 ＝ 页面计次
.变量循环尾 ()
Active_Document.EndCommandGroup ()
进度条1.位置 ＝ 0

920168

ujff77

感谢分享

happyyumao

感谢分享

我是Rw

大佬 牛皮 最近正好  在找这样的资源

LLZWWY

感谢大佬无私分享

六先生

  感谢分享

风魔灬剑侠

怎么用CDR调用呢

杨明煜

实用.......

y99650

试试大佬谢谢