VS:GetVersion/ja

.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