Escreve a cota do ponto clicado

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

;; Escreve a cota do ponto clicado

(defun c:Cotar ()

(setq p1 (getpoint “P1”))

(setq z (rtos (nth 2 p1) 2 2))

(setvar “osmode” 0)

(command “text” p1 “.8” “0” z)

(setvar “osmode” 9)

)

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 Arquitetura, AutoCAD, Autolisp, Desenho, Engenharia Civil. Bookmark o link permanente.

2 respostas para Escreve a cota do ponto clicado

  1. Bom dia , gostaria de saber se e-mail para contato, gostei dos lisp sou engenheiro
    wilsonsantosneto@yahoo.com.br

  2. nilsonrdg disse:

    wilsonsantosneto;

    Obrigado pelo comentário.

    A maioria das rotinas deste blog foram criadas por mim quando trabalhava com projetos e como cadista.

    São bem amadoras, mas – aproveitando-se da facilidade do autolisp – pode-se criar estas rotinas simples e já ir usando para resolver determinados problemas.

    Caso seja útil para você pode usá-las a vontade.

    Não tenho trabalhado muito com Autocad atualmente, mas sei que hoje em dia com a internet é muito mais fácil criar rotinas como estas (google, fóruns etc.). Inclusive criei recentemente uma conta num fórum de Autolisp para tentar resolver uma questão:

    http://www.augi.com/forums/showthread.php?t=129702

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