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

edesign00

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

huang888

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

动感超人biubiu

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

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