社区 › VB › 自动对SSM中选定的图纸重新编号

jtm2020hyo 发表于 2019-2-13 13:54:22

自动对SSM中选定的图纸重新编号

是否有一个例程（或任何东西）自动重新编号选定的工作表

对于SSM，我的意思是：SheetSetManager

Master_Shake 发表于 2019-2-14 17:17:32

你不停地问，请不停地询问？

Nima2018 发表于 2019-2-15 11:37:13

您好，jntm226请转到此链接：https://blog.jtbworld.com/2006/04/sheet-set-manager-code-snippets.html

jtm2020hyo 发表于 2019-2-17 11:03:34

对不起，我的问题是，我应该使用哪种代码来重新编号表格；SHEETSETMANAGER
modEmptySheetValues
MODCUSTSHEETSETPROPERTYS
MODADDSSHEETSSETPROPERTY
MODRENAME属性
MODSETCUSTSHeeTSETPROTY<modcheckandcorrectspropertiesmodCurrentSheetmodDeleteSSProperty

Nima2018 发表于 2019-2-19 13:19:36

您好jntm226&#039；s函数具有充分的说明性，您可以通过不同的方式使用它们来履行职责
无论如何，我可以为你做这件事，但不是今天和明天。也许我有机会在周五或周六做这件事
不过，我会给你两个指南和链接，希望你能自己回答
如果你失败了，我会为你写的
首先转到此链接：https://forums.autodesk.com/t5/inventor-customization/sheet-number-in-vba/td-p/2360887请注意以下为Autodesk Inventor和相关文章编写的功能（这有助于了解工作的思路和基础）
'The sheet number is appended to the sheet name in the browser.You can get this name using the Name property of the Sheet
'object and then extract the number from the name.Here's an example of a 'function that does this.
Codes by :Brian Ekins

Public Function GetSheetNumber(ByVal Sheet As Inventor.Sheet) As Integer
    Dim strSheetName As String
    strSheetName = Sheet.Name
   
    If InStr(strSheetName, ":") Then      ' Extract the sheet number from the name.
      GetSheetNumber = CInt(Right$(strSheetName, Len(strSheetName) - InStrRev(strSheetName, ":")))
            Else
                  GetSheetNumber = 0 ' This sheet is not numbered so return zero.
    End If
End Function

第二步转到此链接：https://www.cadtutor.net/forum/topic/6051-sheetset-vba-index/注意；ML0940第144号帖子“；以及相关职位
成功，玩得开心。

jtm2020hyo 发表于 2019-2-24 09:44:19

本人&#039；我从0开始学习。这需要时间

jtm2020hyo 发表于 2019-3-21 17:33:56

我有一个小进步
我发现这样：http://www.theswamp.org/index.php?topic=52362.msg593063#msg593063我学会了一种将dst转换为xml的方法。那个帖子里的每个人都说，有了这个，我可以对图纸集重新编号。但我还是不知道怎么办。所以我还是会努力的。但我们都需要你的帮助。

查看完整版本: 自动对SSM中选定的图纸重新编号