====== Querying At Dots ======

The following short example demonstrates sampling a Scan&Solve solution at the location of the text dots in a Rhino document and writing the values to a text file.

  * setup (lines 6-22)
  * collect all dots in the document (lines 25-26)
  * iterate over dots (lines 33-44)

For conciseness, this example contains minimal error checking.

<code>
Option Explicit
'Query solution values at the location of text dots

Call Query_At_Dots()
Sub Query_At_Dots()
        'Load the SnSScript plug-in
        Dim objSnSPlugin
        Set objSnSPlugin = Rhino.GetPluginObject("SnSScript")
        
        'The solution component to query
        Dim strComponent : strComponent = "VONM"
        
        'Prompt for the solid with solution data attached
        Dim strSolidObject : strSolidObject = Rhino.GetObject("Select a solid")

        'Prompt for the output filename
        Dim objFSO, objFile, strFileLocation
        strFileLocation = Rhino.SaveFileName("Output Filename", "*.txt", "", "RS_Output.txt", "txt")
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If Not isNull(strFileLocation) Then
                Set objFile = objFSO.CreateTextFile(strFileLocation, True)
        End If

        'Collect the dots from the document
        Dim arrDots
        arrDots = Rhino.ObjectsByType(8192)
        If IsNull(arrDots) Then
                Rhino.Print "There are no TextDot objects in this file."
                Exit Sub
        Else
                Dim strDot, strText, arrPoint, dblValue
                'Iterate over the dots
                For Each strDot In arrDots
                        strText = Rhino.TextDotText(strDot)
                        arrPoint = Rhino.TextDotPoint(strDot)
                        'Query the solution value at each dot location
                        dblValue = objSnSPlugin.QuerySolutionValue(strSolidObject, strComponent, arrPoint)
                        'Write out the dot text and the solution value
                        If Not isNull(objFile) Then
                                objFile.WriteLine strComponent & " at dot " & strText & " is " & dblValue
                        Else
                                Rhino.Print strComponent & " at dot " & strText & " is " & dblValue
                        End If
                Next
        End If
End Sub
</code>

^Line #^Description|
|1|Only scripts with Option Explicit specified can be debugged in the RhinoScript editor (Monkey).|
|8|Obtain a reference to the SnSScript plug-in, exit if an error occurs.|
|11|Specify the solution component to query. See this [[querying|table]] for valid component tags.|
|14|Prompt the user to select a solid from the Rhino document. The solid is identified by its GUID stored in strObject.|
|18|Prompt the user for an output filename.|
|19-22|Create the text file object.|
|25-26|Collect the dots from the document.|
|33-44|Iterate over the dots.|
|34-35|Extract the dot text and position.|
|37|Query the solution value at the dot position.|
|39-43|Write the value to a file or to the command line.|

The solid below has a solution computed on it as well as a collection of text dots located on its surface.

{{:wiki:sns:snsscript:z18.png?400|}}

Running the example RhinoScript will generate a text file that reports the solution values at each text dot location. Opening the output text file in Notepad, the value of the solution at each dot is clearly seen:

{{:wiki:sns:snsscript:z19.png?400|}}