tool helperpoints --mouse click definition
(
local p
on mousePoint clickp do (p = point name:("point_" + (random 0 100 as string)) pos:worldPoint size: 1 wirecolor:[130,225,40])
on mouseMove clickno do p.pos = worldPoint
)
rollout rlhelperPoints "Helper Points Creation" -- create rollout to fill with buttons
(
button btstart "Start Helping Points" width:125 --this will activate the tool
button snapobjects " Snap objects on Points" width:125
button deletepoints "DELETE all points" width:125 -- this will DELETE the points
-- this STARTS the tool