【转帖】sheet numbering macro, is it possible

yang686526

sheet numbering macro, is it possible?
i dabble in api time to time, i know just enough to be dangerous, wrote about 4 so far. anyway before i dig into it i was wondering if it is feasible to make a macro to number all my sheets. going off memory i know when ever i referenced a sheet i was able to reference the sheet by name or active sheet but i need an idea how i would lets say tell it to label the current sheet as one then automatically go to the next sheet and label it as 2 and so on.
change is inevitable, except from a vending machine
any reason you don't want to link a note to $prp:"sw-current_sheet"?
i'll get you eh steve, if it's the last thing i dooooo!
originally posted by: josh brady
any reason you don't want to link a note to $prp:"sw-current_sheet"?
i do... my drawings say sheet 1 of x, x is linked to the total of sheets so that is always right, and 1 is what ever the name of my drawing sheet is, hence why i would like them to say 1,2,3, etc....
change is inevitable, except from a vending machine
so... you want to rename the sheets in the user interface, not add a notation to your actual sheets as printed? as in change the text on the sheet tab at the bottom of the screen? so instead of "sheet1", "sheet2", etc, you see "1", "2", etc?
i'll get you eh steve, if it's the last thing i dooooo!
answer option explicit
dim swapp as sldworks.sldworks
dim swdraw as modeldoc2
dim selmgr as selectionmgr
dim swsheet as sldworks.sheet
dim vsheetnames as variant
dim i as long
sub main()
set swapp = application.sldworks
set swdraw = swapp.activedoc
set selmgr = swdraw.selectionmanager
vsheetnames = swdraw.getsheetnames
for i = 0 to ubound(vsheetnames)
swdraw.extension.selectbyid2 vsheetnames(i), "sheet", 0, 0, 0, false, 0, nothing, 0
set swsheet = selmgr.getselectedobject6(1, -1)
swsheet.setname i + 1
next i
end sub
thanks luke! works perfect
change is inevitable, except from a vending machine
quick