Summary: Demonstrates how to match text object properties

One thing that is necessary for Rhino in 2-D drafting is the ability to match text properties, such as font, height, bold, and italics. Is is possible to write a script to do this?

Sure is. See the following:

 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' MatchText.rvb -- July 2009
 ' If this code works, it was written by Dale Fugier.
 ' If not, I don't know who wrote it.
 ' Works with Rhino 4.0 and 5.0
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 Option Explicit
 
 Sub MatchText()
 
   Dim objects, source, match, items, values, i
   Dim font, height, style
 
   objects = Rhino.GetObjects("Select text objects to modify", 512,, True)
   If IsNull(objects) Then Exit Sub
 
   source = Rhino.GetObject("Select source object", 512)
   If IsNull(source) Then Exit Sub
 
   items = Array("Font", "Height", "Style")
   values = Array(True, True, True)
   match = Rhino.CheckListBox(items, values, "Properties to match:", "Match Text")
   If IsNull(match) Then Exit Sub
 
   font = Rhino.TextObjectFont(source)
   height = Rhino.TextObjectHeight(source)
   style = Rhino.TextObjectStyle(source)
 
   Call Rhino.EnableRedraw(False)
 
   For i = 0 To UBound(objects)
     If match(0) = True Then Call Rhino.TextObjectFont(objects(i), font)
     If match(1) = True Then Call Rhino.TextObjectHeight(objects(i), height)
     If match(2) = True Then Call Rhino.TextObjectStyle(objects(i), style)
   Next
 
   Call Rhino.EnableRedraw(True)
 
 End Sub
 
 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Rhino.AddStartupScript Rhino.LastLoadedScriptFile
 Rhino.AddAlias "MatchText", "_NoEcho _-RunScript (MatchText)"