AUTOCAD MARCA DE NÍVEL – AUTOLISP

Tenho encontrado muitos profissionais que reclamam que o AutoCAD não tem marcas de nível em planta e em corte. Este problema já foi solucionado a partir da versão 2008. Mas como não são todos que utilizam as novas versões aqui vai um LISP que pode ser utilizado.

Copie o código fonte em um arquivo de texto e salve-o com a extensão “.LSP”.

Para carregar a rotina no AutoCAD digite….” APPLOAD ” – Agora basta digitar o nome do comando, neste caso NIVEL e apreciar o resultado. Se as medidas estiverem desproporcionais ao se projeto basta altera-las no próprio código fonte e carregar novamente…….BONS ESTUDOS.

——————————————

(defun c:nivel()
  (setq p1(getpoint “\nclique no local desejado”))
  (setq p2 (list(+(car p1) -12)
  (+ (cadr p1) 0)
  ))
  (command “circle” p1 “10”)
  (command “line” p1 p2 “”)
  (setq p3 (list (+(car p1) 0)
   (+(cadr p1) 12)
   ))
  (command “line” p1 p3 “”)
  (setq p4(list (+(car p1) 32)
  (+(cadr p1)0)
  ))
  (command “line” p1 p4 “”)
  (setq p5(list(+(car p1)0)
        (+(cadr p1) -12)
        ))
  (command “line” p1 p5 “”)
  (command “-hatch” “properties” “solid” p1 “@1,-1” “”)
  (command “-hatch” “properties” “solid” p1 “@-1,1” “”)
  (setq p6(list(+(car p1) 20)
        (+(cadr p1)1)
        ))
  (setq t1(getstring “digite o nível”))
  (command “text” p6 “5” “0” t1 “” “”)
  )

Uma resposta to “AUTOCAD MARCA DE NÍVEL – AUTOLISP”

  1. HEDNEI C MARANGONI JR Says:

    Gostaria de inserir o link do meu blog no seu e ter o link do seu blog no meu, de uma olhada no meu blog e veja se topa. www. marangonijunior .com/openlisp

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s


%d bloggers like this: