VBA: Create a Mtext (Autocad, ZWCad e Gstarcad)

Depois de alguma ausêsncia, volto a mostrar uma rotina em VBA.

Assim, a seguinte rotina em VBA serve para criarmos um texto pelo comando Mtext, espero que apreciem.

Para Autocad :

Public Sub NewMTEXT()

    Dim MTextObj As AcadMText
    Dim pontoinsercao(0 To 2) As Double
    Dim texto As String
    Dim alturatexto As Double
 
    pontoinsercao(0) = 0: pontoinsercao(1) = 0: pontoinsercao(2) = 0 'ponto de inserção
    alturatexto = 6 'altura do texto
    texto = "Loja dos Desenhadores" 'texto a escrever

    ' Criação do Mtext
     Set MTextObj = ThisDrawing.ModelSpace.AddMText(pontoinsercao, alturatexto, texto)

    'zoom Extents
     ZoomExtents

End Sub

Para GstarCad :

Public Sub NewMTEXT()

    Dim MTextObj As GcadMText
    Dim pontoinsercao(0 To 2) As Double
    Dim texto As String
    Dim alturatexto As Double

    pontoinsercao(0) = 0: pontoinsercao(1) = 0: pontoinsercao(2) = 0 'ponto de inserção
    alturatexto = 6 'altura do texto
    texto = "Loja dos Desenhadores" 'texto a escrever

    ' Criação do Mtext
     Set MTextObj = thisDrawing.ModelSpace.AddMText(pontoinsercao, alturatexto, texto)
   
     'zoom Extents
     ZoomExtents
   
End Sub

Para ZwCad : 

Public Sub NewMTEXT()

    Dim MTextObj As ZcadMText
    Dim pontoinsercao(0 To 2) As Double
    Dim texto As String
    Dim alturatexto As Double

    pontoinsercao(0) = 0: pontoinsercao(1) = 0: pontoinsercao(2) = 0 'ponto de inserção
    alturatexto = 6 'altura do texto
    texto = "Loja dos Desenhadores" 'texto a escrever

    ' Criação do Mtext
     Set MTextObj = ThisDrawing.ModelSpace.AddMText(pontoinsercao, alturatexto, texto)
   
     'zoom Extents
     ZoomExtents
   
End Sub

Obrigado

Boa programação