结合下例程序介绍几种调试程序的方法。【例6. 1】互输入的参数。输定义绘制矩形的命令, 矩形的一个角点、 宽、 高和旋转角为交程序的源代码如下:(defun c: rectr(/ w h alf p1 p2 p3 p4)(setq p1(getpoint "输入矩形的一个角点: ")w (getdist p1 "输入矩形的宽: ")h (getdist p1 "输入矩形的高: ")alf (getangle p1 "输入矩形的旋转角: "))halfhp1p2p3p4 (setq p2(polar p1 alf w) )(setq p3(polar p2 (+ alf (* 0. 5 pi) ) h) )(setq p4(polar p3 (+ alf pi) w) )(command "pline" p1 p2 p3 p4 "c")(princ))