求助论坛里的哪个GMS插件实现这个功能的帖子

edesign00 · 发表于 2022-12-8 10:28:29

记得以前有个GMS插件能实现在矩形上创建序号，例如上面的数字 1 2 3 4 5 类似的，现在找不到那个帖子，求助各位帮忙找下帖子。

huang888 · 发表于 2022-12-8 20:28:01

以前也用过，叫标数字，现在CDR不知安装多少次了，都没了

动感超人biubiu · 发表于 2022-12-9 10:22:14

huang888 发表于 2022-12-8 20:28
以前也用过，叫标数字，现在CDR不知安装多少次了，都没了

Private Sub Cmdb9_Click() '标数字
Dim sr As ShapeRange, sh As Shape, T As Shape
Dim i%, X#, Y#, px#, PY#
'ActiveDocument.Unit = cdrMillimeter
'ActiveDocument.ReferencePoint = cdrCenter
On Error Resume Next
BeginOpt "标数字"
Set sr = ActiveSelectionRange
For i = 1 To sr.Shapes.Count
      Set sh = sr.Shapes(i)
      sh.GetSize X, Y
      Set T = ActiveLayer.CreateArtisticText(sh.CenterX, sh.CenterY, i, , , "微软雅黑", 14)
      T.AlignToShape cdrAlignHCenter, sh
      T.AlignToShape cdrAlignVCenter, sh
Next i
EndOpt
End Sub

zhangmengqtzm · 发表于 2023-4-22 13:46:27

这个GMS插件是《CDR工具箱》里面的标数字功能，感觉实用性也不大，有时候也能用到。这个工具箱里面的其它功能也非常实用的，反而是这个插件的其它功能非常强大！

求助论坛里的哪个GMS插件实现这个功能的帖子

华印网相关搜索

相关帖子

点评

注意注意注意：必看 /1