tópico Re: Alterar valores de textos em AutoCAD - Fórum Português

Alterar valores de textos

Anonymous — Thu, 16 Jul 2020 21:54:34 GMT

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.

Re: Alterar valores de textos

hidroform — Fri, 17 Jul 2020 13:24:27 GMT

@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/AutoCAD-Core/files/GUID-3104FBDE-7145-4AD9-9B05-CC2C002ED587-htm.html

Re: Alterar valores de textos

Anonymous — Fri, 17 Jul 2020 13:33:39 GMT

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

Re: Alterar valores de textos

Anonymous — Fri, 17 Jul 2020 14:20:09 GMT

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.

Re: Alterar valores de textos

Anonymous — Fri, 17 Jul 2020 14:42:09 GMT

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

Re: Alterar valores de textos

Anonymous — Fri, 17 Jul 2020 14:48:16 GMT

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

Re: Alterar valores de textos

Anonymous — Mon, 20 Jul 2020 10:45:39 GMT

Você pode anexar um arquivo.

Re: Alterar valores de textos

Anonymous — Mon, 20 Jul 2020 11:11:56 GMT

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: Frjuniornogueira1@gmail.com")
  (princ)
)

Re: Alterar valores de textos

Anonymous — Mon, 20 Jul 2020 12:03:06 GMT

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

Re: Alterar valores de textos

Anonymous — Mon, 20 Jul 2020 12:47:46 GMT

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