====== Short Example ======

The following is a short example demonstrating a complete Scan&Solve stress simulation using calls to SnSScript from RhinoScript. The example includes:

  * simulation setup (lines 13-25)
  * simulation computation (line 27)
  * visualization (line 29)

For conciseness, this example contains minimal error checking.

<code>
Option Explicit
Call Main()
Sub Main()
        Dim objSnSPlugIn , strObject
        On Error Resume Next

        Set objSnSPlugIn = Rhino.GetPluginObject("SnSScript")
        If Err Then 
                MsgBox Err.Description
                Exit Sub
        End If

        strObject = Rhino.GetObject("Select a solid")
        'reset the SnS data attached to the object
        objSnSPlugIn.Reset strObject
        'set the material for simulation
        objSnSPlugIn.SetMaterial strObject, "Acrylic, Cast"
        'add a face restraint
        objSnSPlugIn.AddFaceRestraint strObject, "Restraint Face 1", 1, "xyz"
        'add a vector load on a face
        Dim vecLoad(3)
        vecLoad(0) = 10
        vecLoad(1) = 20
        vecLoad(2) = 30
        objSnSPlugIn.AddFaceVectorLoad strObject, "Vector Load Face 2", 2, vecLoad, True
        'compute the stress solution
        objSnSPlugIn.Solve strObject, 10000
        'turn on display of solution
        objSnSPlugIn.SolutionDisplayEnable strObject, "DSPT", 100
End Sub
</code>

^Line #^Description|
|1|Only scripts with Option Explicit specified can be debugged in the RhinoScript editor (Monkey).|
|4|Declare variables before use.|
|7-11|Obtain a reference to the SnSScript plug-in, exit if an error occurs.|
|13|Prompt the user to select a solid from the Rhino document. The solid is identified by its GUID stored in strObject.|
|15|Clear the Scan&Solve data attached to the object.|
|17|Set the material for the solid, "Acrylic, Cast" in this case.|
|19|Add a restraint named "Restraint Face 1" to face 1. Restrain in x, y, and z.|
|21-24|Declare and define an array to use as vector load.|
|25|Add a vector load named "Vector Load Face 2" to face 2. True indicates load is applied per face.|
|27|Compute the solution using 10000 elements.|
|29|Display the total displacement "DSPT" and magnify the deflection by 100. To disable the display of the solution, call objSnSPlugIn.SolutionDisplayDisable strObject.|