按标注比例画矩形的程序

szx025

(defun C:jx(/ pt1 pt2 dimlfac)
(setq old_OS (getvar "OSMODE")) ;;保存系统变量设置
(setvar "OSMODE" 0)                    ; 关闭捕捉
(setq dimlfac (getvar "DIMLFAC"))
(setq pt1 (getpoint "\nFirst point:"))
(setq pt2 (getpoint pt1 "\nSecond point @") pt2 (mapcar '+ pt1 pt2))
(setq x (/(-(car pt2)(car pt1))dimlfac)
      y (/(-(cadr pt2)(cadr pt1))dimlfac))
(setq pt2 (list (+ (car pt1)x)(+ (cadr pt1) y)))
    (command "rectang" pt1 pt2 )
(setvar "OSMODE" old_OS)  ;;恢复系统变量设置      
  (princ)(princ)
)      
这是一个按标注比例画矩形的程序，请高手改为先定位矩形的中心点，然后输入矩形的长，高，再按标注比例画出矩形