Hi Guys !
I want to run a AutoLISP app in AutoCAD. I am on a Mac. It is possible to run but when i perform the "\nIndique o segundo ponto: "
it shows an error message saying: " error: syntax error".
Here is the code:
(defun c:escada()
(setq pontoS (getvar "osmode"))
(setq pontoS3d (getvar "3dosmode"))
(setvar "3dosmode" 0))
;obter pontos
(setvar "osmode" 1)
(setq p1 (getpoint "\nIndique o ponto inserção: "))
(setq largura (getreal "\nIndique o ponto da largura: "))
(setq espelho (getreal "\nIndique o espelho: "))
(setq cobertor (getreal "\nIndique o cobertor: "))
(setq ndegraus (getint "\n Indique o numero de degraus: " ))
(command "ucs" p1 "" )
(setq p1 (trans p1 0 1))
(command "box" p1 (list largura cobertor espelho))
(command "ucs" "world")
;repeticao degraus
(repeat ndegraus
(command "copy" "last" "" p1 (list 0 cobertor espelho))
)
)
Please somebody help me !
