Create a text on the active view

[g5 Molinengo]

Hello everyone,

I need to create, through script, a generic text on the active view.

I enclose a sample script of what I would do

Procedure LoadFile;

VAR

boolResult:BOOLEAN;

inserimento :POINT;

objectHandle :HANDLE;

OX, OY, OZ, RX, RY, RZ :real;

BEGIN

boolResult:= GetViewMatrix(ActLayer, OX, OY, OZ, RX, RY, RZ);

message (OX,'*', OY,'*', OZ,'*******',RX,'*', RY,'*', RZ,' risul=', boolResult);

GetPt(inserimento.x, inserimento.y);

TextOrigin(inserimento.x, inserimento.y);

BeginText;

'Testo_1'

EndText;

objectHandle := LNewObj;

SetObjectVariableBoolean(objectHandle, 684, true);

SetObjectVariableBoolean(objectHandle, 1160, false);

boolResult := SetEntityMatrix(objectHandle, OX, OY, OZ, RX, RY, RZ);

Redrawall;

END;

Run(LoadFile);[/color]

Thanks to all and happy new year

Piero Molinengo

[MullinRJ]

Hello Piero,

This line puts the text on the Layer Plane (Ground Plane):

???SetObjectVariableBoolean(objectHandle, 1160, false);

which may not be visible when you click in a 3D view.

If you set it to TRUE it will draw on the Screen Plane and show where you click:

???SetObjectVariableBoolean(objectHandle, 1160, false);

If you DO want it to move with the view then you DO want it on the Layer Plane. I haven't figured out how to do that yet. Can you explain how you want it to look?

Raymond