VS:GetPrimaryUnitInfo/ja: Difference between revisions
Jump to navigation
Jump to search
m (1 revision) |
m (1 revision) |
(No difference)
|
Latest revision as of 14:32, 12 August 2013
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
現在設定されている主単位の情報を返します。
PROCEDURE GetPrimaryUnitInfo(
VAR style :INTEGER;
VAR prec :LONGINT;
VAR dimPrec :LONGINT;
VAR format :INTEGER;
VAR angPrec :INTEGER;
VAR showMark :BOOLEAN;
VAR dispFrac :BOOLEAN);
def vs.GetPrimaryUnitInfo(): return (style, prec, dimPrec, format, angPrec, showMark, dispFrac)
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; major, minor, maintenance, platform :INTEGER; BEGIN GetVersion(major, minor, maintenance, platform); GetPrimaryUnitInfo(style, prec, dimPrec, format, angPrec, showMark, dispFrac); CASE major of 8: Case style of 0: AlrtDialog('Custom'); 1: AlrtDialog('Old Style Feet/Inches'); 2: AlrtDialog('Millimeter'); 3: AlrtDialog('Centimeter'); 4: AlrtDialog('Inches'); 5: AlrtDialog('Meters'); 6: AlrtDialog('Feet/Inches'); 7: AlrtDialog('Feet'); END; 9..11: Case style of 0: AlrtDialog('Custom'); 1: AlrtDialog('Feet/Inches'); 2: AlrtDialog('Feet'); 3: AlrtDialog('Inches'); 4: AlrtDialog('Millimeters'); 5: AlrtDialog('Centimeters'); 6: AlrtDialog('Meters'); END; 12: Case style of 1: AlrtDialog('Feet and Inches'); 2: AlrtDialog('Inches'); 3: AlrtDialog('Feet'); 4: AlrtDialog('Yards'); 5: AlrtDialog('Miles'); 6: AlrtDialog('Microns'); 7: AlrtDialog('Millimeters'); 8: AlrtDialog('Centimeters'); 9: AlrtDialog('Meters'); 10: AlrtDialog('Kilometers'); 11: AlrtDialog('Degrees'); END; END; END; RUN(Example);
Version
See Also
関連関数:
関連関数:
[[VS:GetRoundingBase]]