请问如何让这两个画矩形的程序在一个命令中完成

534652717

(defun c:rg (/ pt1 w h pt2 pt3)
  (setvar "cmdecho" 0)
  (setq pt1 (getpoint "\n输入矩形任一角点:"))
  (setq pt3 (getcorner pt1 "\n输入另一角点"))
  (command "rectang" pt1 pt3)
  (setq w (getreal "\n输入宽度:"))
  (setq h (getreal "\n输入高度:"))
  (setq pt2 (polar pt1 0 w))
  (setq pt3 (polar pt2 (/ pi 2) h))
  (command "rectang" pt1 pt3)
  (prin1)
  )
就是觉得画图的时候，画矩形，绝对坐标用不到，但是相对坐标要输入@，比较麻烦，所以就想着编一个程序省去输入@。
但是又想有直接输入一个角点，再输入另一个角点能画出矩形，如何能让这两种画矩形的方法在一个程序中实现？越简单越好

ZZXXQQ

1. (defun c:rg (/ pt1 w h pt2 pt3)
   
2. (setvar "cmdecho" 0)
   
3. (setq pt1 (getpoint "\n输入矩形任一角点 :"))
   
4. (if (setq pt3 (getcorner pt1 "\n输入另一角点(回车相对坐标) :"))
   
5.   (command "rectang" pt1 pt3)
   
6. (progn
   
7.   (setq w (getdist "\n输入宽度:"))
   
8.   (setq h (getdist "\n输入高度:"))
   
9.   (setq pt2 (polar pt1 0 w))
   
10.   (setq pt3 (polar pt2 (/ pi 2) h))
    
11.   (command "rectang" pt1 pt3)
    
12. ))
    
13. (prin1)
    
14. )
    

(defun c:rg (/ pt1 w h pt2 pt3)<br /> (setvar "cmdecho" 0)<br /> (setq pt1 (getpoint "\n输入矩形任一角点 :"))<br /> (if (setq pt3 (getcorner pt1 "\n输入另一角点(回车相对坐标) :"))<br />   (command "rectang" pt1 pt3)<br /> (progn<br />   (setq w (getdist "\n输入宽度:"))<br />   (setq h (getdist "\n输入高度:"))<br />   (setq pt2 (polar pt1 0 w))<br />   (setq pt3 (polar pt2 (/ pi 2) h))<br />   (command "rectang" pt1 pt3)<br /> ))<br /> (prin1)<br /> )<br />

534652717

谢谢哈，我试试，大好人