VS:GetLayerElevation/ja

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

ハンドルで指定したレイヤの高さ（Z）と厚み（ΔZ）を返します。

PROCEDURE GetLayerElevation(
               h               :HANDLE;
               VAR baseElev    :REAL;
               VAR thickness   :REAL);

def vs.GetLayerElevation(h):
    return (baseElev, thickness)

Parameters

h		HANDLE		レイヤのハンドル
baseElev		REAL		高さ（Z）
thickness		REAL		厚み（ΔZ）

Example

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));
		AlrtDialog(Concat('layer name: ', GetLName(h), ', baseElev: ', baseElev, ', thickness: ', thickness));
		h := NextLayer(h);
	END;
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks10.0

See Also

関連関数:

VS:SetLayerElevation

関連関数: [[VS:SetLayerElevation]]