Below is a script by Peter Vandewalle and it work fine as a command or from the script palette but if I run it as a tool the angle constraints don't kick in to the second object duplication. Does any one know why and how to fix it. I like this script vs the move by point tool because it makes a duplicate object at every point that I click. and I don't have to keep switching the move by point from retain objects to not retaining objects.
Procedure CopyPt;
{Peter Vandewalle, 14-03-2003}
LABEL 99;
VAR
ObjHdle,NewHandle:HANDLE;
xi,yi,xm,ym,xp,yp,X,Y:REAL;
YesNo:BOOLEAN;
SelNum:LONGINT;
Procedure do_error(s:STRING;v:REAL);
BEGIN
AlrtDialog(Concat(S,' = ',Num2Str(5,V)));
END;
BEGIN
Absolute;
SelNum:=NumSObj(ActLayer);
IF (SelNum=0) THEN BEGIN
Message('Select object to copy:');
GetPt(X,Y);
SetSelect(PickObject(X,Y));
END;
Message('Click reference point');
GetPt(xi,yi);
YesNo:=false;
xp:=xi;
yp:=yi;
REPEAT
Message('Click endpoint, double-click to exit');
GetPtl(xi,yi,xm,ym);
IF ((xp=xm) AND (yp=ym)) THEN GOTO 99;{Check 4 double-click}
Duplicate(xm-xp,ym-yp);
xp:=xm;
yp:=ym;
UNTIL YesNo;
99:ClrMessage;
DSelectAll;
RedrawAll;
ClrMessage;
END;
Run(CopyPt);