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

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

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

是否有例程（或任何东西）来自动对选定的工作表进行编号？

对于SSM，我的意思是：SheetSetManager
**** Hidden Message *****

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中重新编号图纸
ModemptySheetValue
ModCustSheetProperties
modAddSheetSetProperty
modRenameSSProperty
ModSetCustSheet属性
ModCheckAndCorrectsProperties
modCurrentSheet
ModeDeletesProperty
modSSM
modSSMChangeNumberTitle
ModWhoisLockings

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

Hi jntm226
JTB World的功能足以说明问题，您可以通过以不同的方式使用它们来履行职责。
无论如何，我可以为你做这件事，但不是今天和明天。也许我有机会在星期五或星期六这样做。
但是，我会给你两个指南和链接，我希望你能自己回答。
如果你失败了，我会为你写。
首先转到此链接 ：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帖子No.144”及相关帖子。
成功并享受美好时光。

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

我从0开始学习。
这需要时间

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

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

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