Here’s the relevant part of it:
Rhino.Command "_Import X:\Engineering\RhinoScripts\PD-Title.3dm", False
If IsEmpty(RelProp) Then
RelProp = Rhino.AddText("RELEASE PROPERTIES:" & Chr(13) & "PM:" & Chr(13) & "Drafter:" & Chr(13) & "Job:" & Chr(13) & "Release:" & Chr(13) & "Material:" & Chr(13) & "Color:", Array(-455, y - 63, 0), 12, "ISOCPEUR", 0, 2)
Rhino.ObjectLayer Rhino.FirstObject, "DIMs"
Rhino.ObjectColor Rhino.FirstObject, RGB(200, 200, 200)
Rhino.SetUserText RelProp, "PM", "XYZ"
Rhino.SetUserText RelProp, "Drafter", "INI"
Rhino.SetUserText RelProp, "Job", "12345 Some really nice project"
Rhino.SetUserText RelProp, "Release", "0"
Rhino.SetUserText RelProp, "Material", "4MM PE REYNOBOND"
Rhino.SetUserText RelProp, "Color", "Mica Green *12345678*"
PropPM = "%<usertext(" & chr(34) & RelProp & chr(34) & "," & chr(34) & "PM" & chr(34) & ")>%"
PropBy = "%<usertext(" & chr(34) & RelProp & chr(34) & "," & chr(34) & "Drafter" & chr(34) & ")>%"
PropJob = "%<usertext(" & chr(34) & RelProp & chr(34) & "," & chr(34) & "Job" & chr(34) & ")>%"
PropRel = "%<usertext(" & chr(34) & RelProp & chr(34) & "," & chr(34) & "Release" & chr(34) & ")>%"
PropMat = "%<usertext(" & chr(34) & RelProp & chr(34) & "," & chr(34) & "Material" & chr(34) & ")>%"
PropCol = "%<usertext(" & chr(34) & RelProp & chr(34) & "," & chr(34) & "Color" & chr(34) & ")>%"
Rhino.AddText "-", Array(-450, y - 63, 0), 12, "ISOCPEUR", 2, 0
Rhino.ObjectLayer Rhino.FirstObject, "DIMs"
Rhino.ObjectColor Rhino.FirstObject, RGB(200, 200, 200)
Rhino.TextObjectText Rhino.FirstObject, PropPM & chr(13) & PropBy & chr(13) & PropJob & chr(13) & PropRel & chr(13) & PropMat & chr(13) & PropCol
Rhino.AddObjectsToGroup Array(RelProp, Rhino.FirstObject), Rhino.AddGroup
End If
Title = Rhino.SelectedObjects
Rhino.MoveObjects Title, Array(0, 0, 0), Array(x, y, 0)
For i=0 To UBound(Title)
If x > 0 And Rhino.GetUserText(Title(i), "Delete") = "Rest" Then Rhino.DeleteObject Title(i)
If Rhino.GetUserText(Title(i), "Delete") = "This" Then Rhino.DeleteObject Title(i)
If Rhino.GetUserText(Title(i), "Title") = "Border" Then Rhino.SetUserText Title(i), "RelProp", RelProp
If Rhino.GetUserText(Title(i), "Project") = "Manager" Then Rhino.TextObjectText Title(i), PropPM
If Rhino.GetUserText(Title(i), "Drafter") = "Ini" Then Rhino.TextObjectText Title(i), PropBy
If Rhino.GetUserText(Title(i), "Job") = "Name" Then Rhino.TextObjectText Title(i), "JOB: " & PropJob
If Rhino.GetUserText(Title(i), "Release") = "Number" Then Rhino.TextObjectText Title(i), PropRel
If Rhino.GetUserText(Title(i), "Material") = "Specs" Then Rhino.TextObjectText Title(i), PropMat
If Rhino.GetUserText(Title(i), "Finish") = "Color" Then Rhino.TextObjectText Title(i), PropCol
If Rhino.GetUserText(Title(i), "Panel") = "Name" Then
Rhino.TextObjectText Title(i), tag
Rhino.TextObjectText Title(i), Left(tag, InStr(tag, chr(13)))
End If
If Rhino.GetUserText(Title(i), "Total") = "Quantity" Then
If InStr(tag, "thus") = 0 Then
qty = "1"
Else
qty = Right(tag, Len(tag) - InStr(tag, chr(10)))
qty = Left(qty, InStr(qty, " "))
End If
Rhino.TextObjectText Title(i), qty
End If
Next