绿草地 发表于 2023-8-20 09:44
好的，了解了，晚些帮你做一个。看你截的图，也是插件吧，为啥还要再弄一个 ...
插件有冲突，经常死掉不能用，所以才请求大哥出手帮忙的，对了，大哥，最好是cdr通用的，我用的X4比较多，终于有属于自己的插件了，谢谢大哥，真心谢谢:handshake:handshake
绿草地大神，能写个在CDR手机号分格的344这样的GMS吗，比如135 5789 1234这样
何先生 发表于 2023-8-20 11:23
绿草地大神，能写个在CDR手机号分格的344这样的GMS吗，比如135 5789 1234这样
你的文本是什么样的，发个图，或上传个文件上来我先看看。
绿草地 发表于 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自动编码脚本,看看能不能改成你插件那样子
fengyelin 发表于 2023-8-20 12:14
Sub 编号()
ActiveDocument.BeginCommandGroup "编号"
测试过了
如果 所绘画的对象是按顺序的话，
结果是一致的。
如果所绘画的对象不是按顺序的话，
就是这样的：结果图如下
方格打乱顺序后，就跟着乱了。
它这个代码是没有增加排序功能的，
只是根据对象默认顺序生成序号而已。
所以遇到用户生成的对象是随意的时候，就不起作用了。
不过，我的也可以去掉排序命令，就和他的一样了。X4就可以用了，就是遇到这种情况会乱。
绿草地 发表于 2023-8-20 12:04
你的文本是什么样的，发个图，或上传个文件上来我先看看。
任毅 18927462817
张兴兵 18928479199
任潇霏 18926504261
樊林 13917275796
孙家平 13761751800
周明华 18688979967
黄文文 17727519446
就像这样，因为有时候客户发文字我复制在CDR中，有时候客户发错号码多一位少一位，344空格就很发现问题，
固定角线
界面及演示图：
应贴中流云的要求，帮他做的一个特定功能。
特定功能：选择单个对象，做四个边的角线。
线长，间距，线宽可自定义。
坛友自行下载，有问题可反馈，尽能力解决。
插件下载：
没有什么特别的命令，应该是适用所有软件版本。
流雲 发表于 2023-8-20 10:07
插件有冲突，经常死掉不能用，所以才请求大哥出手帮忙的，对了，大哥，最好是cdr通用的，我用的X4比较多 ...
已经做好上传了，去下载测试一下。
绿草地 发表于 2023-8-20 20:36
已经做好上传了，去下载测试一下。
大哥早上好，插件收到了，测试有2个小问题，就是选中文件生成不居中，可以调一下吗？不知怎么上传视频，只能上2张图片，还有就是可以改成选中文件内容就可以生成的吗，不用群组的哪种，每次都要群组再生成内角有点麻烦，希望大哥看看改一下，谢谢:handshake
绿草地 发表于 2023-8-20 20:31
固定角线
界面及演示图：
大哥，刚刚cdr全部测试完，不居中的只有X4，其它版本都居中.