lisp don´t work

[alexandre_benekowski]

Hi People!!!!!

someone could help me?!!!

My code don´t work!!

(defun c:DIAGRAMA ()

;GUARDAR INFORMAÇÕES......
(setq layer_atual (getvar "clayer"))
(setvar "OSMODE" 1)
;INSERINDO A CAIXA....
(command "-layer" "M" "F-VT-DIAGRAMA_CX" "C" "2" "" "")
(setq inicial (getpoint "\nCLIQUE NO PONTO DE INÍCIO DO PERFIL..."))
(setq final (getpoint "\nCLIQUE NO PONTO FINAL DO PERFIL..."))
(setq comprimento (rtos (car final)))

;ELABORAÇÃO DO DESENHO...
(setq local (getpoint "\nCLIQUE NO PONTO DE INSERÇÃO..."))
(command "_pline" local "@100<90" "comprimento<0" "@100<270" "c")

;FINALIZAÇÃO
(setvar "CLAYER" layer_atual)
(princ)
)

(prompt "\nLISP PARA ELABORAÇÃO DE DIAGRAMA DE BRUCKNER")

[Anonymous]

---

@alexandre_benekowskiwrote:

Hi People!!!!!

someone could help me?!!!

My code don´t work!!

(defun c:DIAGRAMA ()

;GUARDAR INFORMAÇÕES......
(setq layer_atual (getvar "clayer"))
(setvar "OSMODE" 1)
;INSERINDO A CAIXA....
(command "-layer" "M" "F-VT-DIAGRAMA_CX" "C" "2" "" "")
(setq inicial (getpoint "\nCLIQUE NO PONTO DE INÍCIO DO PERFIL..."))
(setq final (getpoint "\nCLIQUE NO PONTO FINAL DO PERFIL..."))
(setq comprimento (rtos (car final)))

;ELABORAÇÃO DO DESENHO...
(setq local (getpoint "\nCLIQUE NO PONTO DE INSERÇÃO..."))
(command "_pline" local "@100<90" "comprimento<0" "@100<270" "c")

;FINALIZAÇÃO
(setvar "CLAYER" layer_atual)
(princ)
)

(prompt "\nLISP PARA ELABORAÇÃO DE DIAGRAMA DE BRUCKNER")

---

Qual a intenção desse código ? 

[alexandre_benekowski]

A principio é fazer um retângulo a partir do:

(setq final (getpoint "\nCLIQUE NO PONTO FINAL DO PERFIL..."))
(setq comprimento (rtos (car final)))

;ELABORAÇÃO DO DESENHO...
(setq local (getpoint "\nCLIQUE NO PONTO DE INSERÇÃO..."))
(command "_pline" local "@100<90" "comprimento<0" "@100<270" "c")

e pretendo continuar a desenvolve-la com mais codigos....

[dlanorh · Accepted solution]

(defun c:IAGRAMA ()

;GUARDAR INFORMAÇÕES......
(setq layer_atual (getvar "clayer"))
(setvar "OSMODE" 1)
;INSERINDO A CAIXA....
(command "-layer" "M" "F-VT-DIAGRAMA_CX" "C" "2" "" "")
(setq inicial (getpoint "\nCLIQUE NO PONTO DE INÍCIO DO PERFIL..."))
(setq final (getpoint "\nCLIQUE NO PONTO FINAL DO PERFIL..."))
(setq comprimento (strcat (rtos (car final)) "<0")); <<=================


;ELABORAÇÃO DO DESENHO...
(setq local (getpoint "\nCLIQUE NO PONTO DE INSERÇÃO..."))
(command "_pline" local "@ 100<90" comprimento "@ 100<270" "c");<<=====================

;FINALIZAÇÃO
(setvar "CLAYER" layer_atual)
(princ)
)

(prompt "\nLISP PARA ELABORAÇÃO DE DIAGRAMA DE BRUCKNER")

[alexandre_benekowski]

Hi dlanorh,

the lisp don´t do a rectangular,

there is something wrong

[Anonymous]

Os erros do código foram corrigidos por @dlanorh mas continuo sem entender qual sua intenção com isso.

[alexandre_benekowski]

Hi dlanorh,

now it work!!! Thanks!!!! I add "(setq comprimento (strcat "@" (strcat (rtos (car final)) "<0")))"

Thank you!!!!!

[dlanorh]

---

@alexandre_benekowskiwrote:

Hi dlanorh,

the lisp don´t do a rectangular,

there is something wrong

---

(defun c:IAGRAMA ()

;GUARDAR INFORMAÇÕES......
(setq layer_atual (getvar "clayer"))
(setvar "OSMODE" 1)
;INSERINDO A CAIXA....
(command "-layer" "M" "F-VT-DIAGRAMA_CX" "C" "2" "" "")
(setq inicial (getpoint "\nCLIQUE NO PONTO DE INÍCIO DO PERFIL..."))
(setq final (getpoint "\nCLIQUE NO PONTO FINAL DO PERFIL..."))
(setq comprimento (strcat "@ " (rtos (distance inicial final)) "<0")); <<=================??distance


;ELABORAÇÃO DO DESENHO...
(setq local (getpoint "\nCLIQUE NO PONTO DE INSERÇÃO..."))
(command "_pline" local "@ 100<90" comprimento "@ 100<270" "c")

;FINALIZAÇÃO
(setvar "CLAYER" layer_atual)
(princ)
)

(prompt "\nLISP PARA ELABORAÇÃO DE DIAGRAMA DE BRUCKNER")