I am trying to draw rectangle around bounding box of selected objects. See script below:
PROCEDURE GroupBB;
VAR
X1,Y1,X2,Y2:Real;
H1:HANDLE;
BEGIN
H1:=FSActLayer;
WHILE (H1 <> NIL) DO BEGIN
GetBBox(H1,X1,Y1,X2,Y2);
AlrtDialog(Concat(GetTypeN(H1),' - ',X1,' - ',Y1,' - ',X2,' - ',Y2));
Rect(X1,Y1,X2,Y2);
H1:=NextSObj(H1);
END;
END;
Run(GroupBB);
However, the script starts an infinite loop. What is wrong?