社区 › VB › 重新编号图纸集

rkmcswain 发表于 2007-1-3 15:36:16

重新编号图纸集

是否有人在图纸集管理器中对图纸重新编号（如下图所示）&nbsp；我&#039；m#039；希望#039；我可以做的是从01开始，从图纸顶部开始向下对所有图纸重新编号；有人知道它是不是#039；有可能，你能给我指一下正确的方向吗
谢谢。

rkmcswain 发表于 2007-1-5 17:31:26

真是巧合……我刚刚完成了这件事
我可以&#039；我不能在这里复制我的精确代码，但我可以让你指向正确的方向
转到http://discussion.autodesk.com/thread.jspa?threadID=385447，并向下滚动至Mike Tuersley于2005年2月25日04:13（GMT）作出的回复
他在那条消息中发布的代码是一个良好的开端
；“环通表”；sub，替换三个“；调试。打印“；带有实际代码的行将重新对图纸编号，看起来像这样：
Dim u As String
u = CStr(i)
ssmSheet.SetNumber u
i = i + 1

注意：您将需要一个全局整数变量；一、；初始设置为第一张纸的编号（通常为1）
完成此操作后，我们&#039；我们能够在大约1秒的时间内重新编号125张纸集&nbsp
如果您被卡住了，请发回…

jvillarreal 发表于 2007-1-5 20:44:27

Boooo
谢谢你的链接&nbsp&nbsp；本人&#039；我将在星期一偷偷看一眼&nbsp；如果我遇到任何障碍，我&#039；我一定会发回的
再次感谢！

rkmcswain 发表于 2007-1-6 07:46:51

Boooo
让我重新表述一下……我可以&#039；不要在这里复制我的雇主代码；

rkmcswain 发表于 2010-5-6 12:17:30

我真的很想用这个，但我&#039；我不知道该怎么做这个例行程序&nbsp；该例程中启动lisp的命令在哪里？

rkmcswain 发表于 2010-5-11 08:36:26

http://au.autodesk.com/?nd=class&session\u id=1206这个链接应该很有用
&quot；“填充图纸集管理器中的间隙”；作者：R.Robert Bell
提供的代码

jvillarreal 发表于 2010-12-10 12:37:30

有人在.NET中为64位AutoCAD做过这方面的工作吗
我的理解是，SSM API在64位VBA中无法工作。

jvillarreal 发表于 2018-4-18 09:19:07

我知道这是一条古老的线索，但我只想说，在图纸集中重新编号图纸是内置在BricsCAD中的
参考：https://twitter.com/cadpanacea/status/986594336354852865

jvillarreal 发表于 2018-4-18 09:32:37

当然是了。BCFTW。

jvillarreal 发表于 2018-4-19 10:06:06

BCFTW=节育胜利
https://www.urbandictionary.com/define.php?term=bcftw

查看完整版本: 重新编号图纸集