just hatch the boundary with NET pattern, set scale, rotation and origin then explode (if needed)
Thanks for reply
Put I am asking for a lisp to fraw the magenta line
each segmant shoud be multiply of 600 and in center or area.
I am doing these steps manualy then adding hatch
So I am askingid there such as a lisp to do that magenta line