记忆量取的尺寸，并平行于量取角度绘制任意旋转角度的矩形

hehoubin

请高手帮忙修改下面的绘制矩形的代码，我想把下面的代码，让绘制矩形时量取的长宽的记忆，并平行于量取角度绘制任意旋转角度的矩形(defun C:BX (/ PT PT1 L W)   
(while (setq PT

(getpoint "\n please input center point>>"))
(if (setq L (getdist PT "\n pletse input l:"))   

(progn(setq PT1 (polar PT 0 L))
(if (setq W (getdist

PT (strcat "\n please input w:<"  (rtos L) ">" )))   
(setq PT1 (polar PT1 (* 0.5 pi) W))   
(setq PT1 (polar PT1 (* 0.5 pi) L)))

(command "_.rectang" "non" PT "non" PT1))))  

(princ))