Drawing objects

[lucioing]

Hi!

I draw a poly by

 

Poly(

....

);

then I store it in 'MyPolyHandle' by

MyPolyHandle:=LNewObj;

 

Ok.

 

Now, can I draw the poly by its Handle?

 

Thank you

 

L.

[lucioing]

what I mean...

 

 

PROCEDURE MakeBeam(hSez: HANDLE; xtrd:REAL);

BEGIN             

   BeginXtrd(0, xtrd);                              

      somethings to put here!

   EndXtrd;         

END;         

[Pat Stanford]

I don't think I understand the question.

 

The Poly(...); command by itself will draw the polygon when the script runs. You don't need the handle for that.

 

If you are asking if you can get a handle to the polygon you just generated and use it inside the Xtrd command then I think the answer is yes.

 

Or are you asking a different question?

[lucioing]

7 minutes ago, Pat Stanford said:

If you are asking if you can get a handle to the polygon you just generated and use it inside the Xtrd command then I think the answer is yes.

You perfectly understand what I mean.

 

Thank you, Pat

 

L.

[lucioing]

Of course, I could simply write:

 

    PROCEDURE MakeBeam(xtrd:REAL);
        
        BEGIN
            BeginXtrd(0, xtrd);
                Cerchio(0, 0, 100);
            EndXtrd;
        END;
but it doesn't make sense.

 

what I'd like to get is send to the xtrd procedure, the proper sectionProfile...

 

So if I have to make a tube, I'll send a 'CircleSection' or a 'WebSection' or a 'TubeSection'...

[Pat Stanford]

Hopefully the code below will give you come ideas. You could use IF instead of CASE also I think.

 

Procedure Test;
VAR        N1    :Integer;

Procedure MyPoly;
    BEGIN
        BeginPoly;
            MoveTo(0,0);
            CUrveTo(2,5);
            LineTo(10,5);
            LineTo(10,-5);
            CurveTo(8,0);
            LineTo(0,0);
        EndPoly;
    End;
    
BEGIN
    N1:=IntDialog('Enter value 1-3 for Extrude Type','1');
    BeginXtrd(0,10');
        Case N1 Of
            1:Rect(0,0,5,5);
            2:ArcByCenter(0,0,5,0,260);
            3:MyPoly;
        End;
    EndXtrd;
End;

Run(Test);

Procedure Test;
VAR		N1	:Integer;

Procedure MyPoly;
	BEGIN
		BeginPoly;
			MoveTo(0,0);
			CUrveTo(2,5);
			LineTo(10,5);
			LineTo(10,-5);
			CurveTo(8,0);
			LineTo(0,0);
		EndPoly;
	End;
	
BEGIN
	N1:=IntDialog('Enter value 1-3 for Extrude Type','1');
	BeginXtrd(0,10');
		Case N1 Of
			1:Rect(0,0,5,5);
			2:ArcByCenter(0,0,5,0,260);
			3:MyPoly;
		End;
	EndXtrd;
End;

Run(Test);

 

[lucioing]

Ok. You are the greatest!

Simply and efficient!

 

Thank you Pat!

 

L.

[lucioing]

One more thing... 😉

 

How do you PASTE the code?

 

L.

[lucioing]

I mean the 'courier' code...

[Pat Stanford]

When you have the editor open, click the  <> icon in the menu bar. It will give you a code block editor. This is critical for pasting code as it respects white space so you can paste indented code so it is easier to read.  Similarly, if you click the quote icon it will quote the copied text.