Лисп для создания координатной рамки

Лисп создает координатную рамку, есть нюанс - начальные координаты (нижний левый угол) должны быть кратными шагу сетки.

Вызывается командой FRAME

LENGTH - длина рамки по X
HEIGTH - высота рамки по Y
INTERVAL - шаг между точками
SCALE - масштаб
======================================
Пример:
см. скриншот1

Command: FRAME
SET origin of coordinates : X = 0
Y = 0
SET length : 100
SET heigth : 100
SET interval : 5
SET scale : 1
======================================