VS:GetVersion/ja
Jump to navigation
Jump to search
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
VectorWorksのバージョンとOSの種類を返します。
PROCEDURE GetVersion(
VAR major :INTEGER;
VAR minor :INTEGER;
VAR maintenance :INTEGER;
VAR platform :INTEGER);
def vs.GetVersion(): return (major, minor, maintenance, platform)
Parameters
major INTEGER バージョンの整数部 minor INTEGER バージョンの小数部 maintenance INTEGER OSの種類 platform INTEGER 1 : Macintosh / 2 : Windows
Example
PROCEDURE Example; VAR osMajor, osMinor, osIncr :LONGINT; appMajor, appMinor, appMaint, platform :INTEGER; platformStr :STRING; BEGIN GetVersion(appMajor, appMinor, appMaint, platform); GetOSVersion(osMajor, osMinor, osIncr); IF (platform = 1) THEN platformStr := 'MacOS' ELSE platformStr := 'Windows'; Message('Vectorworks ', appMajor, '.', appMinor, '.', appMaint, ' running on ', platformStr, ' ', osMajor, '.', osMinor, '.', osIncr); END; RUN(Example);
Version
利用可能バージョン: MiniCAD7.0