[Closed] autogrid issues

I’m trying to make a script to plant object on a surface but I have some issues when trying to use the autogrid.

here is the base script

tool makepoint
(
on mousePoint clickno do
(
local b
coordsys grid (b=point pos:gridpoint)
)
)

to run : starttool makepoint

what I was expected with that is that the tool will use the autogrid if its checked. But unfortunatlly it always use the home grid.

I would be glad if somone could point me what I did wrong thx a lot