CDR GMS插件生成序号功能

流雲 · 发表于 2023-8-20 10:07:45

绿草地发表于 2023-8-20 09:44
好的，了解了，晚些帮你做一个。看你截的图，也是插件吧，为啥还要再弄一个 ...

插件有冲突，经常死掉不能用，所以才请求大哥出手帮忙的，对了，大哥，最好是cdr通用的，我用的X4比较多，终于有属于自己的插件了，谢谢大哥，真心谢谢

何先生 · 发表于 2023-8-20 11:23:45

绿草地大神，能写个在CDR手机号分格的344这样的GMS吗，比如135 5789 1234这样

绿草地 · 发表于 2023-8-20 12:04:44

何先生发表于 2023-8-20 11:23
绿草地大神，能写个在CDR手机号分格的344这样的GMS吗，比如135 5789 1234这样

你的文本是什么样的，发个图，或上传个文件上来我先看看。

fengyelin · 发表于 2023-8-20 12:14:55

绿草地发表于 2023-8-19 17:05
你好，X4中，排序命令无法使用，所以会出错。x4中要手动编写排序函数，比较麻烦。晚点花点时候修改一下X4 ...

Sub 编号()
ActiveDocument.BeginCommandGroup "编号"

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)

If textShape.SizeWidth > s.SizeWidth * 0.85 Then
textShape.SizeWidth = s.SizeWidth * 0.85
End If

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

i = i + 1

Next s
ActiveDocument.EndCommandGroup
End Sub
大神,这个代码是论坛jiangyu写的,可以用于x4自动编码脚本,看看能不能改成你插件那样子

绿草地 · 发表于 2023-8-20 13:54:54

fengyelin 发表于 2023-8-20 12:14
Sub 编号()
ActiveDocument.BeginCommandGroup "编号"

测试过了

如果所绘画的对象是按顺序的话，
结果是一致的。

如果所绘画的对象不是按顺序的话，
就是这样的：结果图如下

CDR GMS插件生成序号功能{tag}(3)

方格打乱顺序后，就跟着乱了。

它这个代码是没有增加排序功能的，
只是根据对象默认顺序生成序号而已。
所以遇到用户生成的对象是随意的时候，就不起作用了。
不过，我的也可以去掉排序命令，就和他的一样了。X4就可以用了，就是遇到这种情况会乱。

何先生 · 发表于 2023-8-20 15:54:12

绿草地发表于 2023-8-20 12:04
你的文本是什么样的，发个图，或上传个文件上来我先看看。

任毅    18927462817
张兴兵    18928479199
任潇霏    18926504261
樊林    13917275796
孙家平    13761751800
周明华    18688979967
黄文文    17727519446

就像这样，因为有时候客户发文字我复制在CDR中，有时候客户发错号码多一位少一位，344空格就很发现问题，