JurassicParkTrespasser/jp2_pc/Tools/MAXScript/renforinstancing.ms
2018-01-01 23:07:24 +01:00

61 lines
1.2 KiB
Plaintext

Utility RenObjectsForInstancing "Rename for Instancing"
(
label version "v1.0"
label label1 "1. Select source object." align: #left
label label2 "2. Select objects for renaming." align: #left
label label3 "3. Click Rename Selected" align: #left
label labelblank0 ""
label label4 "NOTE:"
label label4a "Source Object SHOULD NOT"
label label5 "contain the -00 extension!"
label labelblank ""
pickbutton PickObject "Pick Source Object" width:135
Label Source_name "-- none --"
label label6 ""
button RenameSelected "Rename Selected" width:135
button RenameSelected2 "Rename Selected2" width:135
on PickObject Picked obj do
(
Source_name.text = obj.name
)
on renameselected pressed do
(
i = 0;
for o in objects do
(
if o.isselected do
(
i = (i +1)
if i >= 1 and i <= 9 do
(object_count = ("0" + (i as string)))
if i >= 10 do
(object_count = (i as string))
o.name = (Source_name.text + "-" + object_count)
)
)
)
on renameselected2 pressed do
(
i = 0;
for o in objects do
(
if o.isselected do
(
i = (i +1)
if i >= 1 and i <= 9 do
(object_count = ("0" + (i as string)))
if i >= 10 do
(object_count = (i as string))
o.name = (Source_name.text + object_count)
)
)
)
)