ForEachObjectInLayer

ForEachObjectInLayer　　　カテゴリ　ユーティリティ(Utility)

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

Option	Selector	Description
All objects 全ての図形	0
Visible Objects only 可視図形のみ	1
Selected Objects only 選択図形のみ	2
Unlocked objects only ロック以外の図形	4

Traversal
Options

Option	Selector	Description
Traverse Shallow	0
Traverse Groups	1	Traverse inside groupsグループ内部での動作
Traverse Deep	2	Traverse all containers (walls, extrudes, sweeps, etc)

Layer Options

Option	Selector	Description
Current layer	0
All layers 全てのレイヤ	1
Visible layers 可視レイヤ内	2
Editable layers 編集レイヤ内	4
Snappable layers スナップレイヤ内	8

説明

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

Parameters:

   actionFunc 	Subroutine which performs operation on found objects. 	関数型サブルーチンの名前
   objOptions 	Object selection option index. 	図形選択オプション番号
   travOptions 	Search options index. 	検索オプション番号
   layerOptions 	Layer selection option index. 	レイヤ選択オプション番号

変数名	型	変数の説明
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);

最新の40件

ForEachObjectInLayer カテゴリ ユーティリティ(Utility)

ForEachObjectInLayer　　　カテゴリ　ユーティリティ(Utility)