Site Tools


Differences

This shows you the differences between two versions of the page.

Link to this comparison view

developer:scriptsamples:sellinetype [2015/09/14] (current)
Line 1: Line 1:
 +====== Selecting Objects by Linetype ======
 +> **Developer:​** //​[[developer:​rhinoscript|RhinoScript]]//​
 +> **Summary:​** //​Demonstrates how to select objects by linetype using RhinoScript.//​
 +
 +=====Question=====
 +How can I select objects by linetype using RhinoScript?​
 +
 +=====Example=====
 +The following example code demonstrates how to select objects by linetype. In this example all objects that are assigned the specified linetype are selected. But, it is not difficult to select only certain types of objects (e.g. curves).
 +
 +<code vb>
 + Sub SelLinetype
 +
 +   Dim strLinetype
 +   ​strLineType = Rhino.GetString("​Object linetype name to select"​)
 +   If Not IsString(strLinetype) Then Exit Sub
 +   If Not Rhino.IsLinetype(strLinetype) Then Exit Sub
 +
 +   Dim arrObjects, strObject
 +
 +   '​ If you want to filter on all visible objects,
 +   '​ use the following line of code.
 +   ​arrObjects = Rhino.NormalObjects
 +
 +   '​ Or, if you want to filter on just curve objects
 +   '​ use the following line of code.
 +   '​ arrObjects = Rhino.ObjectsByType(4)
 +
 +   If IsArray(arrObjects) Then
 +     ​Rhino.EnableRedraw False
 +     For Each strObject In arrObjects
 +       If StrComp(Rhino.ObjectLinetype(x),​ strLinetype,​ 1) = 0 Then
 +         ​Rhino.SelectObject(strObject)
 +       End If
 +     Next
 +     ​Rhino.EnableRedraw True
 +   End If
 +
 + End Sub
 +
 + ​Function IsString(ByVal str)
 +   ​IsString = False
 +   If VarType(str) = vbString Then IsString = True
 + End Function  ​
 +
 +</​code>​
 +
 +\\
 +
 +{{tag>​Developer RhinoScript}}
  
developer/scriptsamples/sellinetype.txt ยท Last modified: 2015/09/14 (external edit)