VS:WallTo/ja
.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