ForEachObjectInLayer の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• ForEachObjectInLayer へ行く。
• ForEachObjectInLayer の差分を削除

**ForEachObjectInLayer [#r12122d5]
**ForEachObjectInLayer　　　カテゴリ　ユーティリティ(Utility)[#r12122d5]
Declaration:

　PROCEDURE   ForEachObjectInLayer    ( actionFunc 	:PROCEDURE;
　　　　　　　　　　　　　　　　　objOptions 	:INTEGER;
　　　　　　　　　　　　　　　　　travOptions 	:INTEGER;
　　　　　　　　　　　　　　　　　layerOptions 	:INTEGER
　　　　　　　　　　　　　　　　　) ;

Description:
 Traverses through all objects according to specified search optionsand applies the specified action to each object.
 The 'actionFunc' procedure should return false to continue with next object,or return true to stop the traversal.
 
 Table - ForEachObjectInLayer Selectors

Object Options
|BGCOLOR(white):100|BGCOLOR(white):100|BGCOLOR(white):200|c
|Option|Selector|Description|
|All objects&br;全ての図形|0||
|Visible Objects only&br;可視図形のみ|1||
|Selected Objects only&br;選択図形のみ|2||
|Unlocked objects only&br;ロック以外の図形|4||

Traversal
Options
|BGCOLOR(white):100|BGCOLOR(white):100|BGCOLOR(white):200|c
|Option|Selector|Description|
|Traverse Shallow|0||
|Traverse Groups|1|Traverse inside groupsグループ内部での動作|
|Traverse Deep|2|Traverse all containers (walls, extrudes, sweeps, etc)|

Layer Options
|BGCOLOR(white):100|BGCOLOR(white):100|BGCOLOR(white):200|c
|Option|Selector|Description|
|Current layer|0||
|All layers&br;全てのレイヤ|1||
|Visible layers&br;可視レイヤ内|2||
|Editable layers&br;編集レイヤ内|4||
|Snappable layers&br;スナップレイヤ内|8||

説明

    指定した条件に合致した図形を、指定した手続きで処理します。

Parameters:

    actionFunc 	Subroutine which performs operation on found objects. 	関数型サブルーチンの名前
    objOptions 	Object selection option index. 	図形選択オプション番号
    travOptions 	Search options index. 	検索オプション番号
    layerOptions 	Layer selection option index. 	レイヤ選択オプション番号
|BGCOLOR(white):100|BGCOLOR(white):100|BGCOLOR(white):200|c
|変数名|型|変数の説明|
|actionFunc|PROCEDURE|関数型サブルーチンの名前|
|objOptions|INTEGER|図形選択オプション番号|
|travOptions|INTEGER|検索オプション番号|
|layerOptions|INTEGER|レイヤ選択オプション番号|
Example:

    PROCEDURE Example;
 
    FUNCTION MakeItRed(h :HANDLE) :BOOLEAN;
    VAR
    	r, g, b :LONGINT;
    BEGIN
    	ColorIndexToRGB(7, r, g, b);
    	SetFillBack(h, r, g, b);
    END;
    	
    BEGIN
    	ForEachObjectInLayer(MakeItRed, 2, 0, 4);
    END;
    RUN(Example);