Difference between revisions of "VS:VM SelectSimilar"
Jump to navigation
Jump to search
(Created page with "e") |
m |
||
| Line 1: | Line 1: | ||
| − | + | {{DISPLAYTITLE:VS:VM_MoveToLayer}} | |
| + | == Description == | ||
| + | Procedure VM_MoveToLayer moves the selected objects to a layer.<syntaxhighlight lang="pascal"> | ||
| + | PROCEDURE VM_MoveToLayer( | ||
| + | h :Handle); | ||
| + | </syntaxhighlight> | ||
| + | == Parameters == | ||
| + | <dl><dd><table cellpadding="2" border="0"><tr> <td valign="top">h</td> <td></td> <td valign="top">HANDLE</td> <td> </td> <td valign="top">Handle to layer.</td></tr></table></dd></dl> | ||
| + | |||
| + | == Remarks == | ||
| + | When nill is passed as Layer handle, a dialog is presented with a list of all Layers to choose from. | ||
| + | |||
| + | == Example == | ||
| + | <syntaxhighlight lang="pascal"> | ||
| + | PROCEDURE MoveToLayer; | ||
| + | VAR | ||
| + | h : HANDLE; | ||
| + | BEGIN | ||
| + | h := NIL; | ||
| + | {h := GetObject('LayerName'); in case of predefined layer} | ||
| + | IF VerifyLibraryRoutine('VM_MoveToLayer') THEN | ||
| + | BEGIN | ||
| + | IF (GetType(h) = 31) OR (h = NIL) THEN VM_MoveToLayer(h); | ||
| + | End | ||
| + | ELSE | ||
| + | Message('The routine VM_MoveToLayer is not available.'); | ||
| + | END; | ||
| + | RUN(MoveToLayer); | ||
| + | </syntaxhighlight> | ||
| + | == Version == | ||
| + | Availability: from VectorMEP 2021 | ||
| + | [[Category:VS Function Reference:Object Editing]] | ||
| + | __NOTOC__ | ||
Revision as of 09:31, 16 November 2020
Description
Procedure VM_MoveToLayer moves the selected objects to a layer.
PROCEDURE VM_MoveToLayer(
h :Handle);
Parameters
h HANDLE Handle to layer.
Remarks
When nill is passed as Layer handle, a dialog is presented with a list of all Layers to choose from.
Example
PROCEDURE MoveToLayer;
VAR
h : HANDLE;
BEGIN
h := NIL;
{h := GetObject('LayerName'); in case of predefined layer}
IF VerifyLibraryRoutine('VM_MoveToLayer') THEN
BEGIN
IF (GetType(h) = 31) OR (h = NIL) THEN VM_MoveToLayer(h);
End
ELSE
Message('The routine VM_MoveToLayer is not available.');
END;
RUN(MoveToLayer);
Version
Availability: from VectorMEP 2021