VS:GetEnabledModules/ja

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

Description

現在利用可能なプロダクトモジュールの組み合わせを返します。

この関数は利用可能なプロダクトモジュールのビットを含んだLONGINT値を返します。モジュールが利用可能な場合は、相当するビットを1に設定されます。モジュールが利用不可能な場合は、相当するビットを0に設定されます。上記の表はこの関数の結果を解釈するために使用するセレクタです。モジュールが利用可能かを調べるために、セレクタと返された値とでAND計算をします。下記の使用例をご参照ください。

FUNCTION GetEnabledModules : LONGINT;

def vs.GetEnabledModules():
    return LONGINT

Return Value

利用可能なプロダクトモジュールのビットを含んだLONGINT値を返します。

Example

PROCEDURE testModules;

{----------------------------------------------------------}
FUNCTION bittest(value, mask :LONGINT) :BOOLEAN; 
VAR 
	bit :INTEGER; 
BEGIN 
	bittest := FALSE; 
	bit := 31;    { 2 ^ 31 is high order bit of a LONGINT argument. }
	WHILE ((bit > -1) & (bittest = false)) DO BEGIN 
		IF value >= (2 ^ bit) THEN BEGIN 
			value := value - (2 ^ bit); 
			IF (2 ^ bit) = mask THEN bittest := TRUE; 
		END; 
		bit := bit - 1; 
	END; 
END; 


{----------------------------------------------------------}
FUNCTION IsModuleEnabled(whichModule :LONGINT) :BOOLEAN; 
VAR 
	enabledModules :LONGINT; 
BEGIN 
	enabledModules := GetEnabledModules; 
	IsModuleEnabled := bittest(enabledModules, whichModule)
END; 


BEGIN
	IF IsModuleEnabled(4) & IsModuleEnabled(1)  THEN BEGIN
		{ Landmark and Renderworks are both enabled. } 
		{ ... }
	END;
END;
RUN(testModules);

Version

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

See Also

関連関数:

VS:DisableModules

関連関数: [[VS:DisableModules]]