Hello!
I'm unable to set the proper class to a new obj.
What's wrong with this?
In my opinion, it a very, very simple script, but what I get is not what I need: create a closed parametric polygon (ok) to a class...
Thank you
L.
VW 2017 SP1
Here's the script.
PROCEDURE Poly_1;
CONST
{capitalized to distinguish them from variables}
NOTHING='';
VAR
s:STRING;
i:INTEGER;
layerHandle, objectHandle:handle;
BEGIN
PenSize(14);
PenPat(2);
FillPat(1);
PenFore(0,0,0);
PenBack(65535,65535,65535);
FillFore(0,0,0);
FillBack(52000,52000,52000);
NameClass('MyObj');
ClosePoly;
BeginPoly;
Poly(
0,0,
0,pH1+pH2,
pL1,pH1+pH2,
pL1,pH1,
pL1+pL2,pH1,
pL1+pL2,0
);
EndPoly;
{objectHandle := LNewObj; <-------- I've tried this way but it doesn't works too
SetClass(objectHandle, 'MyObj');}
END;
Run(Poly_1);