Try this.
Code:
(DEFUN C:Gq (/ GasketLength GasketLL GasketUR)
(GRAPHSCR) ; CHANGE TO GRAPHIC SCREEN
(setq GasktetLength (GETREAL " ENTER LENGTH OF GASKETS ")
GasketLL (getpoint " enter corner of gasket ")
GasketUR (list (+ (car GasketLL) GasketLength)
(+ (cadr GasketLL) GasketLength)
(caddr GasketLL)
)
)
(command "_rectang" GasketLL GasketUR)
(command "_extrude" (entlast) "" GasketLength)
)
After you study and understand this code for a bit, please ask future AutoLISP questions in the AutoLISP forum. However, please continue discussing this code sample in this thread. We will have it moved for you.