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

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



记得以前有个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工具箱》里面的标数字功能，感觉实用性也不大，有时候也能用到。这个工具箱里面的其它功能也非常实用的，反而是这个插件的其它功能非常强大！
页: [1]
查看完整版本: 求助论坛里的哪个GMS插件实现这个功能的帖子