Procedure GetZVals returns the Z (layer base elevation) and delta Z (layer thickness) values for the active layer.
PROCEDURE GetZVals(
VAR zVal : REAL;
VAR deltaZVal : REAL);def vs.GetZVals():
return (zVal, deltaZVal)| Name | Type | Description |
|---|---|---|
| zVal | REAL | Layer base elevation(above document ground plane). |
| deltaZVal | REAL | Layer thickness. |
Returns the Z and Delta Z values for the active layer.
[sd 8/14/98]
PROCEDURE GetLayerHeights(layerHandle :handle; var baseElev, thickness :REAL);
BEGIN
GetLayerElevation(layerHandle, baseElev, thickness);
baseElev := baseElev / (25.4 / GetPrefReal(152));
thickness := thickness / (25.4 / GetPrefReal(152));
END;{ set component subclass }
ChangeToClass(cWall_Finish);
GetZVals(LayerZ,deltaZ);
GetZVals (zVal, defaultDz);
IF GetWallWidth = 0 THEN
BEGIN
defaultThk := kDefaultThk * GetLScale (ActLayer);
SetWallWidth (defaultThk);
BEGIN
LScale := GetLScale(ActLayer);
GetZVals(zVal , deltaZVal) ;
END;zVal, deltaZVal = vs.GetZVals()
# Draw 2D gutter
if gutter != 0:
DrawGutter( r1, sweep2D, w, gutter, currPenSize )Availability: from MiniCAD5.0