VS:WallTo/ja

From Vectorworks Developer
Jump to: navigation, search

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


Description

現在のペン位置から指定した座標まで壁を作成します。
PROCEDURE WallTo(
p  :REAL);
def vs.WallTo(p):
    return None

Parameters

p REAL 壁の終点の座標

Example

PROCEDURE Example;
VAR
	x1, y1, x2, y2 :REAL;
	resourceID :LONGINT;
	wallStyleCnt :INTEGER;
	wallStyleName :STRING;
	wallStyleHand :HANDLE;
BEGIN
	resourceID := BuildResourceList(127, 113, '', wallStyleCnt);
	IF wallStyleCnt > 0 THEN BEGIN
		wallStyleName := GetNameFromResourceList(resourceID, 1);
		AlrtDialog(wallStyleName);
		wallStyleHand := ImportResourceToCurrentFile(resourceID, 1);
		SetWallPrefStyle(wallStyleName);
	END ELSE BEGIN
		SetWallWidth(3.5");
	END;
	GetPt(x1, y1);
	GetPtL(x1, y1, x2, y2);
	MoveTo(x1, y1);
	WallTo(x2, y2);
END;
RUN(Example);

Version

利用可能バージョン: MiniCAD4.0
Personal tools
NamespacesFFFF

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox
In other languages