【转帖】rename sketch

yang686526

rename sketch
please look at this code and advise how this can be modified to rename any sketch in the feature manager tree. my current approach is to make copies of this code and edit it to suit the name i require.
dim swapp as object
dim part as object
dim selmgr as object
dim boolstatus as boolean
dim longstatus as long, longwarnings as long
dim feature as object
sub main()
set swapp = application.sldworks
set part = swapp.activedoc
set selmgr = part.selectionmanager
boolstatus = part.extension.selectbyid2("sketch1", "sketch", 0, 0, 0, false, 0, nothing, 0)
part.selectedfeatureproperties 0, 0, 0, 0, 0, 0, 0, 1, 0, "testa"
part.clearselection2 true
end sub
feroz mahomed
windows xp professional sp2
sworks 2009 sp2
nvidia quadro fx1500
two main ways;
traverse the feature tree to find a sketch, or to provide the user with a list of all sketches to select one, or ask the user for input of the sketch name. would either of those suit you?
luke,
is it possible for the user to select from a list of default names?
feroz mahomed
windows xp professional sp2
sworks 2009 sp2
nvidia quadro fx1500
luke,
"to provide the user with a list of all sketches to select one" would be an option.ideally, i would like to remane the skethes as they are created.
feroz mahomed
windows xp professional sp2
sworks 2009 sp2
nvidia quadro fx1500
for that your simplest way is to create code that traverses the feature tree (type in traverse in api help, using getfirstfeature, getspecificfeature etc...) and identify each sketch feature.
then once found pop up a user dialog showing the original sketch name and have a textbox for the new sketch name, then use your code to rename the sketch.
originally posted by: feroz mahomed
luke,
"to provide the user with a list of all sketches to select one" would be an option.ideally, i would like to remane the skethes as they are created.
if i read that correctly, you can goto tools -> options -> featuremanager -> then put a check next to "name feature on creation"
iirc, that will work if you start a sketch, but i don't think it gives you the option to name the sketch when it is started by a feature.
sw2009 sp3.0
pentium d 840-3.2 ghz
4gb ddr2 667
ati firegl v5600 - driver ver. 8.440.0.0
winxp pro 32bit
an understanding that without any understanding, we would all be misunderstood..
quick