Ouça uma das minhas músicas preferidas: , ou o canto de um passarinho: /spam>>

  ♩ ♪ ♫ Música do Dia  ♩  ♪♫

quarta-feira, 15 de agosto de 2012

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)

)


Nenhum comentário: