Magic Wand/Class Selection Tool?
Does anyone know of a magic wand/class selection tool out there for Version 12? I saw the magic wand on Vectorbits, and it looks great. I'm willing to pay for it, but I also want to see if anyone knows if it will work with V12. I tried to load the enhanced tape measure tool from the same site, and couldn't find it in the workspace editor.
As another route, I'm looking for a script that will simply select all the available items with a matching class to an item I would click on.
Thanks
Try this....
Procedure PickClassSelect;
VAR
h :HANDLE;
ClSel, SelCrit :STRING;
px, py :REAL;
i :INTEGER;
Begin
repeat
GetPt(pX,pY);
h := PickObject(pX,pY);
ClSel := GetClass(h);
{message (concat('Class selected := ',ClSel));}
SelCrit := concat('C=',chr(39),Clsel,chr(39));
selectObj (SelCrit);
Until H=nil
END;
Run(PickClassSelect);
G-Pang