TheSwamp
Code Red => VB(A) => Topic started by: jtm2020hyo 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
-
You keep asking, please keep inquiries to one?
-
Hi jntm226
Go to this link, please :
https://blog.jtbworld.com/2006/04/sheet-set-manager-code-snippets.html
(https://blog.jtbworld.com/2006/04/sheet-set-manager-code-snippets.html)
-
Hi jntm226
Go to this link, please :
https://blog.jtbworld.com/2006/04/sheet-set-manager-code-snippets.html
(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
-
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 (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).
'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/ (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'm learning since 0.
this will take time
-
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 (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).
'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/ (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.