How to divide irregular area into equal parts

To divide a surface into a certain number of smaller equal areas, there is a Lisp for Autocad.