Difference between revisions of "VS:VM SelectSimilar"

From VectorMEP
Jump to navigation Jump to search
Line 13: Line 13:
 
== Example ==
 
== Example ==
 
<syntaxhighlight lang="pascal">
 
<syntaxhighlight lang="pascal">
PROCEDURE MoveToLayer;
+
PROCEDURE SelectSimilar;
VAR
 
    h : HANDLE;
 
 
BEGIN
 
BEGIN
    h := NIL;
+
     IF VerifyLibraryRoutine('VM_SelectSimilar') THEN
    {h := GetObject('LayerName'); in case of predefined layer}
 
     IF VerifyLibraryRoutine('VM_MoveToLayer') THEN
 
 
BEGIN
 
BEGIN
IF (GetType(h) = 31) OR (h = NIL) THEN VM_MoveToLayer(h);
+
VM_MoveToLayer(h);
 
         End
 
         End
 
     ELSE
 
     ELSE
         Message('The routine VM_MoveToLayer is not available.');
+
         Message('The routine VM_SelectSimilar is not available.');
 
END;
 
END;
RUN(MoveToLayer);
+
RUN(SelectSimilar);
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
 
== Version ==
 
== Version ==
 
Availability: from VectorMEP 2021
 
Availability: from VectorMEP 2021
 
[[Category:VS Function Reference:Object Editing]]
 
[[Category:VS Function Reference:Object Editing]]
 
__NOTOC__
 
__NOTOC__

Revision as of 11:26, 16 November 2020

Description

Procedure VM_SelectSimilar enables you to select similar objects based on your active selection. The purpose is to be able to quickly select objects of the same type.

PROCEDURE VM_SelectSimilar();

Remarks

All objects should be compatible. In case of selecting an object based on a type definition, similar type instances will become selected.

Example

PROCEDURE SelectSimilar;
BEGIN
    IF VerifyLibraryRoutine('VM_SelectSimilar') THEN
		BEGIN
VM_MoveToLayer(h);
        End
    ELSE
        Message('The routine VM_SelectSimilar is not available.');
END;
RUN(SelectSimilar);

Version

Availability: from VectorMEP 2021