From The Foundry MODO SDK wiki
Revision as of 23:19, 28 February 2012 by Jangell (Talk | contribs) (Created page with "The first scripting language supported by ''modo'' is Perl. Perl is commonly found on Unix variants, is available for every platform, and is a standard for automating tas...")

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

The first scripting language supported by modo is Perl. Perl is commonly found on Unix variants, is available for every platform, and is a standard for automating tasks and writing quick utilities. Due to this ubiquitous presence, there is a wealth of example Perl code, tutorials and documentation available online and in print. In modo, Perl is used for operations that are more complex than can be accomplished with simple macros, allowing for branching, loops, functions and other features.

As with Macros, Perl uses commands to interact with modo, but unlike macros, Perl can be used to query those commands for their values and usefully interpret the results. Because it can query commands, Perl can make excellent use of the ScriptQuery system provided by the query command to obtain lower-level information from the various subsystems, including extracting specific mesh information that is not otherwise accessible through commands themselves.

The official Perl documentation can be found at the Perl website.

Perl Header

All perl scripts must have the word perl in the first line so that it can be recognized as a Perl script by the system.

 # perl

modo Extensions to Perl

A number of new functions have been added to Perl in modo. The most common batch include lx, lxq, lxqt, lxeval, lxok, lxres, lxout and lxtrace. Errors are reported to the Event Log Viewport, so it’s useful to have one open while developing Perl scripts.


The lx function is used to execute commands using the standard modo command syntax. This returns 1 if the command executed successfully, and nothing if it failed for any reason. lxres can be used to get more specific information about why a command failed. Also be sure to check the Event Log viewport.

 # perl
 my $ok = lx( "tool.set prim.cube on" ); 
     # handle errors here


The lxq function queries a command using the standard question mark syntax, returning an array of values. foreach can be used to easily walk the array. If you are only interested in the first value, you can use a scalar value and Perl will automatically handle it. If there was an error querying the command, nothing is returned.

 # perl
 # Get an array of names, one for each selected material
 my @selMaterialNames = lxq( " ?" );
 foreach my $matName (@selMaterialNames) {
     # Process the material name
 # Get the maximum number of undos as a single value
 my $maxUndos = lxq( "pref.value application.maxUndo ?"


The lxqt function queries ToggleValue commands like tool.set, returning a simple true or false value. lxq can be used to get the current actual value of a ToggleValue command, which can be of any datatype and can be one of a number of possible values depending on the command. lxqt can be used to more easily see if the commands is "on" or not. This example checks to see if the Cube tool is currently active.

 # perl
 my @isActive = lxqt( "tool.set prim.cube on" );


The lxeval function is a hyrid of lx and lxq. If the command string contains a question mark, the command will be queried and returned; otherwise, the command is executed and success or failure is returned.

 # perl
 # Execute
 lxeval( "user.defNew MyValue" );
 lxeval( "user.value MyValue {Test Value}" );
 # Query
 my $value = lxeval( "user.value MyValue ?" );

lxok() and lxres()

The results of lx, lxq, lxqt and lxeval can be tested with lxok and lxres. lxok returns 1 if the last call was successful and 0 if not. lxres returns the LxResult code, which provides more specific details about result of the commands execution. A list of standard result codes and their meanings can be found in the error codes message table, resource:msglxresult.cfg

 # perl
 my $isOK = lxok;
 my $result = lxres;


The lxtrace function toggles tracing on and off. When tracing is enabled, all commands executed or queried by lx, lxq and the other execute/query functions are output to the Scripting sub-system of the Event Log viewport. This can also be used to see if tracing is on or not by not passing in an argument.

 # perl
 my $tracing = lxtrace;
 lxtrace( 1 );              # Turn on tracing


The lxout function can be used to output debugging information to the Scripting sub-system of the Event Log viewport, and can be any string.

 # perl
 lxout( "My Debug Output" );

lxoption() and lxsetOption()

The lxoption and lxsetOption functions allow the script to set properties that determine how the other lx functions operate. Each option is defined by a tag string and an associated value, and the options can be changed at any time.

Currently there is only one tag defined, queryAnglesAs, which determines if angles queried through lxq are returned in radians or degrees. This defaults to degrees to maintain backwards compatibility with previous versions of modo. While this behavior is helpful for new scripters, it is generally more useful to work in radians. The value can be set to either radians or degrees, and once set all future queries on angles through lxq will return those units. The following shows how to change this option and query its current state.

 # perl
 lxsetOption( "queryAnglesAs", "radians" );
 lxout( lxoption( "queryAnglesAs" ) ) ;


Like macros, Perl scripts support arguments. These are provided in the same way that command line arguments are provided to an external Perl script, through the @ARGV variable.

Progress Monitors

Progress bars, or monitors, are also supported in Perl through the lxmonInit and lxmonStep functions.


To initialize the progress bar, call lxmonInit with the total number of steps in the bar. lxmonInit should be called only once per script.

 # perl
 lxmonInit( 20 );


To step the progress bar, use lxmonStep. By default, this increments the bar one step, but you can also increase the bar by an arbitrary number steps.

 # perl
 lxmonInit( 20 );
 lmonStep;        #Increment by one
 lxmonStep( 2 );  #Step the progress bar by two

The return value of lxmonStep is used by the script to determine if the hit the "abort" button in the progress dialog. If lxmonStep returns false, the script should abort. The following is a common test for a user abort.

 # perl
 #Initialize the monitor
 lxmonInit( 20 );
 my $count;
 for ($count = 10; $count >= 1; $count--) {
    # Do work here
    # Step the monitor and check for an abort
    if( !lxmonStep ) {
        # Do clean-up here
        die( "User Abort" );

Monitor Example

This simple script demonstrates progress bars through the use of monitors. It busy loops so the progress bar will open. If the script executes fast enough, the progress bar will not appear.

 #! perl
 my ($i, $j);
 # Initialize the monitor with 20 steps
 lxmonInit( 200 );
 # Loop through our 200 steps 
     # Do work (i.e.: busy loop )
     for( $j=0; $j < 1000000; $j++ ) {
     # Step the monitor and check for an abort
     if( !lxmonstep ) {
         # Clean up and exit
         die( "User Abort" );