Author Topic: automatically REnumbering selected sheets in SSM  (Read 886 times)

0 Members and 1 Guest are viewing this topic.

jtm2018hyo

  • Newt
  • Posts: 56
automatically REnumbering selected sheets in SSM
« on: February 13, 2019, 01:54:22 PM »
it is there a routine (or anything) to automatically REnumbering selected sheets?

 
for SSM, I mean: SheetSetManager

Master_Shake

  • Swamp Rat
  • Posts: 1439
Re: automatically REnumbering selected sheets in SSM
« Reply #1 on: February 14, 2019, 05:17:32 PM »
You keep asking, please keep inquiries to one?

Nima2018

  • Newt
  • Posts: 28
Re: automatically REnumbering selected sheets in SSM
« Reply #2 on: February 15, 2019, 11:37:13 AM »

jtm2018hyo

  • Newt
  • Posts: 56
Re: automatically REnumbering selected sheets in SSM
« Reply #3 on: February 17, 2019, 11:03:34 AM »
Hi jntm226

Go to this link, please :



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




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

  • Newt
  • Posts: 28
Re: automatically REnumbering selected sheets in SSM
« Reply #4 on: February 19, 2019, 01:19:36 PM »
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: [Select]
'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


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 .

jtm2018hyo

  • Newt
  • Posts: 56
Re: automatically REnumbering selected sheets in SSM
« Reply #5 on: February 24, 2019, 09:44:19 AM »
I'm learning since 0.

this will take time

jtm2018hyo

  • Newt
  • Posts: 56
Re: automatically REnumbering selected sheets in SSM
« Reply #6 on: March 21, 2019, 05:33:56 PM »
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: [Select]
'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


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 .

I have a small progress.
I found this like : http://www.theswamp.org/index.php?topic=52362.msg593063#msg593063
I learned a way to convert dst to xml. everyone in that post say that with this i can renumber sheetsets. but I still do not how.
...so I will still trying. but we all will need some of your help.