Code Red > VB(A)

automatically REnumbering selected sheets in SSM

(1/2) > >>

jtm2020hyo:
it is there a routine (or anything) to automatically REnumbering selected sheets?

 
for SSM, I mean: SheetSetManager

ChrisCarlson:
You keep asking, please keep inquiries to one?

Nima2018:
Hi jntm226

Go to this link, please :



https://blog.jtbworld.com/2006/04/sheet-set-manager-code-snippets.html

jtm2020hyo:

--- Quote from: Nima2018 on February 15, 2019, 11:37:13 AM ---Hi jntm226

Go to this link, please :



https://blog.jtbworld.com/2006/04/sheet-set-manager-code-snippets.html



--- End quote ---


sorry for noob question, which code should I use to renumbering the sheets ins  SHEETSETMANAGER?

modEmptySheetValues
modCustSheetSetProperties
modAddSheetSetProperty
modRenameSSProperty
modSetCustSheetSetProperty
modCheckAndCorrectSSProperties
modCurrentSheet
modDeleteSSProperty
modSSM
modSSMChangeNumberTitle
modWhoIsLockingSS

Nima2018:
Hi jntm226

JTB World's functions are sufficiently illustrative and you can do your duty by using them in different ways.
Anyway,I can do this for you, but not today and tomorrow. Maybe I have the opportunity to do this on Friday or Saturday.
However, I will give you two guides and link and I hope you will answer on your own.
If you fail, I will write it for you.

First go to this link : https://forums.autodesk.com/t5/inventor-customization/sheet-number-in-vba/td-p/2360887
and pay attention to below function that written for Autodesk Inventor and related posts (It is useful to get the idea and foundation of work).


--- Code: ---'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


--- End code ---

Second go to this link : https://www.cadtutor.net/forum/topic/6051-sheetset-vba-index/
and pay attention to " ML0940 post No. 144 " and related posts.
Succeed and have a good time .

Navigation

[0] Message Index

[#] Next page