VS:SetRoofAttributes/ja

From Vectorworks Developer
Jump to: navigation, search

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


Description

ハンドルで指定した屋根を設定します。
PROCEDURE SetRoofAttributes(
roofObject  :HANDLE;
genGableWall  :BOOLEAN;
bearingInsetDistance  :REAL)Coordinate); roofThickDistance:REAL (Coordinate); miterType:INTEGER; vertMiterDistance:REAL (Coordinate));
def vs.SetRoofAttributes(roofObject, genGableWall, bearingInsetDistance, roofThickDistance, miterType, vertMiterDistance):
    return None

Parameters

roofObject HANDLE 屋根のハンドル
genGableWall BOOLEAN 切り妻の有無
bearingInsetDistance REAL (Coordinate) 壁からの距離
roofThickDistance REAL (Coordinate) 屋根の厚み
miterType INTEGER 切り妻の種類
vertMiterDistance REAL (Coordinate) 切り妻の高さ

Example

PROCEDURE Example;
VAR
	thickness :REAL;
	str	:STRING;

PROCEDURE SetIt(h :HANDLE);
BEGIN
	IF GetObjectVariableInt(h, 172) = 1 THEN 
		SetObjectVariableReal(h, 170, thickness * 25.4);
END;

PROCEDURE FindRoofFaces(h :HANDLE);
VAR
	temp_h :HANDLE;
	roofObject :HANDLE; 
	genGableWall :BOOLEAN; 
	bearingInsetDistance, roofThickDistance :REAL; 
	miterType :INTEGER; 
	vertMiterDistance :REAL;
BEGIN
	IF GetType(h) = 71 THEN SetIt(h) ELSE
	IF GetRoofAttributes(h, genGableWall, bearingInsetDistance, roofThickDistance, miterType, vertMiterDistance) THEN
		SetRoofAttributes(h, genGableWall, bearingInsetDistance, thickness, miterType, vertMiterDistance);
END;

BEGIN
	thickness := RealDialog('Enter desired thickness', '10');
	str := Concat('((T=71) | (T=83)) & (L=''', GetLName(ActLayer), ''')');
	ForEachObject(FindRoofFaces, str);
END;
RUN(Example);

Version

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

Variants
Actions
Advanced Search
See Also
Navigation
Toolbox
In other languages