Autolisp para Multiplicar uma constante pelo texto selecionado

; Multiplica uma constante pelo texto selecionado

(defun c:constex()

(setq k (getreal “Constante:  “))

(setq o (entsel “Selecione o texto a ser alterado “))
(setq n (read (cdr (assoc 1 (entget (car o))))))

(setq prod (rtos (* n k) 2 2))

(command “change” o “” “” “” “” “” “” prod)

)

Anúncios

Sobre NilsonRDG

Minha lista de scripts/rotinas em Autolisp, Autohotkey, JavaScript, PHP e VBA. Nilson Rodrigues - Ouro Preto - MG
Esse post foi publicado em AutoCAD, Autolisp. Bookmark o link permanente.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s