Getting a Handle for the result of SymbolToGroup()

[Sam Jones]

I want to get a handle to the group created by the command SymbolToGroup().  LNewObj is not successful in delivering the result.

 

{==========================================================}

PROCEDURE Sym2GrpTest;
{$DEBUG}

CONST
    kSymName =    'Light Instr ETC Source 4 19deg 750W';
    
VAR
    TheSym        :HANDLE;
    TheGrp        :HANDLE;
    
BEGIN
    Symbol(kSymName, 12, 12, 0);
    TheSym := LNewObj;
    SymbolToGroup(TheSym, 1);    
    TheGrp := LNewObj;                          {TheGrp always receives the value of NIL}
    IF TheGrp <> NIL THEN
        BEGIN
            Scale(0.5, 0.5);
            SetName(TheGrp, 'The New Group');
        END
    ELSE
        AlrtDialog('The Grp is NIL');
END;
RUN(Sym2GrpTest);

{==========================================================}

 

Substituting "TheGrp := FSActLayer;" for "TheGrp := LNewObj;"  is successful, but only if only one object is selected.  When one tries to poll through an array of handles and placing them one at a time.  FSActLayer does not change value. 

So, does anyone know how to get a handle to the result of the "SymbolToGroup(TheSym, 1);" command?

 

Edited October 15, 2022 by Sam Jones
grammar

[MullinRJ]

@Sam Jones,

   Use LActLayer, or a Waldo that places a locus and retrieves the PrevObj(LNewObj), were LNewObj is now the Locus. Delete when done.

 

Raymond

[Julian_Carr]

Yep that's what I do:
 

    SymbolToGroup(h1, 4);
    Locus(0, 0);
    h1 := LNewObj;
    hGroup := PrevObj(h1);
    DelObject(h1);