cdr页面图形增加编码数字编号脚本插件

fengyelin

本人不会代码,用AI gpt3.5写的,可以给页面图形编号,把这段代码复制到脚本模块运行就可以了,有会写插件的帮忙弄个gms插件


Sub CreateArtisticTextInCenter()

Dim s As Shape

Dim i As Integer


i = 1

' 遍历选中的形状
For Each s In ActiveSelection.Shapes
    ' 获取形状的中心坐标
    Dim centerX As Double
    Dim centerY As Double
   
    centerX = (s.BoundingBox.Left + s.BoundingBox.Right) / 2
    centerY = (s.BoundingBox.Top + s.BoundingBox.Bottom) / 2
   
    ' 创建艺术字形状，并设置文本内容为数字
    Dim textShape As Shape
    Set textShape = ActiveLayer.CreateArtisticText(centerX, centerY, CStr(i))

i = i + 1

Next s

End Sub

美亿添888

看下这个行不行、我感觉有点用处

jiangyu

Sub CreateArtisticTextInCenter()

Dim s As Shape

Dim i As Integer


i = 1

' 遍历选中的形状
For Each s In ActiveSelectionRange
    ' 获取形状的中心坐标
    Dim centerX As Double
    Dim centerY As Double
   
    centerX = s.centerX
    centerY = s.centerY
   
    ' 创建艺术字形状，并设置文本内容为数字
    Dim textShape As Shape
    Set textShape = ActiveLayer.CreateArtisticText(centerX, centerY, i, cdrAmericanEnglish, cdrCharSetDefault, "NSimSun", 24, cdrTrue)
'NSimSun为字体
'24为字号

   textShape.centerX = s.centerX
   textShape.centerY = s.centerY

i = i + 1

Next s

End Sub

通常是这种写法，ai虽然可以写，但一些细节还是差一些的，例如文本不居中，只能使用默认字体字号之类的

yiweimeigong

我兴冲冲的进来，原来是一个求助帖。

fengyelin

yiweimeigong 发表于 2023-8-17 16:52
我兴冲冲的进来，原来是一个求助帖。

也不算求助贴,这段代码我是测试ai写代码能力,你用这代码可以让图形自动编码

fengyelin

美亿添888 发表于 2023-8-17 18:24
看下这个行不行、我感觉有点用处

测试后可以用,看来ai写代码还是可以运行的

vipjm

看是这样的功能，但我也不懂代码。

fengyelin

vipjm 发表于 2023-8-17 22:36
看是这样的功能，但我也不懂代码。

你可以用二楼插件弄就好

fengyelin

jiangyu 发表于 2023-8-18 08:44
Sub CreateArtisticTextInCenter()

Dim s As Shape

确实文本会不居中,可以使用魔镜图文工具,"字与框群组并居中",至于要选择换字体或大小颜色可以用"选择插件",更改