This is the script written in MiniCad7 for the select current object tool. It doesn't work in Vectorworks. I am script illiterate. Can anyone help. Thanks in advance.
INTEGER;Procedure COT;
VAR X,Y,ObjPROP:REAL; h,layerHandle:HANDLE; Red,Green,Blue:LONGINT; LayerName:STRING;
BEGIN
GetPt(X,Y); h:=PickObject(X,Y);IF h<>NIL THEN BEGIN
layerHandle:=GetLayer(h); {Set Layer}layerName:=GetLName(layerHandle);layer(LayerName)
NameClass(GetClass(h)); {Set Class}
PenSize(GetLW(h)); {Set Pensize & Style}PenPat(GetLS(h));
GetFillFore(h,Red,Green,Blue);FillFore(Red,Green,Blue); {Set Fill Colors}GetFillBack(h,Red,Green,Blue);FillBack(Red,Green,Blue);
GetPenFore(h,Red,Green,Blue);PenFore(Red,Green,Blue); {Set Pen Colors}GetPenBack(h,Red,Green,Blue);PenBack(Red,Green,Blue);
h:=NIL;ENDelseEND;
RUN(COT);