VS:SelectObj/ja

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

Description

検索条件に合致したすべての図形を選択します。

PROCEDURE SelectObj(
           c   :CRITERIA);

def vs.SelectObj(c):
    return None

Parameters

c

CRITERIA

検索条件

Example

PROCEDURE Example;
VAR
	red, green, blue, color :LONGINT;
	criteria :STRING;
BEGIN
	red := 65535;
	green := 0;
	blue := 0;
	RGBToColorIndex(red, green, blue, color);
	Rect(0, 0, 1, 1);
	SetPenFore(LNewObj, color);
	DSelectAll;
	criteria := Concat('(INSYMBOL & INVIEWPORT & (PF=', color, '))');
	SelectObj(criteria);
	Message(criteria);
END;
RUN(Example);

Version

利用可能バージョン: MiniCAD