Gets the elevation and thickness of the specified layer.
PROCEDURE GetLayerElevation(
h : HANDLE;
VAR baseElev : REAL;
VAR thickness : REAL);def vs.GetLayerElevation(h):
return (baseElev, thickness)| Name | Type | Description |
|---|---|---|
| h | HANDLE | Handle to the layer |
| baseElev | REAL | Base elevation of the layer |
| thickness | REAL | Thickness of the layer |
[[User:Orso.b.schmid| orso]] 2006.11.25: Please note that this routines always returns millimeters.
PROCEDURE Example;
VAR
h :HANDLE;
baseElev, thickness :REAL;
BEGIN
h := FLayer;
WHILE h <> NIL DO BEGIN
GetLayerElevation(h, baseElev, thickness);
thickness := thickness / (25.4 / GetPrefReal(152)); { convert from mm to current units }
AlrtDialog(Concat('layer name: ', GetLName(h), ', baseElev: ', baseElev, ', thickness: ', thickness));
h := NextLayer(h);
END;
END;
RUN(Example);def Example():
h = vs.FLayer()
while h != None:
baseElev, thickness = vs.GetLayerElevation(h)
thickness = thickness / (25.4 / vs.GetPrefReal(152)) #{ convert from mm to current units }
vs.AlrtDialog(vs.Concat('layer name: ', vs.GetLName(h), ', baseElev: ', baseElev, ', thickness: ', thickness))
h = vs.NextLayer(h)
Example()VS Functions: SetLayerElevation
Availability: from VectorWorks10.0