VS:SetCustomObjectPath/ja

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

Description

ハンドルで指定したプラグインオブジェクトのパス図形を設定します。

FUNCTION SetCustomObjectPath(
               objectHand   :HANDLE;
               path         :HANDLE) : BOOLEAN;

def vs.SetCustomObjectPath(objectHand, path):
    return BOOLEAN

Parameters

objectHand		HANDLE		プラグインオブジェクトのハンドル
path		HANDLE		パス図形（曲線 or NURBS）のハンドル

Return Value

設定できた場合はTRUEを返します。

Example

PROCEDURE Example;
VAR
	dialog1  :INTEGER;
	objName  :STRING;
	objHand  :HANDLE;
	pathHand :HANDLE;
	boo      :BOOLEAN;
	int      :INTEGER;

PROCEDURE dialog1_Setup;
BEGIN
	dialog1 := CreateLayout('Pick Object to Create', FALSE, 'OK', 'Cancel');
	CreatePulldownMenu(dialog1, 4, 28);
	SetFirstLayoutItem(dialog1, 4);
END;

PROCEDURE dialog1_Handler(VAR item :LONGINT; data :LONGINT);
BEGIN
	CASE item OF
		SetupDialogC:
			BEGIN
				InsertChoice(4, 0, 'Ceiling Grid');
				InsertChoice(4, 1, 'Space');
				InsertChoice(4, 2, 'Piping Run');
			END;
		1: GetSelChoice(4, 0, int, objName);
	END;
END;

BEGIN
	pathHand := FSActLayer;
	dialog1_Setup;
	IF RunLayoutDialog(dialog1, dialog1_Handler) = 1 THEN BEGIN
		objHand := CreateCustomObjectN(objName, 0, 0, 0, FALSE);
		boo := SetCustomObjectPath(objHand, pathHand);
	END;
END;
RUN(Example);

Version

利用可能バージョン: VectorWorks8.5

See Also

関連関数:

VS:GetCustomObjectPath

関連関数: [[VS:GetCustomObjectPath]]