VS:AddSymToWall

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

Description

Procedure AddSymToWall inserts a specified symbol into the referenced wall.

PROCEDURE AddSymToWall(
            wallHd           :HANDLE;
            offDistance      :REAL;
            heightDistance   :REAL;
            flip             :BOOLEAN;
            right            :BOOLEAN;
            symbolName       :STRING);

def vs.AddSymToWall(wallHd, offDistance, heightDistance, flip, right, symbolName):
    return None

Parameters

wallHd		HANDLE		Handle to wall.
offDistance		REAL		Offset distance from wall start.
heightDistance		REAL		Elevation of symbol.
flip		BOOLEAN		Flipped status of symbol.
right		BOOLEAN		Left-right orientation of symbol.
symbolName		STRING		Name of symbol to insert in wall.

Remarks

See AddSymToWallEdge

[sd 8/13/98]

Example

VectorScript

PROCEDURE Example;
VAR
x1, y1, x2, y2 :REAL;
resourceID :LONGINT;
h : HANDLE;
BEGIN
SetWallWidth(3.5");
GetPt(x1, y1);
GetPtL(x1, y1, x2, y2);
MoveTo(x1, y1);
WallTo(x2, y2);
h := LActLayer;
AddSymToWall(h,3',0',FALSE,FALSE,'Door-1');
AddWallBottomPeak(h,24'0",2'6");
END;
RUN(Example);

Python

def MyWallto(pt):
	vs.WallTo(pt[0], pt[1])
def MyMoveto(pt):
	vs.MoveTo(pt[0], pt[1])
def Example():
	vs.SetWallWidth(3.5)
	vs.GetPt( MyMoveto )
	vs.GetPt( MyWallto )	
	h = vs.LActLayer()
	vs.AddSymToWall(h,3,0,False,False,'Door-1')
	vs.AddWallBottomPeak(h,24*12+0,2*12+6);
Example()

Version

Availability: from MiniCAD6.0

See Also

VS Functions:

VS:AddSymToWallEdge

VS Functions: [[VS:AddSymToWallEdge]]