Set POI Field From Object Z value (REAL)

[M5d]

Hi

I'm trying to write my first script & want to write a script that will take a -Z value from a Column PIO and write it to the 'OA Height' Field as a Positive Z Value. It's for sloping sites where the columns will be exposed on the underside of a house. I set the layer that the columns are on to the underside of the bearers and then use the send to surface command which leaves the Column sitting on the ground with their heights all over the place.

What's needed is something like the SetRField Function that can use the REAL data type.

I have a skeleton of the script which doesn't work but it should show what I'm trying to achieve:

Thanks

PROCEDURE Level_Columns;

CONST

PObj = 86;

VAR

h : HANDLE;

Valx, Valy, Valz, Colz : REAL;

BEGIN

h := FSActLayer;

WHILE h <> NIL DO

BEGIN

IF GetType(h) = PObj THEN

BEGIN

Move3DObj(h,0,0,-100);

GetSymLoc3d(h, Valx, Valy, Valz);

Colz := Valz*(-1);

SetRField(h, 'Column', 'OA Height', Colz);

ResetObject(h);

END;

BEGIN

SetDSelect(h);

h := NextSObj(h)

END;

END;

END;

RUN (Level_Columns);

[maarten.]

SetRField asks for a STRING instead of a REAL, so you need to turn that REAL to a STRING. You can do that with Num2Str.

So in your cause you could write it as:

SetRField(h, 'Column', 'OA Height', Num2Str(0,Colz));

[M5d]

It works!!!

Thanks again Maarten