VB.net - Programação para Texto

Dim texto As DBText = New DBText()

texto.SetDatabaseDefaults()

texto.WidthFactor = 1

texto r.Height = 0.25

texto.HorizontalMode = TextHorizontalMode.TextRight

texto.VerticalMode = TextVerticalMode.TextTop

texto.AlignmentPoint = New Point3d(x, y,z)

texto.TextString = "www.lojadosdesenhadores.blogspot.com"

texto.Layer = "texto_0.225"

ms.AppendEntity(texto)

trans.AddNewlyCreatedDBObject(texto, True)