画一个矩形程序

；画一个矩形
(defun c:rect(/ p1 p2 p3 p4);定义命令名，及定义局部变量，注意斜杠后面需要有空格。
 (setq p1 (getpoint "\n输入第一个点："))
 (setq p3 (getpoint "\n输入对角点："))
 (setq p2 (list (car p3) (cadr p1)));获取p3的x值及p1的y值来确定矩形的第二点。
 (setq p4 (list (car p1) (cadr p3)));获取p1的x值及p3的y值来确定矩形的第四点。
 (command "pline" p1 p2 p3 p4 "c");c为pline的闭合选项。
)