Results 1 to 5 of 5

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

  1. #1
    Member euller.monteiro's Avatar
    Join Date
    2007-07
    Location
    Belo horizonte,Minas Gerais, Brasil.
    Posts
    47
    Login to Give a bone
    0

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

    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.

  2. #2
    Active Member
    Join Date
    2007-01
    Location
    Ermesinde - Portugal
    Posts
    59
    Login to Give a bone
    0

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

    Caro Euller,

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

  3. #3
    Member euller.monteiro's Avatar
    Join Date
    2007-07
    Location
    Belo horizonte,Minas Gerais, Brasil.
    Posts
    47
    Login to Give a bone
    0

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

    Caro Rui Pestana, desesnhos enviado para seu email.

    Grato: Euller Soares Monteiro.

  4. #4
    Active Member
    Join Date
    2007-01
    Location
    Ermesinde - Portugal
    Posts
    59
    Login to Give a bone
    0

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

    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.

  5. #5
    Member euller.monteiro's Avatar
    Join Date
    2007-07
    Location
    Belo horizonte,Minas Gerais, Brasil.
    Posts
    47
    Login to Give a bone
    0

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

    OK, vou trabalhar em cima da rotina acima.

    Valeu!

    Grato: Euller.

Similar Threads

  1. Rotina Autolisp para alterar posição do separador decimal
    By teknomatika in forum Português - Customização / Programação
    Replies: 2
    Last Post: 2010-09-03, 03:14 PM
  2. Texto mudar com escala no layout
    By marlonzanatta in forum Português - AutoCAD / AutoCAD LT
    Replies: 2
    Last Post: 2009-03-20, 08:16 PM
  3. Rotina layers2xls.lsp... e mais, muito mais
    By pferreira in forum Português - Customização / Programação
    Replies: 4
    Last Post: 2008-09-27, 04:19 PM
  4. Lisp para alteração de texto
    By batista in forum Português - Customização / Programação
    Replies: 5
    Last Post: 2008-08-22, 10:08 PM
  5. Sugestão: Mais uma para o forum
    By Filipe Francisco in forum Português - Cafezinho sem CAD
    Replies: 1
    Last Post: 2007-04-13, 10:48 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •