Alterar valores de textos

[Anonymous]

Preciso alterar como elevações de vários perfis transversais.
Exemplo: 19300-18700 = 600
Teria que fazer esta subtração em diversas elevações ao mesmo tempo, clicando nas elevações a serem alteradas e solicitar uma subtração por 18700 e alterando automaticamente.
Alguém classificado uma rotina lisp que faz este trabalho?
Desde já agradeço.

[hidroform]

@Anonymous  bom dia.

Se for somente para alterações de TEXTO poderá utilizar o recurso Find and Replace.

https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2020/ENU/AutoC...

[Anonymous]

Olá @Anonymous Preciso do exemplo de seu .dwg pra eu escrever o programa. 🙂

[Anonymous]

Bom dia,
Eu tenho uma rotina que altera um texto por vez, mas no meu caso eu tenho
que alterar milhares.
No exemplo em anexo eu tenho várias réguas de elevações de perfil de
terreno.
As cotas estão em relação ao nível do mar (georreferenciadas).
O meu cliente pediu uma alteração nos valores das cotas.
Exemplo:
A cota EL 0,00 do terreno corresponde a EL +18700 (nível do mar).
Eu preciso de uma rotina que eu possa selecionar várias cotas ao mesmo
tempo e peça para subtrair por 18700 e altere os valores selecionados
automaticamente.
Desde já agradeço.

[Anonymous]

Bom dia, eu preciso alterar os valores dos textos por subtração.
Obrigado.

[Anonymous]

Vc poderia me informar seu e-mail para que eu poça enviar o exemplo?

[Anonymous]

Você pode anexar um arquivo.

[Anonymous · Accepted solution]

Isso é apenas um Demo bem simples, com o .dwg em mãos a gente consegue definir melhor as funcionalidades.

;; Subtracao simples de textos
;; Feito por Junior Nogueira 20-07-2020
(defun c:SubText ()
  (if (setq sel (ssget '((0 . "TEXT"))) str (getreal "\nValor a ser subtraido: "))
   (foreach x (vl-remove-if 'listp (mapcar 'cadr (ssnamex sel)))
     (setq obj (vlax-ename->vla-object x))
     (if (=  "AcDbText" (vla-get-objectname obj))
       (progn
         (setq val (vla-get-textstring obj))
         (vla-put-textstring obj (rtos (- (atof val) str) 2 2))
       )
       (print "Ooops, Nenhum texto selecionado!")
     )
   )
   (print "Ooops, Nenhum conjunto selecao!")
   )
  (print "\nFeito por Junior Nogueira, Contato: [email protected]")
  (princ)
)

[Anonymous]

Bom dia
MUITO obrigado, funcionou perfeitamente.
Vc não tem ideia do quanto me ajudou.
Muito obrigado mesmo.

[Anonymous]

Fico feliz em ajudar. Por favor, aceite minha resposta como solução ai você me ajuda!!!