Movendo e Multiplicando um Texto

Continuando com as Rotinas Lisps (Como usar as Rotinas Lisp?)
Mais um exemplo:

;; Você clica num texto ele é apagado e, então, é pedido um novo ponto onde ele será rescrito modificado (se ele se for um número entre 10 e 100, ele será rescrito multiplicado por 10 e arredondado para apenas duas casas decimais)

(defun c:1 ()
(setq ent (entsel))
(setq ent2 ent)
(setq nome (nth 0 ent))
(setq ent (entget nome))
(setq ent (assoc 1 ent))
(setq ks (cdr ent))
(setq st (substr ks 1 2))
(setq et (substr ks 4 3))
(setq et1 (substr et 1 1))
(setq et2 (substr et 2 2))
(setq c (strcat (strcat (strcat st et1) “,”) et2))
(command “erase” ent2 “”)
(setq p1 (getpoint “P …”))
(command “text” p1 “” pause c)
)

Sobre NilsonRDG

Minha lista de scripts/rotinas em Autolisp, Autohotkey, JavaScript, PHP e VBA. Nilson Rodrigues - Ouro Preto - MG
Esse post foi publicado em Arquitetura, AutoCAD, Lisp, Mover, Multiplicar. 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 )

Foto do Google+

Você está comentando utilizando sua conta Google+. 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 )

Conectando a %s