文本自动序号，VBA源代码

zzyong00 · 发表于 2014-9-10 16:02:00

1jgag1lfrrq.gif

5jtyatninty.gif

直接看图就应该能明白了

l5awujcupym.png

该贴已经同步到

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

elepeipei · 发表于 2017-10-13 11:51:00

好的，谢谢大神，暂时想实现横向不增，纵向增，我再学习学习，

forverd · 发表于 2018-8-6 09:51:00

autocad的自带的插件里有一个“Express”其中里面有一个“TEXT”然后“Automatic text numbering”，了解一下

yzh898 · 发表于 2018-7-2 16:00:00

大侠：我想要的效果是：在文字前面按拾取顺序加“”序号和逗点“”，比如：1.以及2.，3.等，请大侠帮忙解决。谢谢。

wangshuping42 · 发表于 2014-9-10 19:09:00

这个也太简单了吧

长风（尚品） · 发表于 2014-9-11 09:00:00

只能尾号加1.不能有其它功能吗

zzyong00 · 发表于 2014-9-11 09:11:00

1、自动按从左至右，从上至下排序文字，然后，在末尾添加序号，而且，各行各列文字数目可以不一致
2、支持一定程序的模糊，就是说，文字排的不哪么整齐也可以
3、稍做修改就可以按其它方式排序，如从上至下，从左至右
主要应用：有大量图时，图号、图名可以自动排序，对于画市政道路、管道等专业非常有用

长风（尚品） · 发表于 2014-9-11 11:48:00

1、可不可以改为从P01 P02.......P100这样排序？
2、可不可以按特定文字或按图层修改，不在此图层的编号就不用修改？

zzyong00 · 发表于 2014-9-11 13:28:00

1、当然可以了，稍微改一下源代码就可以了，用format
2、过滤选择，加上图层组码8，就可以了
一切都可以，我发源码，主要是发“对象二维排序”代码，并不是发一个产品

wwswwswws · 发表于 2014-9-25 10:11:00

个人把源代码修改成自己想要的功能就可以了，这才是楼主发源代码的真实想法