AutoCAD Macro #2

A4 ^C^Climits;0,0;297,210;line;0,0;@297<0;@210<90;@297<180;c;^czoom;a;grid;on;
layer ^C^C_-layer;make;pipe;
erase all ^C^Cerase;all;;
Rectangle ^C^Cline;\@100<0;@100<90;@100<180;c

^C^C(setq p1 (getpoint "input start point:"));\;^C(setq d1 (getreal "input length:"));\;^Cline;!p1;(list (+ (car p1) d1) (cadr p1) (caddr p1));(list (+ (car p1) d1) (+ (cadr p1) d1) (caddr p1));(list (car p1) (+ (cadr p1) d1) (caddr p1));c;