Feel free to add to this and release it in the plugins forum section
Put this in crease.tcl, inside your scripts folder
Code:
proc send_crease { } {
set obs [ac3d get_selected_objects]
set quick_crease_angle [.c.e get]
puts "setting $quick_crease_angle on $obs"
foreach ob $obs {
ac3d object_set_crease_angle $ob $quick_crease_angle
}
ac3d redraw_all
}
toplevel .c
entry .c.e -textvariable quick_crease_angle
button .c.b -command send_crease -text "Set crease angle"
pack .c.e -side top -fill x
pack .c.b -side top