VS:PrimaryUnits/ja

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

Description

主単位を設定します。

PROCEDURE PrimaryUnits(
            style      :INTEGER;
            prec       :LONGINT;
            dimPrec    :LONGINT;
            format     :INTEGER;
            angPrec    :INTEGER;
            showMark   :BOOLEAN;
            dispFrac   :BOOLEAN);

def vs.PrimaryUnits(style, prec, dimPrec, format, angPrec, showMark, dispFrac):
    return None

Parameters

style		INTEGER		単位の種類
prec		LONGINT		表示精度
dimPrec		LONGINT		寸法線の精度
format		INTEGER		小数表記の種類
angPrec		INTEGER		角度精度
showMark		BOOLEAN		単位表示
dispFrac		BOOLEAN		分数表示

Example

PROCEDURE Example;
VAR
	style :INTEGER;
	prec, dimPrec :LONGINT;
	format, angPrec :INTEGER;
	showMark, dispFrac :BOOLEAN;
	outStr :STRING;
BEGIN
	outStr := '';
	GetPrimaryUnitInfo(style, prec, dimPrec, format, angPrec, showMark, dispFrac);
	FOR style := 0 to 16 DO BEGIN
		PrimaryUnits(style, prec, dimPrec, format, angPrec, showMark, dispFrac);
		outStr := Concat(outStr, Chr(13), style, ': ', GetPrefReal(152));
	END;
	AlrtDialog(outStr);
END;
RUN(Example);

Version

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