Adds a text string to the document.
Rhino.AddText (strText, arrPoint [, dblHeight [, strFont [, intStyle [, intJustification]]]])
Rhino.AddText (strText, arrPlane [, dblHeight [, strFont [, intStyle [, intJustification]]]])
strText |
Required. String. The text to display. |
||||||||||||||||||||
arrPoint |
Required. Array. A 3-D point. |
||||||||||||||||||||
arrPlane |
Required. Array. The plane on which the text will lie. The origin of the plane will be the origin point of the text. |
||||||||||||||||||||
dblHeight |
Optional. Number. The text height. If omitted, a height of 1.0 units is used. |
||||||||||||||||||||
strFont |
Optional. String. The text font. If omitted, the Arial font is used. |
||||||||||||||||||||
intStyle |
Optional. Number. The font style. If omitted, a normal font style (0) is used. The font style can be any number of the following flags:
|
||||||||||||||||||||
intJustification |
Optional. Number. The justification. If omitted, a Bottom-Left justification (0) is used. The justification can be any number of the following flags:
|
String |
The identifier of the new object if successful. |
Null |
If not successful, or on error. |
Dim arrPoint
arrPoint = Rhino.GetPoint("Pick point")
If IsArray(arrPoint) Then
Rhino.AddText "Hello Rhino!", arrPoint
End If