Shape Now

Hi, this is a simple script to transform a model poly to the spline wire form from that.

macroScript shape_now category:"#Scripts"
(
rollout shape_now "shape_now"
(
button btn1 "shape now" pos:[05,05] width:110 height:30
on btn1 pressed do
(
modPanel.addModToSelection (Edit_Poly ()) ui:on
subobjectLevel = 5
modPanel.setCurrentObject $.modifiers[#Edit_Poly]
actionMan.executeAction 0 "40021" -- Selection: Select All
max select all
$.modifiers[#Edit_Poly].ConvertSelection #Element #Edge
subobjectLevel = 2
$.modifiers[#Edit_Poly].ButtonOp #CreateShape
$Shape001.name = "New"
subobjectLevel = 0
max create mode
clearSelection()

)
)
createdialog shape_now width:120 height:40
)