SUFIXO em textos...

Tirar duvidas sobre o curso de Autolisp

Moderador: Moderadores

Responder
Avatar do usuário
sergio_gc
Madeira
Madeira
Mensagens: 21
Registrado em: Seg 13 Jun 2005 12:00:00 am
Localização: São Paulo - SP

SUFIXO em textos...

Mensagem por sergio_gc »

Alguém conhece alguma rotina que acrescente o mesmo SUFIXO em muitos textos diferentes ao mesmo tempo?

Grato.
Avatar do usuário
ederson
Prata 1/3
Prata 1/3
Mensagens: 414
Registrado em: Qua 21 Jul 2004 12:00:00 am
Localização: Belo Horizonte

Mensagem por ederson »

[lsp](defun c:sergio ()
(vl-load-com)
(setq ss_text (ssget (list (cons 0 "*text"))); para text e mtext
i_text 0
sufixo (getstring "\nDigite o sufixo desejado...")
)
(repeat (sslength ss_text)
(setq vlx_text (vlax-ename->vla-object (ssname ss_text i_text))
contents (vla-get-textstring vlx_text)
contents (strcat contents sufixo)
i_text (1+ i_text)
)
(vla-put-textstring vlx_text contents)
)
(princ)
)[/lsp]

... Depoi$ eu mando a conta... r$r$r$r$r$r$r$r$r$r$r$r$r$r$....
Ederson Ambrosio
031 8893-2947
BH-MG
Avatar do usuário
sergio_gc
Madeira
Madeira
Mensagens: 21
Registrado em: Seg 13 Jun 2005 12:00:00 am
Localização: São Paulo - SP

Mensagem por sergio_gc »

Ederson...muito muito muito grato pela ajuda.
Era exatamente isso que eu precisava.

Valeu mesmo!

E pode anotar débito a sua favor na minha conta..rssss
Responder