ROTINA LISP OU VBA PARA MUDAR TEXTO EM MAIS DE UM DWG

[euller.monteiro]

Amigos, eu não tenho experiência com lisp ou vba, más já usei uma rotina que um amgo me ajudou, más agora tenho um serviço muito grande, é mudar no carimbo das plantas baixas um texto padrão que mudou a nomeclatura, e pensei em usar uma rotina lisp ou vba, e gostaria da ajuda dos amigos, pois não sei desvolver as rotinas ainda, e se fizer manualmente vai ser um trabalho muito longo.
Então peço a ajuda dos amigos.

Grato: Euller.

[Rui Pestana]

Caro Euller,

se puder enviar um desenho com o texto actual e outro com o texto alterado ajudava.

[euller.monteiro]

Caro Rui Pestana, desesnhos enviado para seu email.

Grato: Euller Soares Monteiro.

[Rui Pestana]

Caro Euller,

não tive tempo para mais elaboração , mas use este código para actualizar os seus desenhos:

'início de código
Sub Alteratexto()
On Error Resume Next
Dim MyText As AcadText
Dim MS As AcadModelSpace
Set MS = ThisDrawing.ModelSpace
Dim i As Integer
Dim n As Integer
n = MS.Count
Dim cont As Integer
cont = 0
For i = 0 To n
Dim entidade As AcadEntity
Set entidade = MS.Item(i)
If TypeOf entidade Is AcadText Then
Set MyText = entidade
If UCase(MyText.TextString) = "EOB - MG" Then
MyText.TextString = "GFRO - 2"
cont = cont + 1
End If
End If

Next i
ThisDrawing.Regen acActiveViewport
MsgBox "Foram actualizados " & cont & " textos", vbInformation & vbOKOnly, "Resultado de actualização"
End Sub
'fim de código

Abra cada um deles e execute este código.

PS. Não tive tempo para comentar. Fá-lo-ei outro dia.

[euller.monteiro]

OK, vou trabalhar em cima da rotina acima.

Valeu!

Grato: Euller.