VS:SetCustomObjectPath/ja

From Vectorworks Developer
Jump to: navigation, search

.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]]
Personal tools
NamespacesFFFF

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox
In other languages