VS:GetUnits/ja

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

Description

現在の単位設定の情報を返します。

PROCEDURE GetUnits(
          VAR fraction     :LONGINT;
          VAR display      :LONGINT;
          VAR format       :INTEGER;
          VAR upi          :REAL;
          VAR name         :STRING;
          VAR squareName   :STRING);

def vs.GetUnits():
    return (fraction, display, format, upi, name, squareName)

Parameters

fraction		LONGINT		おおよその WorldCoords の長さ。代わりにGetPrefReal(150)を使うこと。
display		LONGINT		表示精度
format		INTEGER		小数表記の種類
upi		REAL		一インチの長さ（unit per inch）
name		STRING		単位記号
squareName		STRING		単位記号（平方）

Example

PROCEDURE Example;
VAR 
	fraction   :LONGINT; 
	display    :LONGINT; 
	format     :INTEGER; 
	upi        :REAL; 
	name       :STRING;
	squareName :STRING;
BEGIN
	GetUnits(fraction, display, format, upi, name, squareName);
	Message(fraction, ' ', display, ' ', format, ' ', upi, ' ', name, ' ', squareName);
END;
RUN(Example);

Version

Availability: from MiniCAD