Polar
Questa funzione restituisce il punto partendo da un punto specificato e comunicando angolo e distanza dal punto.
(polar punto angolo distanza)
dove punto è il punto di riferimento
angolo è l'angolo espresso in radianti
distanza è la distanza che deve avere il punto da quello iniziale.
Esempio:
(defun c:miopunto()
(setq puntoin(getpoint "\ninserischi punto iniziale"))
(setq angolo(getangle "\nInserisci angolo"))
(setq distanza(getdist"\nInserisci distanza"))
(setq puntonew(polar puntoin angolo distanza ))
(command "_line" puntoin puntonew "")
(princ)
)
salviamo il file lez13.lsp
eseguiamo autocad e scriviamo nella linea di comando
(load "lez13")
facciamo Invio
quindi scriveremo
miopunto
Scarica l'esempio
R. Pucci