[DDlis]

Помогите пожалуйста с програмкой.
Нужно чтобы при вычерчивании прямоугольника или квадрата командой Rectang он автоматически заливался цветом Bylayer

[Startrek]

(DEFUN C:RH ()
(COMMAND"RECTANG" PAUSE PAUSE)
(COMMAND"HATCH" "SOLID" "L" "")
(PRINC)
)